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Let your 80 organize your finances! 
How much is a new home really going to cost? 

* trademark of Tandy Corp. 



TRS-80 * Model I Computer Owners . . . 



Store Up to 350 Kbytes on a 5" Disk 
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The DOUBLER™. It packs almost twice the data on a disk track as your single-density 
system. Depending on the type of drive, you can store up to four times more data on one 
side of a minidiskette than you can store using a standard Model I mini-disk drive. 



• The DOUBLER IM reads, writes 
and formatseither single- or dou- 
ble-density minidiskettes. 

• Proprietary design allows you to 
continue to run TRSDOS* NEW- 
DOS?. Percom OS-80 IM or other 
single-density software without 
making any changes to software 
or hardware. Switch to double- 
density operation at any conve- 
nient time. 

• Includes DBLDOS™, a 
TRSDOS* compatible double- 
density disk operating system. 



Mini-Disk Systems 



m 

track format 
S399. 



More storage capacity, 
higher reliability from 
Percom the industry 
leader. One- two- and 
three-drive configura- 
tions in either 40- or 77- 
Fully burned-m. From only 



,M trademark of Percom Data Company. Inc. 

■ trademark of Tandy Radio Sh.uk Corporation which has no rel 

; trademark <•! Appar.n Company. Inc. trademark ol Virtual 



• CONVERT utility, on 
DBLDOS rM minidiskette, converts 
files and programs from single- to 
double-density or double- to sin- 
gle-density. 

• The DOUBLER IM circuit card 
includes high performance 
data separator, write precom- 
pensation circuits for reliable 
disk read operations — even with 
80-track drives. 

• Plug-in Installation — The 
DOUBLER simply plugs into the 
disk controller so cket of your Ex- 

Double-Density Software 

(On diskette — with instruction manual.) 

OS-80D™ Double-Density Disk Operating Sys- 
tem — This double-density upgrade version of 
Percom's acclaimed OS-80™ resides entirely in 
RAM — requiring only 7.5-Kbytes! A BASIC 
programmer's ' 'dream operating system , ' ' even 
utilities are in BASIC. 

DOUBLEZAP-ll/80 This program modifies 
Apparat's NEWDOS/804 to run either double — 
or single-density programs — even to run a mix 
of the two formats on one system! 
DOUBLEZAP-II/V This program modifies Virtual 
Technology's VTOS 4.0ft to provide the same 
capability as DOUBLEZAP-ll/80 provides for 
NEWDOS/80. 



pansion Interface, requiring no 
strapping or trace cutting. Expan- 
sion Interface disk controller may 
be completely restored to original 
configuration by simply removing 
the DOUBLER™ and re-installing 
the original disk controller chip. 

• Works with standard 35-, 40-, 
77- and 80-track mini-disk drives 
rated for double-density operation. 

• Introductory price, including 
DBLDOS IM and format conversion 
utility on minidiskette, only 
$219.95. 



Call toll-free. 1-800-527-1592. for the 

address of your nearest authorized Per- 
com dealer, or to order directly from Per- 
com. . ^1 




PERCOM DATA COMPANY. INC. 
211 N. KIRBY GARLAND. TEXAS 75042 

(214) 272-3421 



ilionship lo Percpm Dam Company. 
Technology. Inc. 



PRICES AND SPECIFICATIONS SUBJECT TO CHANGE WITHOUT NOTICE. 
PRICES DO NOT INCLUDE SHIPPING AND HANDLING CHARGES. 




Pcrcom Mini-Disk Drive Systems for TRS-80* Computers. . . 

Now! Add-On and Add-In Mini-Disk 



Storage for your Model 



The industry leader in microcomputer peripherals, 
Percom not only gives you better design, better 
quality and first-rate service, but you pay less 
to boor. 



Still #1 for Model I 

As if greater storage capacities, exceptional quality 
control measures and lower prices aren't reasons 
enough to make Percom your first choice for Model I 
add-on drives, all Percom Model I drives are also rated 
for double -density operation. 

Add our innovative DOUBLER™ adapter to your 
Model I Expansion Interface, and with Percom drive 
systems you can enjoy the same double-density storage 
capability as Model III owners. 

The DOUBLER includes a TRSDOS*-like 
double-density disk operating system called DBLDOS™ 

We also offer a double-density Model I version of 
OS-80 as well as DOUBLEZAP programs for modifying 
NEWDOS/80 and VTOS 4. Of for DOUBLER 
compatibility. 

Of course you don't have to upgrade your computer 
for double-density operation to use Percom mini-disk 
drive systems. In single-density operation, our TRS-80* 
Model I compatible 40-track drives store 102 Kbytes of 
formatted data on one side of a diskette, and our 
80-track drives store 205 Kbytes. By comparison, 
Tandy's standard drive for the Model I stores just 86 
Kbytes. 

And like our Model III drives, Model I add-on drives 
are optionally available with "flippy" storage capability. 



New for the TRS-80* Model III 

Patterned after our fast-selling TFD Model I drives. And 
subjected to the same reliability controls. These new 
TFD mini-disk systems for the Model III provide more 
features than Tandy drives, yet cost far less. 

• Flippy Capability: Both internal (add-in) and 
external (add-on) drives permit recording on either 
side of a diskette. 

• Greater Storage Capacity: Available with either 40- 
or 80-track drive mechanisms, Percom TFD mini-disk 
systems store more. A 40-track drive stores up to 180 
Kbytes — formatted — on one side of a 5-inch 
diskette. An 80-track drive stores a whopping 364 
Kbytes. 

• 1.5 Mbyte On-line: The Percom drive controller 
(included with the initial drive) handles up to four 
drives. With four 80-track mini-disk drives you can 
access over 1.5 million bytes of on-line file data. 

Moreover, the initial drive may be either an 
internal add-in drive or an external add-on drive. And 
whichever configuration you get, the initial drive kit 
comes complete with our advanced 4-drive 
controller, interconnecting cables, power supplies, 
installation hardware, a DOS and of course the drive 
mechanism itself. 

• First Drive Includes DOS: OS-80™, Percom's fast 
extendable BASIC-language disk operating system, is 
included on diskette when you purchase an initial 
drive kit. Originally called MicroDOS, OS-80 was 
favorably reviewed in the June 1980 issue of Creative 
Computing magazine. 

• Works with Model III TRSDOS: Besides being fully 
hardware compatible, Percom's Model III 40-track 
drive systems may be operated with Tandy's Model III 
TRSDOS — without any modifications whatsoever, 
And, TRSDOS may be easily upgraded with simple 
software patches for operating 80-track drives. 

Percom TFD add-on drives start at only $399. Model 
III Drive kits start at only $749.95. 

Quality Percom products are available at 
authorized dealers. Call toll free 1-800-527-1592 
for the address of your nearest dealer or to order 
direct from Percom. 



System Requirements: 

Model III: 16-Kbyte system (minj and Model III BASIC. 
The second internal drive may be installed after the first 
internal drive kit is installed, and external drives #2, #3 
and #4 may be added if either an internal or external 
first-drive kit has been installed. External drives #3 and 
#4 require an optional interconnecting cable. 
Model I: 16-Kbyte system (min), Level II BASIC, 
Expansion Interface, disk operating system and an 
interconnecting cable. For double-density storage, a 
Percom DOUBLER must be installed in the Expansion 
Interface and DBLDOS (comes with the DOUBLER) or 
other double-density DOS must be used. For 
single-density operation, a Percom SEPARATOR™ 
adapter, installed in the Expansion Interface, will 
virtually eliminate "CRC ERROR — TRACK LOCKED 

KJvJ 1 read errors. Prices and specifications subject to change without notice. 
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The Auto Mentor 87 

by Leslie E. Sparks 

Car maintenance eroding your bottom line? Here are all 
the answers you need to decide whether to buy a new 
car or stick with your old one. Find out how much your 
old car is costing you, then compare it with the cost 
and mileage of that lovely new machine. 

The Home Buyer's Helper 99 

by Clarence Stinson 

This article turns your 80 into a home buyer's calculator 
that will calculate the differences in interest paid on 
mortgages, cash needed monthly to make the pay- 
ments, and appropriate IRS rebates. Pay through your 
80, it feels better. 

How to Buy and Sell Houses 103 

by Dale A. Whitman 

Whitman takes a look at home buying from both sides 
of the coin. This article may convince you that there is a 
better way to finance than through the banks. 

A Dollar Down 113 

by Jack Martin 

This article tells you much more about a new car than 
kicking the tires will, and it doesn't indulge in a sales 
pitch, either. Drag your eyes away from the shiny new 
paint and train them on your shiny 80; you may discover 
there is a better deal to be had. 
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Manuscripts are welcome at 80 Microcomput- 
ing, we will consider publication of any TRS-80 
oriented material. Guidelines for budding auth- 
ors are available, please send a self-addressed 
envelope and ask for "How to Write for 80 Micro- 
computing." Entire contents copyright 1981 by 
1001001 Inc. No part of this publication may be 
reprinted, or reproduced by any means, without 
prior written permission from the publisher. All 
programs are published for personal use only. 
All rights reserved. 



80 Microcomputing (ISSN -0199-6789) is pub- 
lished monthly by 1001001 Inc., 80 Pine St.. 
Peterborough NH 03458. Phone: 603-924-3873. 
Subscription rates in U.S. are $18 for one year 
and $45 for three years. In Canada, $20— one 
year only, U.S. funds. Canadian distributor: 
Micro Distributing, 409 Queen St. West, Toron- 
to, Ontario, Canada M5V 2A5. Foreign sub- 
scriptions (surface mail), $28— one year only, 
U.S. funds. Foreign subscriptions (air mail), 
$60— one year only, U.S. funds. In Europe con- 
tact Monika Nedela, Markstr. 3, D-7778 Mark- 
dorf, W. Germany. In South Africa contact 80 
Microcomputing, P.O. Box 782815, Sandton, 
South Africa 2146. Australian Distributor: 
Electronic Concepts, Attention: Rudi Hoess, 
55 Clarence Street, Sidney 2000, Australia. All 
U.S. subscription correspondence should be 
addressed to 80 Microcomputing, Subscrip- 
tion Department, P.O. Box 981, Farmingdale, 
NY 11737. Please include your address label 
with any correspondence. Postmaster: Send 
form -3579 to 80 Microcomputing, Subscrip- 
tion Services, P.O. Box 981, Farmingdale, NY 
11737. 




Part II 119 

Advanced Graphics Techniques 

by Bob Boothe 

In this second part of a three-part series, Boothe really 
struts his stuff and makes the 80 do all but cartwheels 
with some truly incredible graphics. You may not 
recognize your 80. 



The Exclusive Oracle 58 

by Dennis Kitsz 

Kitsz begins a new feature with this issue, which will prove to be as irregular as he 
is. Want to question the wizard? Here's the medium. 

Dow Jones Offers Videotex Tie-in 64 

by Bert Latamore 

Dow Jones has made its business and stock market news information service 
available for all TRS-80 owners, including the Color Computer. Latamore has all 
the specs; this could prove to be very important to your business. 



7 Remarks Wayne Green 

8 Inside 80 EdJuge 
12 80 Input 

26 Reviews 



48 80 Applications Dennis Kitsz 

54 Education 80 Earl R. Savage 

58 The Exclusive Oracle Dennis Kitsz 

64 News 



38 The Assembly Line William Barden, Jr. 73 New Products 
44 80 Accountant Michael Tannenbaum 306 Reader Service 



128 Dome Time If you've always wanted your own sphere. Daniel B. Nickell 

219 Foreign Language Translation You can finally make sense of your relatives. Dan L Robinson 

222 The General Ledger Get your business on cassette. R. L Conhaim 

"80 High Density Graphic Interface— PartTwo Installing high-res. Dennis Murray and Paul Fowler, Jr. j 

202 Hardwire the RS-232 Get to bed earlier, with this one. Don DeJarnette 

254 An Alternate Source International computing. John G. Conner 
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194 Dancin!— A Disco Primer Byte off some boogie. Andrew A. Modla 

x 294 BOA Get into a snakepit. Jeff Myers 
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208 
258 
272 



Hardtimes Variables maps and other tools. Joe Fettig 
A Field Guide to Computerists Check out these birds. Chuck Doherty 
Speedset Rid yourself of read/write errors. Sherman B. Winings 
The Sargon Saver If you have to work for a living. Thomas L Quindry 



-176 Inverse Video Turn black to white. Brian D. Smith 
204 Flexible Scroller Roll your own. Jeff Myers 

188 Keep It in the Black For tired printers. William D. Johnson 

The Pulse Jockey Software and trickery to make things simple. Larry Suter 



236 



276 Computerized Complaint For Input page addicts. Dennis J. Gillig 



FORTRANslator A review and caveat. Richard C. McGarvey 
Editor/Assembler-Plus Good stuff for 16K Level II. Dan Zuckerman 
Microsoft's Compiler for the Model II. A handy language-changer. James L Waggoner 
LNW Research Expansion Board Helps your 80 work hard. Ian Hodgson 
> 22 MHz for $99 Give your 80 a monitor boost. Fredi Egger 
The FCI-80 and the TC-80 Cassette prodders. Harley Dyk 
Talk to Your TRS-80 Betcha didn't know it had a voice. Art Welcher 
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206 
210 
230 
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266 
296 



246 Not-So-Random Numbers Create charts out of chaos. Timothy R. ZeigJer 

146 Memories Are Made of This Make a routine out of RAM and ROM. Robert D. Randall 
168 An Idiot's Guide to Assembly Language— Part I From one struggling idiot to another. 

Robert C. Montgomery 
292 On the Average About an average subject. Len Gorney 
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216 
234 
244 
256 
260 
264 
—270 
-284 
288 



BY 

Direct Statement in File Save your overworked fingers. D. E. Fitchhorn 

Dollars and Sense A subroutine for getting down to business. Tom Andrews 

The Encoder An easier way. Ron Cain 

Hex Converter Turn a nightmare into a treat. Richard H. Malone 

One Wheel Drive Turn your jalopy into a sedan. Dan Keen and Larry Pezzuto 

Shift Lock A subroutine to give you short shift. Martin C. Hambel 

The Spare Time Generator For those with long lists of names. Thomas C. Mehesan, Jr. 

Comprs Help for short memory hindrances. Stephen Barker 

Take T-Bug Higher Without a pilot's license. W. R. Stanley 

Know-lt-AII Everything you wanted to know, but were afraid to ask. Alan Sehmer 



PUBLISHER/EDITOR 
Wayne Green 

MANAGING EDITOR 
Michael Comendul 

TECHNICAL CONSULTANT 
Jake Commander 

PRODUCTION EDITOR 
Bob Dukette 

NEWS EDITOR 
Bert Latamore 

REVIEW EDITOR 
Pamela Petrakos 

ASST. TECHNICAL EDITOR 
Chris Brown 

ASSISTANT EDITORS 
Lise Markus 
Debra Marshall 

TECHNICAL CONTRIBUTING EDITOR 
Dennis Kitsz 

EDITORIAL ASSISTANT 
Janet Fiderio 

EDITORIAL ADMINISTRATION 
Pat Graham 
Nancy Noyd 

DESIGN ASSOCIATE 
Diana Shonk 



PRODUCTION MANAGER 
Nancy Salmon 

ASST. PRODUCTION MANAGER 
Michael Murphy 

AD GRAPHICS MANAGER 
Robert Drew 

AD COORDINATOR 
Sue Symonds 

ADVERTISING PRODUCTION 

Steve Baldwin, Bruce Hedin, Maryann 

Metivier 

PRODUCTION DEPT. 
Joan Ahern, Fiona Davies, Linda Drew, 
Frances Benton, Kenneth Jackson, Ross 
Kenyon, Theresa Ostebo, Jane Preston, 
Thomas Villeneuve 

PHOTOGRAPHY 

William Heydolph, Terrie Anderson, 

Bill Suttenfield 

TYPESETTING 

Barbara Latti, Sara Bedell, Michele 
Desrocher, Luann Keddy, Mary Kinzel, 
Linda Locke, Karen Stewart 



Cover by Tom Grubis 



80 Microcomputing, May 1981 • 5 



PROGRAMS AVAILABLE 
NOW FROM 
MICRO-SYSTEMS 
SOFTWARE INC. 



MODEL 111 DOSPLUS READY NOW! That's right! DOSPLUS 3.3 for the MODEL III is 
available now We have our MODEL III, and now you can have our DOS. All the great features of our popular 
MODEL I DOS plus Single or Double Density Operation. The best gets better! Order now, and soon your MODEL 
III will be all the computer it can be. Experience excellence. Experience DOSPLUS. Introductory Offer $49.95 

DOSPLUS 3.2 or 3.2D The flagship of the Micro-Systems line. This is the BEST disk operating 
svstem currently available. It offers you all the features you could ever use, speed, reliability, and much more! hull 
suDDort of variable length records. No more internal errors during file handling due to poorly written operating 
systems. Allows use of ISAMtechnique. Supports 35-80 track drives. The two operating systems are basically the 
same However, Dosplus 3.2D will operate double density. The double density DOS has some differences peculiar 
t double density operation. Both systems offer DOS commands from BASIC, BASIC renum and BASIC Program 
compressor. DOS utilities include a sector display/modify program, a utility to purge files AND a utility to restore 
purged or killed files. Free space map and the most comprehensive directory on the market. Try it and you II never 
use anything else. All this and much more for only $99.95 either system. 

DISKZAP 2.3 A sinqle or double density disk editor. Works with any number of tracks. It is track and 
sector oriented, and offers total access to all parts of the diskette. It has it all. It will even include a dis J formatter 
With DISKZAP 2.3 it is even possible to convert your single density disks to double density. Priced at only $19.95 
for Model I or III 

MASTER DISK DIRECTORY 1 .1 One of the most useful programs ever conceived. It will 
read the directories of up to 320 diskettes (or 5000 files) . You can then search for a disk name a Wespec (or piece 
of a filespec), free space, or an extension. No more looking for programs that are "around here somewhere. 
Master directory will read any diskette directory, works to either the video or the hne printer, will operate on either 
single or multiple drive systems, and is now available in Spanish. Retail price is $29.95. 

ACCOUNTS RECEIVABLE 1.0 (including inventory package) A point of sale invoice- 
generating and based accounts receivable program. Including INVCO 1.3 (a comprehensive ; manufacturing 
inventory program), this program will meet the specialized needs of almost anyone engaged m the wholesale or 
distributing business. The fastest and best program of it's type available anywhere. Requires a Model 1 1 32 K twin 
drive system. Also requires DOSPLUS 3.2. For speed, accuracy, and convenience, it can t be beat! Price quoted 
on request due to the custom configuring necessary in any business software. 

SUPERBAK Any disk that will boot-up in your computer, this program will back-up It will scan any disk 
created by the TRS-80 Model I , and create an exact copy of the disk. Retail price is $19.95. Single density only. 

MOTHER PACKER Astring packing graphics generator for the TRS-80 Model I. Offers you graphics 
like you never thought you'd have. Draw maps, reports, anything, with lightning speed. Re-draw the screen 5 
fast that you can present the illusion of continuous motion. Cost is only $9.95 on cassette. $19.95 on oisk. 



2.2 meg on Model I with our Doubler Board and Drives. Blank 5 1 /4 M Diskettes 




master charge 



Specializing in the Tandy Line 




(305) 983-3390 



5846 Funston Street 
Hollywood, FL 33023 1 



CALL TOLL FREE FOR FAST SERVICE 

(800) 824-7888, OPERATOR 193 

FOR VISA/MASTERCHARGE/C.O.D. ORDERS 

California dial (800) 852-7777. Operator 193 
Alaska and Hawaii dial (800) 824-7919. Operator 193 
TOLL FREE LINES WILL ACCEPT OROERS ONLY! 
For Applications and Technical information, call 
(305) 983-3390 or drop us a card. 



Dealers inquiries invited 
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by Wayne Green 




men I went to high school, some 40 
years ago, it was enjoyable. I went 
to one of the best schools in Brooklyn, 
New York, Erasmus High School. It was 
beautiful. The "old school" stood in the 
center of a block long (and the block was 
very long) quadrangle of the new building, 
which rose three stories and looked like 
an enormous castle. During my tour at 
Erasmus we celebrated its 150th anniver- 
sary. 

One of the features I enjoyed the most 
about the school was the wide choice of 
after-school clubs to which I could belong, 
—over 120. There weren't enough after- 
noons in a week to participate in all of 
them. 

The most prestigious of the clubs was 
the Choral Club, which practiced daily 
during the second period. Erasmus gave 
every student a voice test, and the top one 
hundred voices were able to join this club. 
The school had about 10,000 students, so 
it was quite an honor to be selected. I'd 
been singing several years in a church 
choir as a soprano, so I had no difficulty in 
getting into this group with my newly de- 
veloped baritone voice. We sang daily and 
gave concerts quite regularly. 

One of the other clubs that I enjoyed 
was the ham club (W2ANU), one of the 
oldest in the country. There I was able to 
learn more about amateur radio and oper- 
ate the club ham station. Then, there was 
the Savoyards, a club dedicated to sing- 
ing Gilbert and Sullivan operettas. I still 
know several of them almost word for 
word. 

On Tuesday afternoons I went to the 
camera club. Do you know how long ago 
that was? Well, I remember going over the 
very first issue of Life magazine. Imagine, 
a magazine based on photographs. . . 
what excitement for a camera group! 

Not long ago I saw a TV program about 
Erasmus on one of the news specials. It is 
now classed as the most dangerous 
school in New York! It takes a special 
school police force to keep crime down to 
"acceptable" levels. It is an armed camp. 

Other recent television stories confirm 
the plight of teachers and of those stu- 
dents wishing to learn. Classes are a 



shambles. It is getting almost impossible 
to teach because an ever increasing num- 
ber of students have lost interest and are 
distracted by those youngsters who are 
there against their will. It is demoralizing 
for teachers, who are deserting the field 
by the thousands. 

Undisciplined Students 

Apparently no one has been able as yet 
to figure out any answer to this situation. I 
know what it's like to have even a couple 
of undisciplined students in a class. I ran 
into that in grammar school in Brooklyn. I 
don't think any of my classmates will ever 
forget Myron Nussbaum or Norman Gold- 
ing (those are the true names, so sue me 
for libel), who spent each day trying to 
make life miserable for our teacher. They 
got up when they felt like it, yelled at her, 
then tossed erasers at her, as she chased 
them around the classroom. The school 
principal couldn't do anything either. Ap- 
parently their families didn't care. So we 
lived with it, were amused by it. . . and 
hated it. 

Perhaps the computer comes to educa- 
tion just in time. Before we can accept the 
computer we may have to adjust to a fact 
of life: It is not our responsibility to force- 
feed education to children. Isn't it enough 
that we make it available? 

We're a prisoner of our past in much of 
this. Schools developed for good reasons, 
but they evolved into giant baby-sitting 
systems for most families. Summer vaca- 
tions may have been a blessing for the 
kids, but many mothers sighed when they 
came. 

I believe that eventually we will provide 
a better quality of education by means of 
computerized teaching than is currently 
available in most schools. Truly interest- 
ing courses can be taught by some of the 
best teachers in the world. The computer, 
as I've written before, can control the 
speed of the teaching process, gearing it 
to the interest and intelligence of the stu- 
dent. 

Once we have developed better learn- 
ing systems, not dependent upon live 
teachers for other than minor support and 
advice, it may be possible to move these 



systems into the home. This may be a 
healthy change for society and result, in 
the long run, in more highly motivated 
children. 

But what has brought such a radical 
change to Erasmus High? 

Many factors have transformed schools 
over the last forty years. We can certainly 
point to the almost standard family with 
two working parents, a necessity just to 
meet payments for homes and food, but 
which has removed the influence of the 
mother from our children after school. 

Worse, the ubiquitous television and its 
continuously violent offerings not only 
claims our children's attention, but 
almost totally occupies the parents in the 
evening too. This removes the chances for 
any serious communication between 
parents and children. 

Add to this the doctrine of Dr. Spock 
and the "let the children do what they 
want" attitude, and we may have the roots 
of the lack of respect and the vandalism 
which is now engulfing us. 

Police Protection 

When I see movies of teachers trying to 
cope with children who are uninterested 
in learning, I wonder that these teachers 
aren't lobbying harder for computers to 
help them with their thankless jobs. With 
computers for each student there would 
be less opportunity for students to create 
havoc, throw erasers (there will be no 
more erasers), or molest the teachers. At 
Erasmus teachers have police protection 
walking around the halls. 

One of the problems of compulsory 
education is not only that it forces chil- 
dren to be in school but that it also acts 
upon the teachers, who address captive 
audiences, and thus have no responsi- 
bility to make the work interesting. 

In my four damned years of college I 
had only one teacher who made an effort 
to make his classes interesting, and he 
succeeded. Every student enjoyed his ac- 
counting class... and learned, because 
the course was fun and exciting. Imagine 
a subject as dry and dusty as accounting 
being fun! The rest of the classes stunk. I 

Continues to page 10 
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by Ed Juge, director of 

computer merchandising, Tandy Radio Shack 




Sincere thanks to all of our friends who 
have written the last couple of 
months. We appreciate your input. I've an- 
swered as many of your letters as time al- 
lowed, passed some on to Bill Walters, 
and some to the appropriate product man- 
agers for reply. Those suggestions you 
made did get into the appropriate hands. 

Occasionally I'm asked why I talk 
about products before they're actually 
available, or say something which readers 
know, when they read it, is not true. This 
week, by phone, came the best sugges- 
tion of all: Why don't I explain both of 
these concerns every couple of months 
for those who haven't followed the col- 
umn regularly. 

It's relatively simple: In an early column 
we said that we would be as up front with 
you as possible, even at the risk of being 
proven wrong, or having a discussed prod- 
uct delayed, etc. I said we'd try it, but that 
readers would have to allow a fudge factor 
for Murphy's law, which would surely take 
its toll. All in all, it's worked well. However, 
there are a few folks that have really got- 
ten bent out of shape at unintentional in- 
accuracies. 

The second factor is that the column for 
each issue is written some three months 
prior to the cover date. Unless the facts of 
the subject look pretty stable, I normally 
do not mention them, but even those ap- 
pearing certain can fall through the 
cracks. So, now you know how the inaccu- 
racies happen. 

Next, I owe all of you an apology. With 
the appearance of the March issue of 80, a 
call came in asking about the "color com- 
puter accessory" I promised to talk about 
in March. Well, I blew it! I'll try to be more 
careful in the future. 

TRS-80 Microcomputer News 

Believe it or not, we still get letters al- 
most daily from disgruntled customers 
who aren't getting the TRS-80 Microcom- 
puter News. Or from those who are dis- 
gusted about having to pay for it after the 
first twelve free issues (some of you didn't 
even get them). I've probably written sev- 
eral hundred personal letters on the sub- 
ject. I've mentioned it here twice, and it's 



been on CompuServe, with the hope of 
getting the word around by hearsay to 
those not getting the publication. 

Your name is placed on the mailing list 
on our big computer system, dated from 
the card which came with your computer. 
If you thought sending in this card as reg- 
istering your warranty, forget it! Radio 
Shack warranties products based on the 
date on your original sales ticket and 
nothing else. The only reference made to 
that card is for the purpose of mailing 
newsletters and special computer infor- 
mation to you. If you thought you were ex- 
tending your equipment warranty by de- 
laying mailing it, you're in for a big sur- 
prise. If you didn't want to invest in an 18 
cent stamp, you really didn't want the 
News, and I can't feel sorry for you. 

If you didn't get a card, we can register 
you from a written request and a photo- 
stat of your original sales ticket, showing 
purchase of a new computer (CPU only) 
from any authorized Radio Shack outlet. 
But if you try to get on the mailing list a 
second time, don't bother... our com- 
puter remembers you, and knows whether 
or not you've had your 12 labels run al- 
ready. It also knows whether two separate 
purchases were involved, entitling you to 
24 months, etc. 

Unauthorized Dealers and The Black Hole 

Remember, there are some unauthor- 
ized folks out there selling new TRS-80's. 
If you bought from them, their sales ticket 
means nothing to us. If you didn't get a 
free newsletter card from them, talk to 
them. . .not us. Maybe they'll buy you a 
$12.00 subscription. 

Let's assume you get properly regis- 
tered into our computer system as a new 
owner. We print labels for 12 copies of Mi- 
crocomputer News, following your regis- 
tration. They're affixed to newsletters, 
and delivered to the post office. The mail- 
ing service returns any labels "eaten up" 
by the automatic labeling equipment, and 
we duplicate them. This is to ensure that 
everybody on the list has a newsletter de- 
livered to the post office. That's all we can 
do. If yours gets lost in a USPS black hole, 
the only solution may be to subscribe. 



Paid subscribers are mailed first class, 
rather than the bulk mail used for the free 
copies. First class seems to somehow ef- 
fectively circumvent the black hole. 

Sorry, we can't send the newsletter free 
forever, nor can we keep sending it until 
you've managed to receive twelve copies. 
As a matter of fact, our two largest com- 
petitors in the small computer market in- 
clude one who publishes no newsletter at 
all, and one who charges you from issue 
number one! Consequently, I don't feel 
our policy is all that bad. You'll also find 
that our newsletter is no longer just an ad- 
vertising sheet as it originally was. We 
make new product announcements, along 
with in-depth product descriptions, but 
there's no outright advertising at all. 

Sorry Again 

Sorry again, but we do not have a signi- 
ficant supply of back issues! In fact, many 
of the back issues are no longer available, 
so save yourself and us some time and 
don't bother asking for them. 

Level II Teaching Book Available 

You've been asking for this one for only 
about two and a half years now. I hope it's 
better late than never! Written in-house, 
it's entitled Getting Started With TRS-80 
BASIC, and is priced at $6.95. 

It applies equally to both Level II and 
Model III BASIC and is written in the same 
style as our original Level I training man- 
ual. 

There are three parts to the book. Part 
one is for the absolute beginner, the first- 
time user, who has only just found the on/ 
off switch. Part two takes full-swing into 
the language and part three goes into 
some of the more advanced concepts and 
commands including PEEK and POKE, 
graphics, error-handling, formatted print- 
ing, etc. There are exercises, sample pro- 
grams, tables and charts, and of course a 
complete index (342 pages in all). If you're 
already a proficient programmer, you'll 
want this book as a reference for your 
Model I or III; even Model II owners will 
find it most useful. It is also a valuable ref- 
erence guide for other family members 
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META TECHNOLOGIES 

26111 Brush Avenue, Euclid Ohio 44132 

CALL TOLL FREE 1-800-321-3552 TO ORDER 

IN OHIO, call (216) 289-7500 (COLLECT) 




FILE BOX 

DISKETTE STORAGE SYSTEM 




$29.95 



95 

for 5Va "disks 
. for 8" disks 



MTC brings you the ULTIMATE diskette 
storage system, at an affordable price. Stor- 
ing 50 to 60 diskettes, this durable, smoke- 
colored acrylic unit provides easy access 
through the use of index dividers and ad- 
justable tabs. Unique lid design provides 
dust-free protection and doubles as a carry- 
ing handle. 



MICROPA RA PHERNA LI A 

DISKETTES (box of ten) 

5Vt" PLAIN JANE™ $21.95 

5W PLAIN JANE - ™ <6Ud $25.95 

5V«" DATALIFE™ MD 525-01 . . $26.95 
8" DATALIFE™ FD34-8000 .... $43.95 

NEWDOS by APPARAT 

NEWDOS/80 * SPECIAL • . . . $129.95 

NEWDOS + to 

NEWDOS/80 UPGRADE CALL 

NEWDOS + with ALL UTILITIES 

35-track $69.95 

40-track $79.95 

BOOKS 

TRS-80™ DISK 

AND OTHER MYSTERIES . . $19.95 
MICROSOFT™ BASIC DECODED $29.95 
1001 THINGS TO DO WITH YOUR 

PERSONAL COMPUTER .... $ 7.95 



'RINGS' & 
THINGS 

Help prevent data loss and media damage 
due to improper diskette centering and 
rotation with the FLOPPY SAVER™ rein- 
forcing hub ring kit. 7-mil mylar rings in- 
stall in seconds. Kit is complete with 
centering tool, pressure ring, 25 adhesive 
backed hub rings and instructions. 

HUB RING KIT for 5W disks $10.95 

HUB RING KIT for 8" disks $12.95 

REFILLS (50 Hub Rings) $ 5.95 

Protect your expensive disk drives and 
your valuable diskettes with our diskette 
drive head cleaning kit. The kit, consisting 
of a pair of special "diskettes", cleaning 
solution and instructions, can be used for 
52 cleanings. Removes contamination 
from recording surfaces in seconds 
without harming drives. 

CLEANING KIT for 5 V*" drives $24.95 



PLASTIC LIBRARY CASES 

(not shown) 
I An economical form of storage for 10 to 15 
; diskettes, and is suitable for your bookshelf! 
I Case opens into a vertical holder for easy ac- 
\ cess. 

I 5'/4-inch diskette case $3.50 

I 8-inch diskette case $3.95 



Let Your TRS-80™ Test Itself With 

THE FLOPPY DOCTOR & 
MEMORY DIAGNOSTIC 



by THE MICRO CLINIC 

A complete checkup for your Model I. THE 
FLOPPY DOCTOR completely checks every sec- 
tor of 35- or 40-track disk drives. Tests motor 
speed, head positioning, controller functions, 
status bits and provides complete error logging. 
THE MEMORY DIAGNOSTIC checks for proper 
write/read, refresh, executability and exclusivity 
of all address locations. Includes both 
diagnostics and complete instruction manual. 

SYSTEM DIAGNOSTICS $19.95 

An improved version of the SYSTEM 
DIAGNOSTICS above. Designed for single 
or double density, 35-, 40-, 77-, or 80- 
track disk drives. Includes new and 
modified tests. Features THE FLOPPY 
DOCTOR, Version 3.0. 

SYSTEM DIAGNOSTICS- V3. . $24.95 



Single Sided, Soft-Sectored 5%-inch, 
(for TRS-80™) Mini-floppy 

DISKETTES 



$21 



95 

box of 10 



These are factory fresh, absolutely first 
quality (no seconds!) mini-floppies. They are 
complete with envelopes, labels and write- 
protect tabs in a shrink-wrapped box. 

PLAIN JANE ™ 

DISKETTES 

The Beautiful Floppy 

with the Magnetic Personality™ 

Thousands of people have switched to this 
low-cost alternative. These quality diskettes 
are packaged in a plain white box ... no fan- 
cy printing, fancy names or fancy labels, not 
even our own (labels cost money). Trust us. 

PLAIN JANE™ Diskettes $ 21.95 

10 boxes of 10 (eachbox)$21.50 

PLAIN JANE™ <8c6l 

Introducing MTC's premium generic 
diskette. Single-Sided, Soft-Sectored, 
DOUBLE-DENSITY, 5"/4-inch diskettes with 
reinforcing HUB-RINGS. Individually 100% 
ERROR-FREE certified. Invest in GOLD! 

PLAIN JANE™ <9dd $25.95 

VERBATIM'S PREMIUM DISKETTES AT 
AFFORDABLE PRICES 

DATALIFE™ 

Seven data-shielding improvements mean 
greater durability and longer data life. 
These individually, 100% error-free cer- 
tified diskettes feature thicker oxide 
coating, longer-lasting lubricant, improved 
liner, superior polishing and more! Meets 
or exceeds IBM, Shugart, ANSI, ECMA 
and ISO standards. Reinforcing HUB 
RINGS help prevent data loss and media 
damage, reducing errors. 
Buy the best ... buy DATALIFE™ 
VERBATIM DATALIFETM DISKETTES 
5 , /.-inch (box of 10) 

MD525-01 $26.95 

10 boxes of 10 . (each box)$25.95 

8-inch FLOPPIES 

Double-Density, FD34-8000 . $43.95 



MORE 

PRODUCTS 



TRS-80 is a trademark of the 

Radio Shack Division of Tandy 

Corporation. DATALIFE is a 

trademark ot VERBATIM. PLAIN 

JANE, AIDS-I, AIDS-HI. CALCSIII, 

CALCS-IV, MERGE-III are 

trademarks of MTC. 
1981 by Metatechnologies 
Corporation, Inc. 



MOST ORDERS 

SHIPPED WITHIN 

ONE BUSINESS DAY 

Products damaged in 



PRICES IN EFFECT 

May 1, 1981 THRU 

May 31, 1981, 

Prices, Specifications, 
iand Offerings subject to 



transit will be exchanged, change without notice. 



WE ACCEPT 

• VISA 

• MASTER CHARGE 

• CHECKS 

• MONEY ORDERS 

• CO D. 



•Add $3.00 for shipping 

& handling 

•$3.00 EXTRA for C.O.D. 
•Ohio residents add 6V4% 

sales tax. 



who would like to learn how to program. 
(Model III owners will receive a copy at no 
charge, since this is the equivalent of the 
Level II Reference Manual supplied with 
Model I Level II machines.) 

TRS-80 Software Sourcebook, Volume 3 

By the time you read this column, the 
third printing of our sourcebook should be 
ready. It looks like it will top 2,000 listings 
with this issue! Amazingly, we have re- 
ceived almost no complaints from folks 
who have ordered programs from the 
book. As most of you know, we suggest 
that you contact the advertiser and draw 
your own conclusions as to the viability of 
their product, since Radio Shack can't 
possibly verify the useability, accuracy, or 
even the existence of the programs listed. 

For those of you unfamiliar with the 
book, it lists applications programs for 
various TRS-80's, available from a variety 
of vendors. There's a brief description of 
the program, minimum required equip- 
ment, formats in which it's available (cas- 
sette, diskette, source listing, etc.), and 
cost. It also includes the vendor's name 
and address for ordering. 

Pocket Computer Sale 

Although I know you may receive this 
magazine a few days before the end of 
April, I'm going to tell you anyway, be- 
cause it's exciting news! During the 
month of May, our fantastic TRS-80 Pock- 
et Computer will be on sale for $199! 
That's a savings of $50 off the regular 
price. You can't buy one for the sale price 
until May 1, so don't bother trying. But 
come May 1 , if you've been putting off get- 
ting your Pocket Computer, there won't 
ever be a better time! There'll be a lot of 
pre-recorded software available for a num- 
ber of applications, and of course you can 
get the optional cassette interface (not on 
sale) to load our packages, or your own. 

I can't tell you how much nicer it is to 
have a BASIC programmable computer in 
your pocket or briefcase, than a calcula- 
tor. Don't miss this chance, because after 
the end of May the price may never be this 
low again. I'm telling you about the sale 
here, since 80 Microcomputing doesn't 
carry Radio Shack advertising. Wayne 
feels it might somehow compromise edi- 
torial credibility. Although we'd like to 
spend a little money with him, we respect 
his feelings. 

Daisy Wheel II Deliveries 

Here's a bit of forecasting I sincerely 
hope proves to be wrong. However, pres- 
ently every indication says that our projec- 
tions of demands for the Daisy Wheel II 
printer was grossly under the mark. We've 



done everything possible to speed up de- 
liveries, but don't see the situation improv- 
ing before late summer or fall. We're even 
trying to fly as many in as we can, and 
speed up production to the greatest possi- 
ble extent. We all knew a reasonably- 
priced daisywheel printer would be a win- 
ner. However, we were unprepared for the 
more than overwhelming response it has 
received. Thanks for your support, and 
bear with us. We're doing our best to 
catch up! We'll be watching the demand 
on other items too, like the new Line 
Printer VII. 

I'd like to close out by referring those of 
you who didn't read my March, 1981 col- 
umn which dealt with what goes into a 
Radio Shack product. At this writing it's 
too early to have heard any feedback, but I 
believe the things I outlined are quite sig- 
nificant. Those TRS-80 owners or potential 



Continued from page 7 

was saddened, but not surprised, to read 
in the school paper a couple years later 
that this teacher had committed suicide. 
He was a misfit in that school, possibly in 
any school. But at least, through him, 
many of us got just a taste of what educa- 
tion could be. 

I think that if education is to survive, we 
must realize that it is a kind of show biz 
and accept the fact that education must 
be interesting. It really can be done. . . 
even in accounting. And, you know, while 
nearly everything else that I studied in col- 
lege has been long forgotten, accounting 
has stayed with me— I still think of it as 
fun. 

What about kids who are not interested 
in education? Is it really our responsibility 
to force feed them school work? Perhaps 
we should legitimize child labor, eliminate 
the minimum wage requirements for chil- 
dren under 18, and see what happens. Oh 
my bleeding heart! Would kids find that 
the alternative to education is less pleas- 
ant than school? 

It is my intention with Instant Software 
to pursue the development of automated 
learning systems. I have in mind, at pres- 
ent, something akin to a video cassette 
which is coupled to a microcomputer. The 
micro would be programmed to show the 
video program and stop every now and 
then to make sure the student is keeping 
up with the material. If the student is un- 
able to answer questions correctly, the 
machine would rewind and go over the 
misunderstood material again. A different 
series of questions would follow. In this 



owners I've talked with by phone, and dis- 
cussed the subject with were quite sur- 
prised to hear what we're trying to accom- 
plish, and a number of them have indicat- 
ed that it influenced their final "which to 
buy" decisions. 

The point is, if you own a TRS-80, we'd 
like you to feel pride in ownership, and 
know that your ideas and opinions about 
new products, product improvements, 
and how we could gear up to serve you 
better are very important to us. We appre- 
ciate hearing your thoughts. Again, due to 
the limited resources for individual replies 
please direct routine questions to our 
Computer Services Group, 900 Two Tandy 
Center, Fort Worth, TX 76102. Send prod- 
uct or service suggestions to Computer 
Merchandising, 700 One Tandy Center, 
same city & zip. Thanks, and see you 
again next month. ■ 



way the progress of the course would be 
matched to the student. 

If this should prove effective, I forsee a 
time when we might be using video disks. 
A particular program might cost several 
million dollars to produce, but it could be 
used to teach hundreds of millions of peo- 
ple. The lesson could be translated into 
any language and provide relatively low- 
cost education even for the most remote 
and poorest of third world nations. 

Getting back to Erasmus for a moment. 
The clubs came to an end when the teach- 
er's union came into power. The union in- 
sisted that teachers be paid overtime 
when supervising after-school clubs. The 
school had no budget for this additional 
expense, so there went all those wonder- 
ful clubs.B 



Wordstar 



One of our readers, Charles R. Perel- 
man, has written a very handy book called 
Shelter From the Tax Storm. 

The interesting part of the book, other 
than the contents, is that it was written on 
a TRS-80 Model II using Wordstar and 
CP/M. It was printed out on a NEC Spin- 
writer and photo offset directly from that 
printout. Chuck would have used TRSDOS, 
but couldn't find a driver for the NEC, 
hence the CP/M. 

Chuck, by the way, is also a ham. Funny 
how many computerists are. WA60GW. 

If anyone is interested in the book. . . 
and almost everyone should be... it is 
available from Chuck for $10. His address 
is 9777 Wilshire Bvd #700, Beverly Hills, 
CA 90212. Mention me.l 



10 • 80 Microcomputing, May 1981 



m 



META TECHNOLOGY 

26111 Brush Avenue, Euclid Ohio 44132 
CALL TOLL FREE 1-800-321 3552 TO ORDER 

IN OHIO, call (216) 289-7500 (COLLECT) 
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TR&QO. DESK 

& OTHER MYSTERIES 




The perfect supplement for your 
NEWDOS, from IJG, Inc. 

"TRS-80™ DISK AND 
OTHER MYSTERIES" 

by Harvard C. Pennington 

132 pages written in PLAIN ENGLISH packed 
with HOW TO information with details, examples 
and in-depth explanations. Recover lost files and 
directories, remove file protection, make BASIC 
programs unlistable. How to use SUPERZAP, 
recover from DOS errors and MORE! 

TRS-80™ DISK $19.95 



"OTHER MYSTERIES" 
VOLUME II 

foreword by 

H.C. PENNINGTON 

WW/WW/7 R4SIC DECODED 

«fc- OTHER MYSTERIES 

for Hi,- IIIS-.SO 



Let your TRS-80™ Teach You 

ASSEMBLY 
LANGUAGE 

REMSOFT's unique package, "INTRODUCTION 
TO TRS-80* ASSEMBLY PROGRAMMING" in- 
cludes ten 45-minute lessons on audio cassettes, a 
display program for each lesson providing illustra- 
tion & reinforcement, and a text book on TRS-80*' 
Assembly Language Programming. Includes use- 
ful routines to access keyboard, video, printer and 
ROM. Requires 16K - Level II, Model I. 

REMASSEM-1 $69.95 

FOR DISK SYSTEMS $74.95 



MICROPA RA PHERNA LI A 

DISKETTES (box of ten) 

5 1 /*" PLAIN JANE™ $21.95 

5V4" PLAIN JANE™ fj<,M $25.95 

5 1 /." DATALIFE™ MD 525-01 . . $26.95 
8" DATALIFE™ FD34-8000 .... $43.95 

NEWDOS by APPARAT 

NEWDOS/80 * SPECIAL * . . . $129.95 

NEWDOS + to 

NEWDOS/80 UPGRADE CALL 

NEWDOS 4 with ALL UTILITIES 

35-track $69.95 

40-track $79.95 

BOOKS 

TRS-80™ DISK 

AND OTHER MYSTERIES . . $19.95 
MICROSOFT™ BASIC DECODED $29.95 
1001 THINGS TO DO WITH YOUR 

PERSONAL COMPUTER .... $ 7.95 



Let Your TRS-80™ Teach You 

ASSEMBLY LANGUAGE 
DISK I/O TECHNIQUES 

REMSOFT does it again! REMDISK-1 is a concise, 
capsulated supplement to REMASSEM-1. Package _ 
consists of two 45-minute lessons on audio casset- B 
tes, and display programs providing illustration * 
and reinforcement. Provides specific track and 
sector I/O techniques, and sequential and random 
file access methods and routines. 

REMDISK-1 $29.95 



TRS-80 is a trademark of the 

Radio Shack Division of Tandy 

Corporation. DATALIFE is a 

trademark of VERBATIM. PLAIN 

JANE, AIDS-I, AIDS-MI, CALCS-III. 

CALCS-IV, MERGE-III are 

trademarks of MTC. 

©1981 by Metatechnologies 

Corporation, Inc. 
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Call now and place your order for tnis new book, 
"MICROSOFTTM BASIC DECODED & OTHER 
MYSTERIES for the TRS-80TM", from IJG, Inc. 
A primer for cassette and disk BASIC on the 
TRS-80TM, the information provided applies to 
similar MICROSOFTTM BASIC interpreters. 
Features include definition of terms, an over- 
view of BASIC and DOS, explanation of exits, er- 
ror codes, verb actions, "cold" and "warm" 
restart procedures and examination of system 
utilities, arithmetic support and I/O driver 
routines, and the communications region in 
RAM. Individual routines are explained in detail, 
with an index provided for easy access. Appen- 
dixes include tables for BASIC and DOS vectors, 
stacks and interrupt locations, PLUS thousands 
of comment lines for the complete 

microsofttm basic. 

MICROSOFTtm basic decoded . . $29.95 




THINGS TO 
00 WITH YOUR 
PERSONAL COMPUTER 

BY MARK SAWUSCH 



333 pages 

$7.95 



333 pages, written in simple terms, of "what-to-do" and "how- to-do- it". 
Suitable not only for microcomputers, but for programmable 
calculators as well. Includes program listings, formulas, a glossary of 
computer terms and more! Definitely a MUST BUY! 
A PARTIAL LIST OF APPLICATIONS 



Electric Memorandum 
Energy Efficiency Computation 
Test Your Typing Speed 
Statistical Analysis 
Options Analysis 
Logic Circuit Analysis 
Antenna Design 
Carpenter and Mechanic's Helper 



Income Tax 

Speed Reading 

Check Digit Generator 

Personality Test 

Morse Code 

Finances and Investments 

Biorythm 

Letter Writing 



Simultaneous Equation Solver 

Real Estate Evaluation 

Astrology 

General Purpose Clock/Timer 

Recipe Index/Calculator 

RPN Calculator 



Calculation of the Number of Days Between Two Dates 




MOST ORDERS 

SHIPPED WITHIN 

ONE BUSINESS DAY 

Products damaged in 
transit will be exchanged. 



PRICES IN EFFECT 

May 1, 1981 THRU 

May 31, 1981, 

Prices, Specifications, 
and Offerings subject to 
change without notice. 

8105 



WE ACCEPT 

• VISA 

• MASTER CHARGE 

• CHECKS 

• MONEY ORDERS 

• COD. 
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Fantastic Formatter 

The LPRINT Formatter II program by 
Charles Z. Tzinberg in the February issue 
of 80 Microcomputing is fantastic! 

I use a Centronics 779 printer and in 
order to get a listing of a program, I must 
use the smallest print available so as not 
to lose any of the longer lines. This makes 
it extremely difficult to read. Tzinberg's 
program allows the use of the largest print 
size and makes debugging a program a 
breeze. 

I have one suggestion to improve the 
program. Currently, when the listing is 
finished, printing will cease in the middle 
of the page. By changing the following 
lines, the printer will advance to the top of 
the next page (after inserting the string of 
dashes, if you used that option) so that 
your last page will be uniform in size to the 
others. The changes in the following lines 
are underlined: 



7 X + E: G0SUB2: S = PEEK(X): X = E + 1 : G0SUB2: 
S = S + PK- PEEK(X) :X = E + 2: GOSUB2: L = PEEK 
(X): X = E + 3: GOSUB2: L = L + PK. PEEK(X): IFL> 
HI or S = THEN GOTQ15 : ELSE IF L<LO etc. 
15 LPRINTSTRING$(59-LN,138): LPRINTSTRINGS 
(ML," - "): LPRINTSTRING$(4,138): E = S: PG = PG 
+ 1: IFL>HI THEN END ELSE GOTO 6 

Patricia M. Finkenbine 
Albuquerque, NM 87111 

The Thirteenth Place 



13.3.1981: After considering all the cir- 
cumstances from a slightly unbiased 
view, I can only conclude that your March 
issue should have never gotten near my 
Model I. 

Everything was fine before it showed 
up: The drives, printer, interface and rest 
of the gang were merrily churning along at 
a consistent ten hours a day pace. No par- 
ity panics, no boot blowouts, no directory 
divebombs. 

Then the March issue came. Since I'm 
seriously considering buying a Model II 
(thus will be trusting those folks in Texas 
with my hard earned bucks and future), 
the article about John Roach grabbed me 
by the granules. After all, if I'm giving him 
over four grand, I'd at least like to know if 



he's a good guy or if he'll scurry off to 
Tahiti with my money. 

I turned to the contents page. Sure 
enough, there was a teaser about Roach, 
the new computer chip king, and another 
piece on Kornfeld, the outgoing DOS 
scepter holder. But there wasn't a page 
number. No problem I figured— scan the 
right hand page, the one with the DIR 
(l,A,S) type readout. 

No luck. Okay, next step. Scan the right 
page again, this time looking for a filespec 
with Nancy Robertson's byline. That 
panned out for a story, but not the one I 
was looking for. 

Using the standard humanoid system 
(Version 1.0 as best I can tell) I "super- 
zapped" the magazine page (byte) by 
page. Snuggled in on page 82 I found it. 

Having worked for monthly magazines 
for seven years, I can understand such a 
problem— hey— it happens to everybody. 
But at about the same time I was on safari 
for the article my TRS-80 started rolling 
over. Disk drive problems: Directory Read 
Errors, Bad Parity Errors, Motor Speed 
Too Slow, Motor Speed Too Fast, Dummy 
At Controls, etc. If it's in the Owner's Man- 
ual under disk errors, I got it on my screen. 

What I want to know is this: How con- 
tagious is this, and how long does it last? 
Brad Zimmerman 
Fountain Valley, CA 

Any computer person will have no trouble 
spotting the date of this letter. I also take 
it as read that you've broken a couple of 
mirrors lately. Sprinkle a pinch of salt over 
the back of the keyboard and all should be 
OK.— Eds. 

An Unsympathetic Ear 

H. C. Pennington's response in the 
March 1981 80 Microcomputing to an un- 
favorable review of his book, TRS-80 Disk 
& Other Mysteries, heaps scorn on the re- 
viewer. Pennington seems convinced that 
the ability to hurl insults is a sign of 
superior intelligence. 

When the invective is stripped away, 
Pennington's defense of his book is lame. 
The fact remains that TRS-80 Disk is of lit- 
tle value without the purchase of a partic- 



ular kind of software, for which it is an ex- 
tended advertisement. Neither this fact 
nor any indication that the book will be of 
interest only to a very limited audience is 
apparent in the promotion of the book. 
The book, like the article, illustrates Penn- 
ington's talent for abuse, with Radio 
Shack as the object instead of John 
Grass. 

Four pages of my favorite computer 
magazine were wasted on this display of 
bad temper. 

Malcolm Nygren 
Champaign, IL 

Pocket Computer Tips 

Here are a few tips which I have dis- 
covered for use with the Radio Shack 
Pocket Computer: 

While in the PRO mode, instead of typ- 
ing LIST (or L), just hit the I key or the t 
key. Holding the 4 key down will LIST the 
program starting from the lowest line 
number and working up, while hitting the t 
key will start from the highest line number 
and work down. 

If a different "E" is needed for some rea- 
son, use the Exp (exponential) "E". 

Finally, while using the DEF, RUN, or 
RESERVE mode to do a series of calcula- 
tions, and you hit enter but want to check 
the figures you used, hit either the < key or 
the > key to review the numbers. Other- 
wise, you can edit them and just hit enter 
to get the new result. 

Bradley Smith 
Yarbo, Saskatchewan SOA 4VO 

In Praise of Percom Data 

When a customer gets a good response 
from a manufacturer, the news should be 
heard by someone. This was the case with 
me when I purchased a Percom TFD-100 
Disk Drive. 

I was plagued by chronic inability to 
make successful backup copies of my 
TRSDOS using TFD-100 and TRS-80 Model 
I, Level II. I was able to do anything with 
OS-80 but not with TRSDOS. I wrote to Mr. 
Jim Stuttsman at Percom Data Co. in July 
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META TECHNOLOGIES 

26111 Brush Avenue, Euclid Ohio 44132 

CALL TOLL FREE 1-800-321-3552 TO ORDER 

IN OHIO, call (216) 289-7500 (COLLECT) 



MTCAIDS- 



TM 



MODEL I . . $69.95 MODEL II . . .$99.95 

L n iSSSSiil?&. t !ff« ,atest additlon t0 MTC ' S f a mi| y of data management systems, AIDS-III. NO 
PROGRAMMING, easy to use. COMPLETE PACKAGE including demonstration application 
documentation and MAPS-III (see below). 

• Up to 20 USER-DEFINED FIELDS of either numeric- or character-type. 

• CHARACTER-type fields may be any length (total: up to 254 characters). 

• NUMERIC-type fields feature automatic formatting, rounding, decimal alignment and 
validation. 

• Full feature EDITING when adding or changing records: 

- ENTER FIELD (can't type-in more characters than specified). 

BACKSPACE (delete last character typed). - RIGHT-JUSTIFY FIELD contents 

■ gl^ETE I HELD contents^ - SKIP FIELD (to next or previous field). 

RESTORE FIELD contents. - SKIP RECORD (to next or previous record) 

• SORTING of records is MACHINE CODE assisted 

- 200 RECORDS (40 characters) in about 5 SECONDS. 

- ANY COMBINATION of fields (including numerics) with each field in ascending or 

descending order. 

• SELECTION of records for Loading, Updating, Deleting, Printing and Saving is 
MACHINE CODE assisted. 

Specify up to 4 CRITERIA, each using one of 6 RELATIONAL COMPARISONS. 

- LOAD or SAVE selected records using MULTIPLE FILES. 

- Example: Select records representing those people who live in the state of Col- 

orado, but not in the city of Denver, whose last names begin with "F" 
and whose incomes exceed $9000.00. 

- Example: Select records representing those sales made to XYZ COMPANY that 

exceed $25.00, between the dates 03/15 and 04/10. 

MAPS-III (MTC AIDS PRINT SUBSYSTEM), included at no charge, has the following features" 

• Full AIDS-III SELECTION capabilities. 

• Prints user-specified fields DOWN THE PAGE. 

• Prints user-specified fields in titled, columnar REPORT FORMAT automatically 
generating column headings, paging and (optionally) indentation.' 

• Can create a single report from MULTIPLE FILES. 

• Prints user-defined formats for CUSTOM LABELS, custom forms, etc. 

BELOW ARE TESTIMONIALS from owners of AIDS systems. These are absolutely authentic 
statements and are typical of the comments we receive. 

"This program will do more for my business than all the other programs I 
have, combined. B 

David Wareham, Vice President (EDP), National Hospital and Health Care Services Inc. 

"We have 32 different Data Base Management packages for the TRS-80. AIDS-III is easily 
the best. It also makes it easier for us to step up to our Model II since the package is 
available for both computers." 

Jack Bilinski, President, 80 Microcomputer Services 

"Your AIDS program is far and away the finest information management system that I've 
ever seen. I am currently using it to maintain a clear picture of the demographic data on all 
the kids in our residential treatment program and it is working for me superbly." 
Frank Boehm, Director, Front Door Residential Treatment Pro g ra m 

MTC AIDS CALCULATION SUBSYSTE™ 



MODEL I . . .$24.95 

MFC's most popular AIDS subsystem. Use 
for report generation involving basic 
manipulation of numeric data. Features are: 

• User-specified page title 

• Columnar Headings 

• Optional Indentation 

• Use for accounting, inventory, financial 
and other numeric-based information 
systems. 



MODEL II . . .$39.95 

• Columnar subtotals generated when 
there is a change in a user-specified 
column. 

• User-specified Columnar Totals 

• Columnar values computed using con- 
stants and/or column values 

• Balance forward calculations (Ex: Gross 
sales equals previous gross sales + sale 
amount + sales tax). 



Compare AIDS-IH™/CALCS-III™ with any other data management package under $100! 
CALCSIII™ REQUIRES THE PURCHASE OF AIDS-III' 



AIDS OWNERS! 

WE HAVE WHAT 

YOU'VE BEEN 

WAITING IV. . . 

MTC CALCSIV™, that is. 

• More Computations 

• Save Report Formats on Disk 

• Faster, and more! 

CALL FOR DETAILS and 
CALCSIII UPGRADE PRICING 

MTC AIDS MERGE-III™ 

This subsystem will combine up to 14 AIDS- 
created data files into a single, large file. An op- 
tional purge capability removes duplicate entries 
while performing the merge operation (can even 
be used to eliminate duplicates in a single file). 
Machine-code assisted for high-speed perfor- 
mance, MERGE-IIITM properly handles files sorted 
by any combination of fields, including numerics, 
with each field in ascending or descending order. 

MTC AIDS MERGE-III™ $19.95 

For Model II $29.95 

MICROPARAPHERNALIA 

DISKETTES (box of ten) 

5Va" PLAIN JANE™ $21.95 

5 l /i" PLAIN JANE™ Vo/eS $25.95 

5Va" DATALIFE™ MD 525-01 . . $26.95 
8" DATALIFE™ FD34-8000 .... $43.95 

NEWDOS by APPARAT 

NEWDOS/80 • SPECIAL* . . . .$129.95 

NEWDOS + to 

NEWDOS/80 UPGRADE CALL 

NEWDOS + with ALL UTILITIES 

35-track $69.95 

40-track $79.95 

BOOKS 

TRS-80™ DISK 

AND OTHER MYSTERIES . . $19.95 
MICROSOFT™ BASIC DECODED $29.95 
1001 THINGS TO DO WITH YOUR 

PERSONAL COMPUTER .... $ 7.95 



PRODUCTS 



TRS-80 is a trademark of the 

Radio Shack Division of Tandy 

Corporation. DATALIFE is a 

trademark of VERBATIM. PLAIN 

JANE, AIDS-I, AIDS-III, CALCSIII, 

CALCSIV, MERGE-III are 

trademarks of MTC. 

©1981 by Metatechnologies 

Corporation, Inc. 



MOST ORDERS 

SHIPPED WITHIN 

ONE BUSINESS DAY 

Products damaged in 
transit will be exchanged. 



PRICES IN EFFECT 

May 1, 1981 THRU 

May 31, 1981, 

Prices, Specifications, 
and Offerings subject to 
change without notice. 

8105 



m 



WE ACCEPT 

• VISA 

• MASTER CHARGE 

• CHECKS 

• MONEY ORDERS 

• COD. 



•Add $3 .00 for shipping 

& handling 

•$3.00 EXTRA for COD. 
•Ohio residents add 6'/*% 

sales tax. 



1980. We exchanged several letters and 
worked hard. 

On September 25, Jim found that the 
TRS-80 disk controller circuits activate 
the disk drive for 2.5 seconds. But in my 
unit, it may have been less than two sec- 
onds, which caused a premature "TIME 
OUT". So he made a special patch to 
enable a successful TRSDOS backup utili- 
ty. It really worked! Not only was he obser- 
vant and creative, but he was very patient 
with my request. 

Shortly after the disk problem was 
solved, I purchased a Doubler from Per- 
com. It was easily installed as was its data 
separater. The performance of the Dou- 
bler is superb. I am now enjoying both 
DBLDOS and OS/80D. 

Thank you Jim Stuttsman and Percom 
Data Co. 

Paul S. Satoh, PhD. 
Portage, Ml 

RS-232 Interface 

Recently there was an article in another 
publication discussing Electronic Sys- 
tems' RS-232 interface. I am using their kit 
version and the bottom line is that it 
works. 

However, other readers might be saved 
some grief by sharing my experience. In 
short, if you want to use it either exclu- 
sively for output or to input with BASIC at 
no more than 300 baud, you will probably 
be satisfied. 

Unfortunately, it is not obvious how to 
use this device with assembler programs 
because the board expects the input port 
address on the high order address lines— 
not on the low order lines where the Z-80 
puts it. In spite of this design error, the 
board works with BASIC because of a 
fluke, for BASIC happens to leave the 
value coded as the input port in the A reg- 
ister which the Z-80 latches on the high 
order address lines as part of executing 
this input instruction, but it isn't really a 
port address! In other words, the actual 
port address specified in the input instruc- 
tion is essentially ignored. 

While the board happens to work with 
BASIC, there is potential for disaster in 
assembler if both the port address and the 
input register were to address different 
hardware devices. The solution is quite 
simple: Pull IC U6 and bend pin 2 (not pin 1 
as the schematic indicates) up at a 90° 
angle to the other pins so that it will not go 
back into the socket. Solder a jumper from 
pin 2 up over the top of the IC to pin 13; re- 
insert U6. This breaks the connection from 
U8 pin 8 to U6 pin 2 and connects instead 
U4 pin 8 to U6 pin 2 which changes the in- 



put port address from the high order to the 
low order address lines, from 55 (37H) to 
248 (0F8H). The address from, which 
status is loaded and into which output 
data are loaded remains 37F8H. Thus in 
BASIC the only change is to use INP(248) 
instead of INP(55). 

If you are concerned about possibly de- 
stroying something, note that this does 
nothing to the printed circuit board. Also, 
the IC costs 29<p at Hobbyworld. And 
should you ever need to, that same 29c IC 
would let you return to the original func- 
tioning of the board. 

All of the above of course assumes no 
change in design— so check your board 
(not just the schematic). To spare you a 
long sad tale of woe, suffice it to say that, 
once you get it to work, it's a nice device 
with DIP switch selectable baud rate, pari- 
ty, word length, and stop bits, but Heath- 
kit it ain't. 

Edgar C. Howell 
Simi, CA 

Tax/Saver Review 

We thank Michael Tannenbaum and 
Gordon E. Lamb for reviewing Tax/Saver in 
the February issue of 80 Microcomputing. 
We are gratified by the favorable reviews 
Tax/Saver has received. 

We would like to comment on some 
valid points raised by the article. 

Several features not included in the 
demo which was reviewed are built into 
the marketed version. An example is an 
option which allows the user to stop the 
session at numerous controlled points, 
turn the computer off, and resume pro- 
cessing from that state at a later time. 

Tax/Saver covers many schedules and 
forms in depth and detail. It accepts totals 
from all other schedules and forms. 

We would like to point out that Tax/Sav- 
er is more than a program; it's a service. 
Subscribers also receive our Tax Facts 
newsletter and are entitled to a discount 
on the yearly update. 

Netta K. Stern 

Micromatic Programming Co. 

Georgetown, CT 06829 

New Patches 



Several months ago you published a let- 
ter from us describing a set of patches to 
Model II TRSDOS version 1.2 which moved 
the break key function out of the operator's 
way so it would not be pressed accidental- 
ly while reaching for the back-space key. 
Now that TRSDOS 2.0 (and 2.0a) are al- 
most universally in place, I thought your 
readers would appreciate the equivalent 



patches for the newer releases: 

PATCH SYSRES/SYS A = 0407.F = 03,C = FE 
PATCH BASIC A = 57E7.F = 03,C = 7E 
PATCH BASIC A = 594C.F = 03,C = 7E 
PATCH BASIC A = 5F70.F = 03,C = 7E 
PATCH BASIC A = 6606.F = 03,C = 7E 
PATCH BASICA = 6515,F=03,C = 7E. 

Be sure to reset the system after apply- 
ing the patches to make them fully effec- 
tive. 

One word of caution: SCRIPSIT uses 
<ctrl>6 as a function key, therefore you 
must not apply these patches to a SCRIP- 
SIT disk. 

Robert F. Snapp, President 

Snapp, Inc. 

Cincinnati, OH 

CROSSREF Mod III 

CROSSREF, (80 Microcomputing, Janu- 
ary 1981), will work fine on aTRS-80 Model 
III if you make two changes to Part A, as 
follows: 

In line 65502, change 17128 to 17384 

In line 65504, change 17127 to 17383 
Part B needs no modification. 

To append Part A to your program on a 
Model III, one small but vital change must 
be made to the procedure described in 
Table 1. The last operation in Step 4 
should be changed from POKE16549,66 to 
POKE1 6549,67. 

These differences between Model I and 
Model III result because Radio Shack ad- 
vanced the starting address of BASIC pro- 
grams by 256 bytes. Unfortunately, the 
Model III manual incorrectly shows this 
address as being the same as for Model I. 
Donald N. Ewart 
Scotia, NY 



Review Umbrage 



Eds. Note: The following is from a letter 
sent to Dennis Thurlow, author of the 
review in question. 

As a partner in Rational Software and 
the author of the program "Programmer" 
which you reviewed in the January, 1981 
issue of 80 Microcomputing, I would like 
to comment on your review. 

The next-to-last paragraph contains a 
statement ("Once memory has been pro- 
tected for a program ... no more over- 
head should be necessary for its opera- 
tion.") which is at best a personal preju- 
dice of your own, and at worst, simply un- 
true. You would not expect a text editor or 
an interpreter to function without using 
external memory; why then demand that 
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META TECHNOLOGIES 

26111 Brush Avenue, Euclid Ohio 44132 

CALL TOLL FREE 1-800-321 -3552 TO ORDER 

IN OHIO, call (216) 289-7500 (COLLECT) 



MTC AIDS CALCULATION SUBSYSTEM- 

MODEL I . . .$24.95 MODEL II . . .$39.95 



User-specified J 
page title 



lUSTOMER ACTIVITY REPORT 



PAGE 1« 



Columnar/"-------? __™ -II— SALE AMT sales tax gross sales $/unit 

Headings 



Optional 
Indentation 



V-: 



Columnar subtotals 

generated when 

there is a change 

in a user-specified 

column. 



User-specified 
Columnar Totals 



ACME 



3/10 




675.00 
1325.00 
2475.00 
3625.00 

2600.00 



37.13 

72.88 

136.13 

199.38 

143.00 



O.OO 

712.13 

2110.00 

4721 . 13 

8545.50 

11 288.50 



7.12 
6.99 
6.53 
6.37 
6.86 



10700.00 

1345.00 
674.00 

1295.00 

2435.00 
935.00 

3585.00 



588.50 



73.9! 

37.07 

71 .23 
133.93 

51 .43 
197.18 



12707 


48 


7 


09 


13418 


55 


7 


11 


14784 


77 


6 


83 


17353 


70 


6 


42 


18340 


12 


6 


58 


22122 


30 


6 


30 



- — -1650 


10269 


00 


564 


80 


200 


1325 


00 


72 


88 


100 


685 


00 


37 


68 


300 


1940 


00 


106 


70 



23520.17 6.99 
24242.85 7.23 
26289.55-. 6.82 



3950.00 



995, 
1345, 

355. 
1975. 
2520. 
4175. 



00 
00 
00 
00 
00 



217.25 

54.73 

73.98 

19.53 

108.63 

138.60 

229.63 



.29 



11365.00 



625. i 



Automatic Page 
Numbering 



User-specified 

initial balance forward 



Columnar values 
computed using 
constants and/or 
column values 







Balance forward 
calculations (Ex: Gross 
sales equals previous 
gross sales + sale 
amount + sales tax) 



36284.00 



1995.62 



Compare AIDS-IN™/CALCS-III™ with any other data management package under $100! 



,TM 



Others make claims, CALCS-llf M delivers with user-specified: 
Fields in any order, with optional indentation • Columnar subtotals and totals 

Computations using field values and constants • Full AIDS-III selection of records to be printed 

Use for accounting, inventory, financial and other numeric-based information packages. 



CALCS-IH™ REQUIRES THE PURCHASE OF AIDS 



TRS-80 is a trademark of the 

Radio Shack Division of Tandy 

Corporation. DATALIFE is a 

trademark of VERBATIM. PLAIN 

JANE. AIDS-I. AIDS-III, CALCS III. 

CALCS-IV, MERGE-III are 

trademarks of MTC. 
1981 by Metatechnologies 
Corporation, Inc. 



to MOST ORDERS 
SHIPPED WITHIN 
ONE BUSINESS DAY 

Products damaged in 
transit will be exchanged. 



PRICES IN EFFECT 

May 1, 1981 THRU 

May 31, 1981, 

Prices, Specifications, 
and Offerings subject to 
change without notice. 

8105 



WE ACCEPT 

• VISA 

• MASTER CHARGE 

• CHECKS 

• MONEY ORDERS 

• COD. 



•Add $3.00 for shipping 

& handling 

•$3.00 EXTRA for COD. 
•Ohio residents add SVz% 

sales tax. 




other utilities be self-contained? Further, 
by making that statement without provid- 
ing any information as to when or why Pro- 
grammer uses external memory, the en- 
tire purpose of the paragraph is lost to the 
reader. I find this especially irritating as I 
took some pains to make clear in the in- 
structions when, why, and how external 
memory is used. 

Finally, I'd like to say that the two bugs 
you reported have been removed from the 
program, and though it still uses external 
memory (and always will), our users are 
(as you said) finding it extremely useful. 

Tom Little 

Rational Software 

Pasadena, CA 91106 



Microsoft Computer 

I purchased my TRS-80 16K system in 
June 1980. 1 had a pressing need to manip- 
ulate strings but no computer back- 
ground. It quickly became apparent that 
due to the 15,000 characters per file I 
sought to manipulate in memory, plus my 
inability to produce efficient code, I must 
upgrade to a 48K double drive disk system. 

After an ineffably frustrating sixty days 
(and nights) and a weight loss of 25 lbs. 
(which I won't miss)— my program accom- 
plished the file manipulations intended. 

Then reality set in. The program was 
slow. So slow, in fact, that completion of 
all the assigned manipulations averaged 
just under five seconds per string. After 
boggling my way through several texts 
and borrowing more techniques from peri- 
odicals, I managed to reduce the average 
time to 2.7 seconds; still unpleasantly 
slow considering that one program cycle 
involved six or seven files of 600 to 700 
strings per file. 

Then the Microsoft compiler arrived. 
After the initial study period with the 
manual I put my program titled 
CMBSCORE/BAS (residing on a TRSDOS 
disk stripped of utilities and BASIC) in 
drive 0. The two disks that comprise the 
compiler program were installed in the 
other two drives. The rest was simple, 
even for me. I typed CMBSCORE = 
CMBSCORE (ENTER) and waited for the 
whirring and an occasional 'clunk' to stop 
(the clunk from an older style drive my 
friendly Tandy computer specialist 
passed off on me). 

Next, my display read "(0000) FATAL 
ERRORS." Scared the socks off me. Re- 
reading the manual convinced me that the 
(0000) was the important part of the mes- 
sage and the FATAL ERRORS was there, 
at least this time, just to keep my blood 
pressure up. 



The next step was also easy. Type 
CMBSCORE, CMBSCORE-N-E (ENTER). 
Several minutes later the compiled pro- 
gram was ready. I typed CMBSCORE 
(ENTER) and the program loaded and was 
displayed. I specified the files to be ma- 
nipulated and watched the strings fly by. 
The processing time was now .16 seconds 
per string instead of the previous 2.7 sec- 
onds. 

I now process files containing up to 
5500 characters each plus 700 or more 
five-digit integers at an entirely satisfac- 
tory speed. Incidently, several games 
move so fast that I am destroyed, eaten, 
mauled or gassed by trolls, goblins and 
satellites before I can press a finger in my 
own defense. Graphics flash rather than 
sputter. Another big, big bonus: TRS-80 no 
longer withdraws into that familiar cata- 
tonic state to adjust its brains. This is no 
great news to all of you experienced as- 
sembly programmers, but for beginners 
this is an exciting feature. 

I am "Bardenizing" myself, so in due 
time I may master some assembly lan- 
guage. In the meantime, that Microsoft 
compiler will be my close companion. It 
may, with my blessing, take all the room in 
memory it wishes. The least I can do for all 
the service it renders is to live with what I 
consider to be more than adequate re- 
maining memory and disk space. 

David W. Jessup 
Seattle, WA 



More Mail File System 

M. Barlow's letter in the February 80 
Microcomputing, stunned me. I thought I 
might pass along my experience with 
Galactic Software's "Mail File System." 

I am involved in a business that involves 
taking long orders from over 300 custo- 
mers, updating deliveries and mailing 
weekly solicitations to the same. No data 
base program is going to run as fast as I 
can manually do the filing and updat- 
ing—not to mention the enormous 
amount of memory I would need. But with 
clever coding (if you don't mind me saying 
so, myself), I have turned the "Mail File 
System" into a timesaving way to print 
labels, and an outstanding data base pro- 
gram. 

The zip code listing gives me an idea of 
which accounts are geographically near 
others, helping me plan sales trips. By 
coding accounts, I can systematically 
break down when an account last bought 
a particular category of items from me. It 
takes about two hours manually to do 
this; 10 minutes, total, on "Mail File Sys- 
tem". 



But, you're saying, any mailing list sys- 
tem can do that. I don't care. All I know is 
that this system works for me. My office 
help, with no computer experience, can 
run it without me being there. 

When I had a question, I called Galactic 
Software, and they gave me a useful an- 
swer. When I thanked them for the an- 
swer, they said, "That's what we're here 
for." Boy, that's great to hear! 

Yeah, the program isn't perfect. There is 
a bug in the printing test labels, but it is 
easily corrected. And I wish I could do 
form letters and have the program insert 
names. Maybe, someday, it will (hint). As I 
said, nothing is perfect, but I am willing to 
accept a product that "works first time, 
every time", and this program does. 

Neal Elkind 

1004 The Apparel Center 

Chicago, IL 60654 



Paper Tiger 



The article entitled "Paper Tiger 
Screenprinter" by Ruth Lewart in your 
February 1981 issue was excellent. Her 
explanation about creating a software al- 
phabet enabled me to construct data 
statements for the lowercase letters, 
which were not incorporated in her data. 

Below are the data statements for 
lowercase and some special characters, 
along with the appropriate program state- 
ment changes: 



10850 DATA 72,126,73,66,32, 32,84,84,84,124, 127,40,68, 
68,56,56,68,68,68,40 'lb. symbol, a, b, c 
10860 DATA 56,68,68,40,127, 120,84,84,84,24, 0,8,126,9,2, 
8,84,84,84,56 ' d, e, f, g- 

10870 DATA 127,8,4,120,0, 0,68,125,64,0, 0,32,64,64,61, 
127,16,40,68,0 ' h, i, j, k 

10880 DATA 0,65,127,64,0, 124,4,120,4,120, 124,8,4,4,120, 
56,68,68,68,56 'I, m, n, o 

10890 DATA 124,8,20,20,8, 8,20,20,8,124, 124,8,4,4,8, 
72,84,84,84,36 ' p, q, r, s 

10900 DATA 0,4,63,68,32, 60,64,64,32,124, 28,32,64,32,28, 
60,64,48,64,60 't, u, v, w 

10910 DATA 68,40,16,40,68, 12,80,80,80,124,68,100,84,76, 
68,8,54,65,0,0 'x, y, z, ( 

10920 DATA 0,0,119,0,0, 0,0,65,54,8, 41,42,124,42,41, 
85,42,85,42,85 ' vertical line with space in center, [, 
undefined character, undefined character 
10540 DIM QG$(7,3),QA$<96,3),QM(42),QN(64) 'GRAPH- 
IC, ALPHANUMERIC STRINGS AND TABLE ENTRIES 
10580 FOR Ql =0 TO 95: FOR QJ =0 TO 4 ' CREATE 
ALPHA STRINGS 

Note: Remember to clear extra string 
space in the driver program. CLEAR 3000 
should be sufficient. 

There appears to be an idiosyncrasy in 
my TRS-80. When running the Screen- 
printer with a game program, the first 
several alphanumeric characters PEEKed 



Continue to page 20 
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TAKE YOUR 
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NEW HEIGHTS 
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MTC is proud to announce MTC EXTENDED 
BASIC (or the Model II, by R. Ryen. Features in- 
clude "fixes" to existing BASIC, multi-line func- 
tions, extending an existing sequential file, PEEK, 
POKE, greatly enhanced screen control and ex- 
panded editing capabilities. The contents of 
variables are NOT CHANGED when editing, delet- 
ing, inserting or merging lines, allowing continued 
program execution! All this and much more. 

MTC EXTENDED BASIC $ 99.95 



MICROPA RA PHERNA LI A 

DISKETTES (box of ten) 

5Vi" PLAIN JANE™ $21.95 

5Va" PLAIN JANE™ '.%/</ $25.95 

5'/4" DATALIFE^ MD 525-01 . . $26.95 
8" DATALIFE™ FD34-8000 .... $43.95 

NEWDOS by APPARAT 

NEWDOS/80 •SPECIAL* . . . $129.95 

NEWDOS + to 

NEWDOS/80 UPGRADE CALL 

NEWDOS + with ALL UTILITIES 

35-track $69.95 

40-track $79.95 

BOOKS 

TRS-80™ DISK 

AND OTHER MYSTERIES . . $19.95 
MICROSOFT™ BASIC DECODED $29.95 
1001 THINGS TO DO WITH YOUR 

PERSONAL COMPUTER .... $ 7.95 



80-20=129 95 

THE ORIGINAL NEWDOS/80 

WITH MTC QUE CARD 

• SPECIAL PRICE * 
SAVE $20 $129.95 



Apparat's long-awaited successor to NEWDOS + is here! This is not an enhanced ver- 
sion of NEWDOS, but a completely new product. Simplified DOS commands can be in- 
stantly executed from BASIC, even within a program, without disturbing the resident 
code. System options, such as password protection, number and type of disk drives, 
BREAK key enable/disable and lowercase modification recognition, can be quickly and 
easily changed. Five new random-access file types allow record lengths of up to 4096 
bytes, and no FIELDing! A powerful CHAIN facility allows keyboard INPUTs to be read 
from a disk file. An improved RENUMBER facility permits groups of statements to be 
relocated within program code. Diskettes may even be designated as RUN-ONLY' 
Features all NEWDOS + utilities (SUPERZAP 3.0, etc.) and much more! One MTC 
technical staff member said having NEWDOS/80 is "better than sex" (you'll have to 
judge for yourself!). Includes 180-page instruction manual and MTC QUE card. 

NEWDOS/80 # SPECIAL # $129 95 

MTC QUE Card only $ 7 50 

CALL REGARDING OUR NEWDOS + UPGRADE PRICING 



Let Your TRS-80™ Test Itself With 

THE FLOPPY DOCTOR & 
MEMORY DIAGNOSTIC 

by THE MICRO CLINIC 

A complete checkup for your Model I. THE 
FLOPPY DOCTOR completely checks every sec 
tor of 35- or 40-track disk drives. Tests motor 
speed, head positioning, controller functions, 
status bits and provides complete error logging 
THE MEMORY DIAGNOSTIC checks for proper 
write/read, refresh, executability and exclusivity 
of all address locations. Includes both 
diagnostics and complete instruction manual. 
SYSTEM DIAGNOSTICS $19.95 

An improved version of the SYSTEM 
DIAGNOSTICS above. Designed for single 
or double density. 35-, 40-, 77-, or 80- 
track disk drives. Includes new and 
modified tests. Features THE FLOPPY 
DOCTOR, Version 3.0. 

SYSTEM DIAGNOSTICS-V3. . $24.95 



Complete for Model I with all utilities 
Plus exclusive MTC QUE card! 

NEWDOS + 



$69 



95 



by Apparat 



Includes REF. RENUM, SUPERZAP, 
EDITOR/ASSEM., DISASSEM., DIRCHECK, and 
more! This is the original NEWDOS with all of 
Apparat's utility programs. Includes exclusive 
MTC QUE (Quick User Education) card. 

40-Track Version $79.95 

MTC QUE Card only $ 1.50 



TRS-80 is a trademark of the 

Radio Shack Division of Tandy 

Corporation. DATALIFE is a 

trademark of VERBATIM. PLAIN 

JANE, AIDS-I. AIDS-III, CALCS-III, 

CALCS-IV, MERGE-III are 

trademarks of MTC. 
1981 by Metatechnologies 
Corporation. Inc. 



3 MOST ORDERS 
SHIPPED WITHIN 
ONE BUSINESS DAY 

Products damaged in 
transit will be exchanged. 



PRICES IN EFFECT 

May 1, 1981 THRU 

May 31, 1981, 

Prices, Specifications, 
and Offerings subject to 
change without notice 

8105 



L 



WE ACCEPT 

• VISA 

• MASTER CHARGE 

• CHECKS 

• MONEY ORDERS 

• COD. 



•Add $3.00 for shipping 

& handling 
•$3.00 EXTRA for COD. 
•Ohio residents add 6'/ 2 % 

sales tax. 



Increase Your 
Programming 



5NAPP 11 EXTENDED BASIC 

SNAPP II EXTENDED BASIC A family Of 
enhancements to the Model II BASIC 
interpreter. Part of the pachage origi- 
nated with the best or apparat, inc.'s 
thoughts in implementing NEWDOS 
BASIC. The system is written entirely in 
machine language Tor SUPER FAST exe- 
cution. The extensions are fully 
integrated into Model II BASIC, and 
require NO user Memory, and NO user 
dish space. The pachage is made up of 
the following six modules. 
XBASIC-Six single hey strohe com- 
mands to list the first, last, previous, 
next or current program line, or to edit 
the current line. Includes quich way to 
recover BASIC program following a 
NEW or system or accidental re-boot. 
Ten single character abbreviations for 
frequently used commands: AUTO. 
CLS. DELETE. EDIT. HILL. LIST. MERGE. 
NEW. LUST, and SYSTEM. 
XREF-A powerful cross-reference 
facility with output to display and/or 
printer. Trace a variable through the 
code. Determine easily if a variable is 
in use. 

XDUMP-Permits the programmer to 
display and/or print the value of any or 
all program variables. Identifies the 
variable type for all variables, Each ele- 
ment of any array is listed separately. 
XRENUJW-An enhanced program line 
renumbering facility which allows 
specification of an upper limit of the 
bloch of lines to be renumbered, sup- 
ports relocation of renumbered blochs 
of code, and supports duplication of 
blochs of code. 

XFIND-A cross reference facility for 
hey words and character strings, also 
includes global replacement of 
heywords. 

XCOMPRESS-Compress your BASIC 
programs to an absolute minimum. 
Removes extraneous information; 
merge lines: even deletes statements 
which could not be executed. Typically 
saves 30-40% space even for pro- 
grams without our REM statements! 
Also results in 7- 1 0% improvement in 
execution speed. 

ENTIRE PACKAGE FOR MODEL II S 200 
ENTIRE PACKAGE FOR MODEL III S I 25 
D0UBLETAKE374I 
This is not a football play but the way 
to play ball fast in converting IBM 374 1 
and similar formated dishettes to Radio 
Shach formated dishs or vice versa. 
Fast is the name of the game. S200 

SNAPP SCREEN 

Another dependable product from 
Snapp. Inc. Using rigid plastic, Snapp. 
Inc. designed the ultimate green 
screen at the lowest price. The Snapp 
Screen installs in a Snapp with the use 
of pressure sensitive tape. Reduce 
user fatigue with the Snapp Screen. 

SIO 
2.00 shipping and handling-waived 
with the purchase of any software. 



SUPERSNAPPX 

You can sort fast using your present 
facilities, or you can do it faster with 
Racets' superb facilities, or you can use 
the fastest: SUPERSNAPP X. The heart 
of SUPERSNAPP X is a SUPER FAST in- 
memory sort routine that has been 
benchmarhed against everything on 
the marhet and beats them all . . . 
hands down. 

SUPERSNAPP X is the most important 
component of SNAPP X EXTENDED 
BUILTIN FUNCTIONS which is a much 
needed set of additions to the Model 11 
BASIC interpreter that will put time sav- 
ing power at your fingertips. Let's 
compare (using random data) SUPER- 
SNAPP X and Racet's GSF SORT for 
speed: 

SORT SUPERSNAPPX RACETGSF 

1 0.000 integers 39 seconds 59 seconds 
5,000 Singles 22 seconds 34 seconds 
2.000 Strings 10 seconds 15 seconds 
SUPERSNAPP X is guaranteed to be me 
FASTEST in memory SORT on the mar- 
het or your money bach. With it you 
also get these EXTENDED BUILTIN FUNC- 
TIONS: PEEK. PEEKW. POKE. POKEW. 
XDATS XTIMS, ETIMS. FILES. AND THE 

SPECIAL SCMD (SNAPP COMMAND). 

PLUS: open "E" Set SCROLL PRO- 
TECTION. ERASE all ARRAYS in one 
command. Specify size and Blinh rate 
of CURSOR. Long ERROR messages. 
Read from video Screen Read. 
PEEK complete strings from memory. 
POKE complete strings to memory, 
convert upper case to lower case and 
vice-versa, turn complete screen off 
and on at will, extract largest or small- 
est values from user supplied list of 
numbers and probably the most pow- 
erful addition ever made to 
MICROSOFT BASIC print using into a 
string. Use your imagination with this 
function, it will perform 
wonders. si 00.00 

SPOOLER Model 1, Model II 
and Model HI 

Our worhhorse! Unlihe the one sup- 
plied with TRSDOS 2,0, ours requires 
no special hnowledge or training on 
the part of the operator. Additionally, 
ours performs much better. On the 
Tandy SPOOLER, every time a dish is 
accessed, the printer stops dead! This 
pachage is available for Model I. in the 
TRSDOS/ NEWDOS 80 versions, or for 
the Model II or Model III. Greatly 
enhances system performance when 
running typical business applications. 
Many applications have been bench- 
marhed to run nearly TWICE AS FAST 
with the SPOOLER installed. Installs in 
minutes and no changes are required 
to your programs. The Model II version 
requires NO user memory. If purchas- 
ing more than one system, call for 
price quote. SI 00 

AUT0F1LE 

Another big time saver from Snapp. 
Inc. Autofile offers all programmers 
much needed time saving tools to use 
when worhing with direct files. Elimi- 
nate tedious commands such as 
LSET'S. MKIS'S. MKDS's. MKSS'S. CVD'S, 
CVI's and CVS's. When used in con- 
junction with Automap an update 
program can typically be reduced by 
as much as 90%. SSO 



AUTOMAP 

Save time creating a formated screen 
with our Extended Basic Mapping Sup- 
port system. The programmers tash of 
communicating and displaying infor- 
mation with the user operator is 
completely automated with simple 
SEND and RECEIVE statement com- 
mands. Many different types of 
information can be sent and received 
from the operators with the use of a 
single command. Many hours of pro- 
gramming time are saved and cost 
efficiency is truly realized using 
Automap. $75 

VSAM 

Virtual Snapp Access Method. V.S.A.M's 
development was built upon several 
man years of research and devel- 
opment by Snapp, Inc. studying all 
previously available access methods to 
small computers. What evolved was 
the ultimate heyed data access • 
method available for any small com- 
puter. All records in the Data Base are 
truly variable in length to maximize the 
utilization of valuable dish space on TRS 
80 systems. Irrelevant blanhs are 
never physically recorded on the dis- 
hettes leaving only necessary data 
actually stored. Data Bases are defined 
with one primary hey. Retnval with 
this hey is quich and CONSISTANT with- 
out regard to maintenance activity 
levels. Additional fields may be 
described as alternate hey fields. 
Access time using alternate hey fields 
will be slower than through the pri- 
mary field but it also will be 
CONSISTENT without regard to Data 
Base maintenance activity levels. VSAM 
is fully integrated into BASIC with com- 
mands easy to learn and use. SS00.00 

DOTWO 

Allows programmer to build a list of 
any commands. All languages are sup- 
ported. With DOTWO a programmer is 
now allowed to add any new com- 
mands of any hind and not be limited 
to subset restrictions. Anything that 
can be typed into the heyboard mahes 
an acceptable command with DOTWO 
files. A programmer can virtually build 
an unlimited series of commands and 
not be limited to just TRSDOS com- 
mands. Included at no charge: BUILD/ 
BAS which gives a programmer an eas- 
ier method of creating and 
mamtaininq DOTWO or DO 
files. si 00.00 

HOSTII/TERMH 

Allows remote control of a Model II 
from another Model II, or any ASCII ter- 
minal. Our Host system, unlihe the one 
supplied with TRSDOS 2.0. supports 
accurate screen positioning on the 
Term station. Without this feature, for- 
mated displays appear on the screen 
loohing lihe randomly placed garbage. 
Requires NO user memory! This sys- 
tem is designed to provide software 
support to our customer locations 
without ever leaving the office. Cus- 
tom versions are now available for 
most nationally distributed terminals 
as a 525.00 ODtion. Call for details. S50 
Preliminary Model III version now avail- 
able with standard host/ term features. 
Special May intra Price S35 



PL/B 

The most powerful logical com- 
ponents have been selected from the 
worlds most powerful language to 
give you the most unbeatable pro- 
gram development tool to improve 
your programming productivity! 
Snapp. Inc. has merged the most use- 
ful components of BASIC with the 
power of PL/ 1 . An unbeatable struc- 
tured programming facility resulted 
that can increase programmers pro- 
ductivity up to 50%. Unlihe competitive 
products, which are slow rigid pre- 
processors' representing a primitive 
attempt to bring Structured Program- 
ming concepts to the Micro-Based 
user. PL/B is today's fourth generation 
answer to a fourth generation prob- 
lem! PL/B can give you triple the 
power of the earlier preprocessors at 
triple the speed. PL/B is fully 
integrated into the BASIC interpreter. 
Two modes of operation are available. 
Transparent (hidden) or Compile and 
save mode. Increase your productivity 
and save time with PL/B. s 200.00 

BREAKOUT 

With Breahout you can learn the inter- 
nal workings of TRSDOS 2.0 using any 
standard disassembler. Find your way 
out of the maze and save program- 
ming time by eliminating the 
unneeded steps in TRSDOS 2.0. This is 
a must product for all advanced TRS80 
programmers. $200 

DOSFIX 

A collection of patches to TRSDOS and 
BASIC to enhance their usability and 
function. Includes our well Known 
BREAK7E patches and facilities to dis- 
able and verify detect which will 
increase average dish speed by 30%. 
Free with any Model II Software Pack- 
age. Purchased separately. s I o 

3/W SCOTCH DISKETTES 

Double density certified 8" Floppies 
for the Model II. Better quality is not 
available at any price. Ten diskettes to 



a box 



Quantity 
(boxes) 

5 
10 
20 



Price 
Per/Box 
S34 
$33 
S32 
S3 I 



$3.00 shipping charge. This charge is 
waived if software is purchased on 
same order. 

TERMS OF SALE 

Shipments normally mode within one day of 
receipt of your order Customer normally pays 
shipping cost, except pre-paid orders including 
software, in which case shipping cost is absorbed 
by Snapp. inc. C.O.D. orders wilfhave standard 
COD. fee added to shipping charge Net 10 days 
will be granted to governmental agencies, educa- 
tional institutions and well rated business firms. 
Please include purchase order number. Ohio resi- 
dents add 5 % sales tax or exemption certificate. 

OUR GUARANTEE: 

If your diskette arrives damaged, we will replace it 
without charge. If you ever accidentally damage 
it. we will replace it for a 5 10 handling charge. For 
a period of one year, we will provide you with 
any enhancements or updates for a s 1 handling 
charge . For a period of one year, if errors are dis- 
covered in the programs, theg will be corrected 
without charge. In the event we cannot correct an 
error, you may return the program material for a 
refuna Electric Pencil is a trademark of Michael 
Schrayer Software. Inc. TRS-flO and TRSDOS are 
trademarks of the Radio Shack division of Tandy 
Corporation. 

NEWDOS and NEWDOS/80 are trademarks of 
Apparat. Inc. 
RACET CSF is a trademark of Racet Computes. 
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See us at the National TRS 80 /microcomputer 
Show May 21-22-23 in Booths 74 and 75. 

Call our toll free number: 1-800-543-4628 

Ohio residents call collect: (513)891-4496 

SNAPP, INC. 
8160 Corporate Park Dr. 
Cincinnati, Ohio 45242 



have 64 subtracted from their ASCII code. 
Any spaces PEEKed prior to these charac- 
ters have the correct code. I changed the 
following program statement in Screen- 
printer to overcome this weird occurrence. 

10090 FOR Ql=0 TO 63:QN(QI) = PEEK(QS + QI):IF 
QN(QI)<32 THEN QN(QI) = QN(QI) + 64:NEXT 

Perhaps one of your readers can solve 
this mystery. 

William D. Webb 
Norristown, PA 19401 

Ode to Soft Sector 

The following is a copy of a letter I sent 
to Soft Sector Marketing regarding their 
word processing system, Lazy Writer. I 
don't know these guys or anything about 
them, but I do know that I am so pleased 
with what I got from them that I have to 
share it: 

I recently purchased "Lazy Writer", to 
be used with my TRS-80 with 32K, two disk 
drives and a Line Printer II. I am doing Oil 
and Gas Leasing that requires much pa- 
per work that I have to type myself, and I 
have been using two of the other systems. 
I bought your product sight unseen, and I 
was not sure what I would be getting. You 
seemed very open and proud of what you 
had to offer, but I naturally put that off as 
just the standard sale pitch, or, worse yet, 
the con artist at work. 

I have often bought things I was later 
sorry I bought because they did not per- 
form the way they should have or the way I 
thought they should have performed. A 
few purchases proved to be winners. But I 
want you to know that I consider this pur- 
chase from you the best I have ever made 
for performing the function it was intend- 
ed to do. If you have any callers who want 
to talk to a user that can't believe how 
lucky he was to make a sight unseen pur- 
chase, give them my number. 

A.M. Phelan, Jr. 
Beaumont, TX 

Applied Applications 

Re: "80 Applications", February, 1981: 1 
found two errors in this otherwise fine arti- 
cle. 

Page 42: The A4 address line is not nec- 
essary to address the range of 3000H to 
37DFH. Remove the connection from A4 
and use gate Z2C as an inverter between 
Z1 pin 8 and Z2D pin 12. 

The other, on page 44, is not really a 
fatal error, but the wires on pins 18 & 20 
should be reversed. To quote page 2-10 of 
the 7980 Intel Component Data Catalog, 



paragraph "Output or-Tieing": "To most 
efficiently use these two control lines, it is 
recommended that CE (pin 18) be decoded 
and used as theprimary device selecting 
function, while OE (pin 20) be made a com- 
mon connection to all devices in the array 
and connected to the READ line from the 
system control bus." 

The CE pin 18 is a power-down standby 
mode which when brought high, puts the 
output into a high impedance state and 
the power consumption to a fraction of 
what it is in the read mode. 

Chuck Barnett 
Hanover Park, IL 60103 

Reader Barnett is correct on both 
points. The Radio Shack communications 
addresses are not completely decoded, 
meaning that an active A4 address line 
could select an undesired "phantom" 
communication location. In fact, to be 
safe, disconnect not only A4 but also A5 
(from 11 pin 6), and connect pins 6, 11 and 
12 of Z1 together. 

As for the 2716 pin selection, the 1978 
Motorola data sheet I used for this design 
briefly noted the standby mode, but did 
not make the Intel recommendations. I 
agree with Mr. Barnett and Intel that pins 
18 and 20 should be switched. 

Dennis Bathory Kitsz 
Roxbury, VT 05669 

Larger Forwarding Address 

I enjoyed the article by Bertram A. Thiel 
titled "No Forwarding Address", in your 
March issue. Since I use GOSUBs exten- 
sively in my programs, I found Program 
Listing 2 most useful. However, since my 
machine is a 32K disk system, I had to 
make some modifications to the routine 
to make it work for larger programs. 

My program listing includes a new line 
65305 for addresses above 32767. Line 
65300 was changed to show Disk BASIC'S 
program starting address. Lines 65340 
and 65360 were changed to GOTO 65305. 
James R. Albright 
Daytona Beach, FL 

PROGRAM LISTING FOR 32K DISK SYSTEM 



65299 
65300 
65305 
65310 
65320 

65330 



65340 
65350 



END 

P1 =27206 

IFP1>32767THENP1 = -1.(65536- P1) 

P2 = PEEK(P1) + PEEK(P1 + 1)-256 

IFPEEK(P1 +2) + PEEK(P1 + 3)-256 = 65298THEN 

65370 

PRINT'TO SAVE LIN E NUMBER";PEEK(P1 + 2) + 

PEEK(P1 + 3).256; "THEN ENTER A Y ELSE JUST 

PRESS ENTER"; 

I N PUTP3$: I FP3$ = " Y'TH EN P3$ = "": P1 = P2: 

GOTO 65305 

POKEP1 +2,0:POKEP1 +3,0 



65360 P1 = P2:GOTO65305 
65370 DELETE 65299-65380 
65380 END 



Further Variations 

"80 Input" in the February issue printed 
a letter from Doug Walker about the start- 
ing point for BASIC programs and varia- 
tions between Level II and TRSDOS 2.3. 

Both figures quoted (27172 and 26302) 
are correct. They are, however, mutually 
exclusive in that the figure depends upon 
the number of files asked for when BASIC 
is invoked. The first number is for three 
files and the second for zero files. For 
those who use NEWDOS + orNEWDOS80 
the figures are again different. 

Files 2.3 DOS + DOS80 

1 26592 26230 26604 

2 26882 26520 26905 

3 27172 26810 27206 

etc. 

My suggestion would be to use the ad- 
dress already stored in RAM at 16548 and 
16549 with the convention POKE (address), 
PEEK(16548) and POKE(address), PEEK 
(16549). The PEEKs could be gotten in an 
earlier statement in the program and 
stored for use at the proper point. 

Sim Tyler 
Overland Park, KS 66212 



Likes Meta Tech 



I would like to tell my fellow readers 
about a product I purchased. Meta Tech- 
nologies of Euclid, OH sells Aids3/Calcs3, 
and I would recommend it to anyone who 
needs a good data management system. 

Two reasons prompt me to recommend 
their product. The system works exactly 
as they say it will and every time I run it I 
am amazed at the things it will do. The 
people at MTC will give prompt, courte- 
ous, competent answers to all questions 
if you run up on any problems. Since I was 
new to disk drives and all the problems 
they can cause for a beginner, I did have 
problems. MTC helped me with these 
problems and with their help I went on to 
have a system that has helped me a great 
deal in my business. 

It is refreshing to find a company such 
as MTC that will do what they say they will 
do and go out of their way to help you 
when help is needed. 

Joe L. Peacock, President 

Peacock Plastics Company 

Jacksonville, Texas 75766 
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Sargon Players 

I enjoy playing chess with Sargon II 
on my TRS-80 48K Model I, but many 
times the game lasts longer than I ex- 
pect to play. I must then abort the 
game or write everything down and 
reset the chess board when I wish to 
play again. I thought that if I could load 
in RSM-2D first, play the game, then 
save the game to disk, when I want to 
renew my game all I would have to do is 
load the game back in under RSM-2D, 
32D. 

The steps which I follow are: 

(a)LoadinRSM-2D,32K. 

(b) Reboot, hold auto key and type 
in Sargon ll/CMD. 

(c) Play game. 

(d) Hold break key and reboot. 

(e) Hit enter— memory size ap- 
pears. 

(f) Hit enter— Radio Shack Level II 
BASIC. 

(g) Type System. Computer re- 
sponds *?. 

(h) Type /44032. Computer responds 
Command. 

(i) Type $20 5000 20. Computer 
Responds "Disk Error" 
Help! Can someone tell me what I 
am doing wrong? I tried different com- 
binations to save the program, but to 
no avail. How do you know how many 
sectors to save, and where to start? 
Does anyone know a better way to 
save a Sargon game to disk? 

Anthony Rattenni 

173 Westminster Dr. 

Yonkers, NY 10710 

Aid Reward 

Since last November we have had 
our Model II with Scripsit and the new 
Daisy Wheel Printer II up and running 
in our office. Aside from a few bad 
disks, the machine has operated flaw- 
lessly and has been a tremendous help 
getting the work out. 

There is one quirk which I hope 
someone out there can help us with. 
Although the printer has both a section 
sign and a paragraph sign, Scripsit 
won't print them. Since we constantly 



refer to sections and paragraphs of 
various statutes this is more than a lit- 
tle annoying. It is all the more annoy- 
ing when the Scripsit manual shows 
how to print a British pound sign and 
various foreign language accents. 

We will gladly trade the British 
pound sign for a section sign. How do 
we get inside the program to change 
the codes that drive the printer? Since 
we know very little about computers, 
we hereby offer a reward of $15 to the 
first person who can give us a fix for 
this. 

Petralia, Neild & Webb 

811 First Federal Plaza 

Rochester, NY 14614 

DVORAK Aid? 

I read with interest the article by 
Waldo T. Boyd about the DVORAK key- 
board (80 Microcomputing, December 
1980). It's all the rage... even Time 
Magazine has mentioned it. 

As Boyd mentioned, his program 
cannot be used with Electric Pencil or 
Scripsit since they do not use the key- 
board routines in the ROM. Has any- 
one figured out how to patch the 
DVORAK keyboard software into Pen- 
cil or Scripsit? The keyboard is not 
much use if it can't be used with a word 
processor. 

Any help would be greatly appre- 
ciated. 

John T. Phillipp, MD 

127 E. 45th St. 

Brooklyn, NY 11203 

Paragraph Problems 

I see that SCRIPSIT/Selectric prob- 
lems still seem to generate letters from 
your readers. I, too, have such an ar- 
rangment and problem. My problem is 
in the paragraph indents and the slop- 
over of the first sentence of each para- 
graph. 

I have tried for a fix to my problems. 
Thanks to your SCRIPSIT articles and 
letters from readers I was made aware 
of the so-called "fix" that Tandy would 
provide. I now have my three sheets of 
meaningless gibberish. My last re- 



sponse from Tandy was to a letter I 
sent them explaining my problem and 
furnishing examples. Their response 
was that they did not feel my problem 
originated with their equipment, but 
rather in the ASCII/BCD interface. At 
first I thought this was a typical cop- 
out, but the more often I hear about dif- 
ferent problems, the more I tend to 
believe them. 

My Selectric is a Model 2740 and I 
use an interface provided by Micro- 
matic80. 1 am going to pursue my prob- 
lem with the interface manufacturer. If 
any reader happens to have anything 
that would contribute to solving this 
problem, I certainly would appreciate 
the help. 

R. S. Walters 

203 N. Patton 

Arlington Hts. IL 60005 

CRT Trouble 

I have set out to follow what seems 
to be an impossible course. My CRT in 
my "80" is failing. I would like to 
replace it with a genuine green 
phosphorous CRT. I have called all 
local suppliers and they treat me as if I 
had the plague. 

I received a tip from a repairman for 
Bunker/Ramo computers. He said that 
Clinton Mfg. makes their CRTs. How- 
ever, I have not been able to find any 
sort of address for them. 

Could you give me the name of a 
supplier that makes these things? Or 
maybe the address of Clinton Mfg. 

Anthony E. Kazee 
1425 No. Mojave Rd. 
Las Vegas NV 89101 

RST Aid Needed 

I have been disassembling Level I 
BASIC for relocation in high RAM. I 
would very much like to contact any- 
one who could give me some informa- 
tion regarding the restarts (RST) within 
the language. 

Andy Pickett 

520 S. Center St. 

Plainfield, IN 46168 
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Portable Store 



Recent comments in your letters col- 
umn have compelled me to grapple with a 
real typewriter keyboard (no numeric key- 
pad, lowercase) and rally to your defense. 
The comments I refer to have to do with 
the amount of advertising in the pages of 
80 Microcomputing. 

It seems that some of your readers do 
not approve of the large amount of ads. 
Are they nuts or do they suffer from a 
heart condition which makes it hard for 
them to turn so many pages? 

I live in a small town (30,000). We have 
two Radio Shack stores. The downtown 
store personel are quite knowledgeable 
about computers. The guys out at the 
shopping center readily admit that their 
computing skills are limited to playing 
blackjack. Outside of these two stores, 
there is no other source within 120 miles 
for computer items of any significance. 

The pages of 80 are my computer store. 
It is in these pages that I get an education 
as to what's happening in the software 
and hardware markets. If it weren't for 80, 1 
would be eternally stuck with a mailing 
list program that takes 15 hours to sort 
600 names, and I'd still be paying $5.95 
each for disks. Your reviews of your adver- 
tisers products serve to (hopefully) pro- 
tect your readers from some of the bad 
buys on the market. 

Keep up the good work, guys. I for one 
think I'm getting my money's worth. 

Bill Robinson 
Merced, CA 95430 

Model III AutoEdit 

I have been having difficulty making 
some of your programs for the Model I 
work on my Model III. One case in point 
was the "AutoEdit" program described in 
the February 1981 issue. Apparently the 
addressing system in the Model III is dif- 
ferent enough to foul up the program. 
However, I thought your readers might be 
interested in my solution so that they 
could use this very useful program in their 
Model Ill's. 

The location for the "current line 
pointer" (the period in EDIT.) is correct at 
16620. If we increment that value by N with 
a POKE at 16620, and then try to EDIT, we 
will either have success or an error due to 
an undefined line. If we use the ON ERROR 
GOTO and RESUME statements, the auto- 
editor will keep going until it finds the next 
line. 

This program listing works perfectly in 
my Model III. I load it in from tape before 



entering any code in my machine, and 
when I'm ready for the auto editor, I simply 
turn line 4 into a remark statement by in- 
serting a single '. The program then works 
as described by Mr. Rollins: That is, initial- 
izing with a LIST of the line where I want to 
start, followed by a RUN <enter> each 
time I want to edit the next line. 



I used one as the value of N to be sure 
that I didn't miss any lines. The only draw- 
back of this is that if there is a large jump 
in the program lines, it takes a while to 
find the next line. If the program was writ- 
ten with all line spacing equal to ten, the 

Continue to page 25 
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Mem Size. . 20K 

Many readers who built the 4K or 
16K memory board in accordance with 
my article ("Mem Size. . .20K!") on p. 
116 of the Nov. 1980 issue have con- 
tacted me concerning loss of data in 
the added memory block— especially 
the 16K add-on. 

I experienced the same problem 
when the circuits for both the 4K and 
16K blocks were built and under test. 
Difficulties with the 4K block disap- 
peared when additional filtering and 
bypassing were added onto the — 5V 
line on the memory board. The — 5V 
supply is very lightly loaded by the 
memory chip; as a result, this supply 
line is very susceptible to noise. Two or 
three 50 or 100 MF electrolytics and a 
handful of .01 to .1 MF disk sprinkled 
up and down the — 5V distribution line 
should bypass the noise picked up on 
this line. 

If you connect an oscilloscope to a 
not properly bypassed — 5V line, you 
will probably see at least one-half volt 
of noise. Add large and small bypass 
capacitors until the noise signal volt- 
age is radically decreased. 

Bypassing will cure many ailments 
with the 16K memory board. The major 
cause of other difficulties is the addi- 
tion of fast (200 or 250 ns) memory 
chips external to the keyboard if the 
chips inside the keyboard are the stan- 
dard 450 ns speed. If all else fails to 
settle down operations of the 16K add- 
on memory board, swap those fast 
chips with the ones inside the key- 
board. 

W. R. Stanley 

City Rt. 5, 204 Avery Ln. 

LaG range, GA 30240 



Auto-Edit Bug 



The program AUTO-EDIT 1 (Listing 1) 
in your February 1981 issue has a bug. 
The program should produce EDIT 
mode for consecutive program lines by 
typing RUN. As written, it skips every 
other line. 

Here is the corrected program (cor- 
rections underlined): 



1 CLP= PEEK(16620)+PEEK(16621)-256 :X 
17129 

2 LN = PEEK(X + 2) + PEEK(X + 3).256 

3 IF LN < = CLP THEN X = PEEK(X) + PE EK 
(X + 11.256 :GQTO 2 

4 POKE 16620,PEEK(X + 2) :POKE 16621.PEEK 
(X + 3) 

5 EDIT 



Dan Rollins 

370 N. Cerritos, #75 A 

Azusa, CA 91720 

Micronet /D# 70250,631 



Triple Play Bug 



In the article "Triple Play For 
T-BUG" in your October issue, Mr. W. 
H. Johnson describes how to move 
T-BUG to a new location in memory. I 
have tried to use the program he de- 
scribes, and after spending some time 
trying to get it to work, I can say confi- 
dently that there is a mistake in the 
data. The data block in Table 1 shows 
that location 2B3B should be filled 
with a 73. That location should in fact 
be a 74 to make the resulting new 
T-BUG run correctly. 

Allen Davidson 

3502 Crystal lake Ave. 

Crystal Lake, IL 60014 
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STAND UP, CP/M USERS 




For the past few months you have patiently endured the 
indignity of watching your friends show off their flashy 
visible number cruncher on their game-playing computer 
and longed for something as slick. 

You seriously considered buying their computer, but you 
just couldn't give up the benefits of the CP/M operating 
system. 

Well, say hello to TARGET™, the best business planning 
system available on micros today (and some big 
computers besides). 

Talk about a blank ledger sheet or columnar tabulator! 
TARGET™ is much more than that. Sure, just like their 
product, you can fill in the rows and columns as you see fit 
and the numbers will whiz by you on the screen. But, we 
let you create your report in English, not in some combina- 
tion of reverse Polish notation and algebraic matrix 
languages. 

Our TARGET on Your System. . . 

LINE 1 SALES = 100 200 300 400 
LINE 2 EXP = GROW 50 BY 15% 
LINE 3 NET - SALES - EXP 

Their Product on Their System . . . 
SALES 100 200 300 400 
EXP 50 +B2M.15 +C2*1 +D2*1.15 
NET +B1-B2 + C1-C2 +D1-D2 +E1-E2 

At least, that is what their product might look like if you 
could see all of your data and calculation rules at the same 
time, which you can't. If you think that it is an easy 
approach for debugging, guess again. 

TARGET displays a full screen of results or data and 
calculation rules at your command. And, it runs on your 
system. How much more could you ask? 

Lots! And TARGET™ delivers. We give you the ability to: 
• Obtain hard copy printouts of both the results and your 

set of data and calculation rules used to create those 

results. 



CP/M is a registered trademark of Digital Research. 
SoftCard is a trademark of Microsoft. 



• Write the results of data and calculation rules to the disk 
as formatted files for word processing. 

• Use full conditionals (IF ... THEN . . . ELSE) in your set 
of rules and stack conditionals within conditionals. 

• Build powerful models with commands such as GROW, 
MIN, MAX, AVE, CUM, GREATER, LESSER, SUM. 

• Edit lines with ease. 

• Enter rules and data in any order you wish. 
TARGET™ will automatically sort rows in ascending 
order and process vour model correctly even if LINE 
33 SALARIES needs to be calculated before LINE 3 
EXPENSES. 

There is so much more about the TARGET™ Planner that 
will impress you. Our manual explains not just what a 
command or function is, but how to use the functions in 
everyday business situations. Our manual and our news- 
letter give you illustrative examples of business planning 
problems and how TARGET™ can help you solve those 
problems. For example, we will show you how to quickly 
determine the payback period for a proposed project. 

TARGET™ is a compiled system running under CP/M. 
There is no need to buy BASIC or FORTRAN or any other 
system software. And the price is only $195 for the 
TARGET™ Planner, our basic system. 

Stand up and be proud, CP/M users. The best business 
planning system runs on the best operating system on 
your computer. 



Advanced Management Strategies, 
1935 Cliff Valley Way, N.E., Suite 200 
Atlanta, Georgia 30329 
404 634-9535 ^260 

P.S. When all of your friends start 
drooling over your product, 
tell them to cheer up. With 
Microsoft's great SoftCard 
and 16-K memory board, 
your friend's Apple can 
move up to your oper- 
ating system and run 

Target™. 



Inc. 
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What has nine lives, three forms, 

multiple faces and a price tag 

that almost disappears? 
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v The Magical y 
Microline 80 Printer 



It's magic! Well, almost. The Microline 80 will run 
all day at 80 cps with no duty cycle limitations. 
The head is warranted for 200,000,000 characters. 
That translates to over nine years on your 
TRS-80™ APPLE" or other small computer. 

Want to change forms? The magical Microline 80 
is three printers disguised as one. There is a 
whisper-quiet rubber platen for cut sheets and roll 
paper, pins on nine inch centers for pin feed stock 
and optional snap-on tractors that adjust to suit 
all your other forms. The Microline 80 also saves 
paper by letting you tear off as close as one inch 
from the last print line. 

Want to change your image? The magical 
Microline 80 really does tricks. It prints upper 



and lower case, condensed and double width 
characters and block graphics for charts, graphs 
and diagrams. 

The Microline 80 is not a toy. With two motors, a 
rugged cast aluminum base and a head you never 
have to throw away, the Microline 80 is built to 
handle the most demanding business applica- 
tions. 

Which brings us to the biggest magic of all, the 
price tag, the one that almost disappears. If we're 
not the lowest, we are so close that it doesn't mat- 
ter. There are stocking Microline distributors 
throughout the country. Call or write today for the 
name of the one near you and the price of the 
Magical Microline 80. 



OKIDATA 



Okidata Corporation, 111 Gaither Drive, Mount Laurel, New Jersey 08054 609-235-2600 

Okidata is a subsidiary of Oki Electric Industry Company, Ltd. 
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value in line six can be changed to 
CLP ss CLP + 10 to speed things up. Alter- 
natively, a break and LIST can identify the 
next segment and the CLP can be reinitial- 
ized by LISTing the first line. 

I like my Model III very much, but I hope 
somebody writes an article which does a 
little better job of describing how the dif- 
ferences affect the use of Model I hard- 
ware and software. Right now I'm afraid to 
buy a lot of the attractive materials avail- 
able for Model I for fear that I won't be 
able to make them work. 

Richard H. Reitz 
Midland, Ml 48640 



4 GOTO10 

5 ON ERROR GOT09:CLP = PEEK(16620) + PEEK 
(16621). 256 

6 CLP = CLP + 1:MSB = INT(CLP/256):LSB = CLP - MSB 
• 256 

7 POKE 16620,LSB:POKE 16621, MSB 

8 EDIT. 

9 RESUME 6 



Recommends 
MicroCompatible 



A word of praise for MicroCompatible 
of Scaly Mountain, NC, for their Model I 
upgrade (advertised on page 206 of the 
February 1981 issue). 

Before spending $200 for the device, I 
called MicroCompatible and finally or- 
dered the upgrade kit. I was amazed to 
find that it arrived at my home within four 
days of my telephone order. 

I immediately plugged it in and it played 
like a charm from the very first touch of a 
button. 

The service is not only excellent, but the 
product appears to be very well made and 
performed in all respects as advertised. 
This is somewhat of a novelty to me after 
having purchased a lot of worthless hard- 
ware and software trying to weed out the 
good from the bad. 

One thing MicroCompatible doesn't tell 
you is that they also provide a very conve- 
nient reset button in an accessible loca- 
tion. There is also a capability of high 
speed disk operation if you have a disk 
operating system that will support this. 

My hat is off to a good product and I 
recommend it to anyone. 

Larry R. Moore, P.E. 

Moore-Bingham & Associates 

Cedar Rapids, I A 52401 

Micro Development 

Our firm, Suncoast Micro-Systems, is a 
private, not-for-profit corporation with a 



primary objective to assist in the develop- 
ment and placement of microcomputer 
systems within community-based, public 
service and charitable organizations. In 
our view, development of microcomputer 
systems within this market sector has 
been impeded by existing funding regula- 
tions and a lack of familiarity with com- 
puters among governmental funders and 
local agency personnel alike. We intend to 
assist in bridging that gap by providing in- 
formation and assistance to local public 
service agencies that have a preliminary 
interest in microcomputer applications. 

We seek contact and collaboration with 
other non-profit groups that are trying to 
catalyze appropriate software and train- 
ing materials for community based agen- 
cies. 

Joseph J. Spatafora 

Senior Associate 

Suncoast Micro-Systems 

1870 Sailfish Rd. 

St. Petersburg, FL 33707 



Zoom! Friend 

We're all too familiar with companies 
whose interest ends with the sale. I wish 
to point out an exception. 

After the purchase and use of a Zoom 
3.6 from Zoom!, Nashua, N.H., I experi- 
enced a minor difficulty with the software. 
I placed a phone call to Martin Tobias of 
Zoom! and in the week which followed 
received four long distance calls from 
him. 

The problem was rectified and the pro- 
duct exceeded my expectations. We wish 
to thank Mr. Tobias for impeccable ser- 
vice and a useful tool. 

John Parsons 

Nutrihealth Information Systems 

Waxahachie, TX 75165 



Short Pencil 



For several months I have been using 
the cassette-based Electric Pencil for pre- 
paring manuscripts and letters using 
single sheets of 81/2 x 11 inch paper. 
Since the Electric Pencil does not auto- 
matically pause at the end of a page, I 
have to watch the printer carefully and 
stop the program manually so I can insert 
a new sheet of paper. 

The tediousness of this task finaliy got 
the best of me, and I decided to investi- 
gate the program to see if I could modify it 
so it stops at the end of a page. After a 
lengthy search through the code, I located 



the spot at which the program tests forthe 
final line of a page. At this point the pro- 
gram jumps to the page spacing routine. 
By changing only two bytes, I altered this 
jump to a return to the main system. Now 
when the printer reaches the end of a 
page, it stops, and I can load a fresh sheet 
of paper at my convenience. 

The changes I made are detailed below: 



Initial New 

Location Code Disassembled Code Disassembled 

4F3B CD CALL 5283 

4F3C 83 

4F3D 52 

4F3E 35 DEC (HL) 

4F3F 28 JRZ.8 C8 RET Z 

4F40 06 00 NOP 

4F41 0D DEC C 



Only bytes 4F3FH and 4F40H are 
changed, to C8 and 00 respectively. This 
change can be accomplished by using 
T-BUG relocated to high memory. After 
the change is completed, a new system 
tape may be written from T-BUG. The 
starting address is 4350H, the ending ad- 
dress is 5374H, and the entry point is 
4350H. 

This new version of Electric Pencil can- 
not print continuously, since the altera- 
tion forces it to stop at the end of a page. 
However, if I need continuous printing, I 
can always use the original program cas- 
sette. 

Rodney Schreiner 
Madison, Wl 53715 



ONE IINERS 



The First One-Liner 

From time to time readers have ad- 
dressed themselves to the problem of 
finding the file name of System tapes. 
This has usually resulted in a lengthy 
program to find the name. 

Jon Ledbetter showed me a one- 
liner that has proven very useful for 
determining file names for Model I 
TRS-80's: 

10 INPUT #-1,A$:PRINTA$ 

Robert Moran 

Box 43 

Sheldon, MO 64784 
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SO REVIEWS 



Edited by Pamela Petrakos 



'Synthesizer technology has advanced greatly, 
today we have synthesizers that are a fraction 
of the size and cost of the early models, 
yet with greater capabilities." 



tmrn 







Music Master 
Instant Software 
Peterborough, NH 
$7.95 

Keynote 

Hayden Book Co., Inc. 

Rochelle Park, NJ 

$9.95 

by Jim Heid 

The use of computer-like circuitry for 
music generation is not a new con- 
cept. The first electronic synthesizers 
were developed over twenty years ago. 
They were massive devices that looked 
like a cross between an organ and a tele- 
phone switchboard. 

Synthesizer technology has advanced 
greatly since then, and today we have syn- 
thesizers that are a fraction of the size and 
cost of the early models, yet with greater 
capabilities. 

Microcomputers can also be used to 
generate musical tones, using the same 
theory as large synthesizers. This article 
will describe this theory, and review two 
music oriented software packages for the 
TRS-80: Instant Software's Music Master, 
and Hayden's Keynote. 

Sound Information 

Sound is made up of variances in air 
pressure called sound waves. The more 
times per second these waves pulse, the 
higher the sound's pitch (Fig. 1). The great- 
er the fluctuation of the waves, the louder 
the sound's volume (Fig. 2). The more vari- 
ations there are in the waves, the harsher 
the sound's tone color (Fig. 3). Instru- 
ments like drums and cymbals produce 
harsh, erratic sound waves; instruments 
such as violins and flutes produce purer 
waveforms. 

Microphones translate variances in air 



pressure into variances in electric current, 
very much like the human ear does. The 
minute current supplied by the micro- 
phone is fed into an amplifier to boost its 
strength (or amplitude), and then sent to a 
speaker which translates this current 
back into variances in air pressure. 

By measuring a sound's waveform— its 
pitch, volume, and purity — at fixed inter- 
vals, it is possible to create a data table 
containing all of the sound's characteris- 
tics. The shorter the interval between 
measurements, the more accurate the in- 
formation about the sound will be. Then, 
by instructing an electronic circuit to re- 
create the voltage variations at the same 
intensities and intervals as they occurred 
when they were measured, the sound can 
be accurately imitated, or synthesized. 

The accuracy of the data and the extent 
to which it is recreated determine a syn- 
thesized sound's quality. The more accu- 
rately we duplicate what occurred when 
the sound was made, the more the synthe- 
sized sound will resemble the original. 
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Fig. 1. The doited line is a high frequency sound; the 
solid, a low frequency sound. 
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Fig. 2. The dotted line represents a louder sound; the 
solid, a softer sound. (The sounds are ol the same fre- 
quency in this diagram.) 




Fig. 3. The dotted line represents a hard sound, such as a 
drum or cymbol. The smoother line represents a purer 
sound, such as a violin or a piano. 



The most modern electronic synthesiz- 
ers use a digital representation of the 
soundwave. This representation is a high- 
ly accurate computer rendering of the 
original sound, and is often recorded on 
floppy disks and loaded into memory as 
needed. This method, while very complex 
and expensive, is the most accurate and 
often it takes an expert to discern be- 
tween the original and the synthesized 
version. 

Although precise sound synthesis re- 
quires more circuitry than is present in a 
microcomputer, the theory can be demon- 
strated with good results using software 
and, in some cases, a small hardware ad- 
dition. 
Music Master 

The Music Master software package 
consists of a Level II cassette tape con- 
taining four programs: Micro Organ, Ka- 
leidopy, Keymania, and Composer. All will 
run in 4K of memory, and require that the 
computer's cassette output cord be at- 
tached to an external amplifier. 

The first program, Micro Organ, is a ma- 
chine language program that turns the top 
two key rows of the computer into an or- 
gan keyboard on which one note or voice 
can be played. The user has a choice of 
three tone colors, which Instant Software 
calls piano, organ, and harpsichord. 
These names are, however, just labels, be- 
cause the tone of each does not accurate- 
ly represent its namesake. 

Another drawback of this program is 
the lack of a keyboard buffer. The user 
must release the first note before the sec- 
ond note can be played. Failing to do this 
will cause the first note to sustain, even 
though the user may be pressing a differ- 
ent key. The user must adapt to this by re- 
leasing the first note, pausing a split sec- 
ond, then playing the second note. This 
results in staccatto sounding music. 

This program provides a live keyboard, 
meaning that the music is played as soon 
as the keys are struck. There is no way to 
save each musical piece, except to record 
it with a microphone as it is played. 

The second program, Kaleidopy, gener- 
ates random musical notes, and produces 
a graphic design on the screen as it plays 
the notes. It is entertaining for a few min- 
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utes, but after that, each piece starts to 
sound the same. 

The third program, Keymania, is more 
of a game than a music generation pro- 
gram. In Keymania, random notes are 
played and the players (up to four) are re- 
quired to replay the notes in the same or- 
der that they were heard. The more notes 
that the player requests, the harder it is to 
recall each one. This game can be quite 
challenging and fun. 

Composer is the final program in the 
package, and in my opinion, the least valu- 
able. Like Kaleidopy, this program gener- 
ates random musical notes, but plays 
them in user-selectable keys and tempos. 
It also repeats certain sections of the ran- 
dom musical piece, in order, according to 
the instructions, to relieve some of the 
boredom associated with totally random 
music. But to me, repeating random mu- 
sic at random intervals still gives random 
music, which is boring. 

Music Master is a fair package, ideal for 
demonstrations and for the person who is 
interested only in occasional experimen- 
tation with computer music. Its price is 
very reasonable and its quality and docu- 
mentation are good. 

Keynote is Level II machine lan- 
guage/BASIC program which requires a 
minimum of 16K RAM to operate. The pro- 
gram permits the user to enter a musical 
piece using a special mini-language in 
which symbols are used to label a note's 
pitch and duration. The resulting piece 
can be edited and saved on cassette if de- 
sired. 

To use the program, the sound generat- 
ing machine language program is loaded 
into a memory area that has been protect- 
ed using the MEMORY SIZE question. Af- 
ter the program is loaded, the BASIC pro- 
gram is loaded. The BASIC program con- 
tains the routines for entering, editing, 
and saving the musical piece. 

The program's synthesizer features a 
five octave pitch range, three possible 
tempos (slow, moderate, or fast), and the 
ability to repeat certain sections of the 
piece. Keynote also features extensive er- 
ror-trapping routines that result in smooth 
program execution. 

After the musician has entered his/her 
song, he/she may choose from a multi- 
function options list to edit and review the 
piece, play the piece, or save the piece on 
tape. The edit option displays the con- 
tents of the piece in 40-note increments. 
The user may choose to view the next 40 
notes, to change a certain note(s), or to re- 
peat a certain part of the piece. The play 
option compiles the notes that have been 
entered and plays them through the com- 



puter's cassette output. The tape save op- 
tion allows the user to save a piece and re- 
play it at a later time. 

This package has some negative 
points, however. The execution time of the 
BASIC program is slow, especially in the 
edit and review mode. The tape SAVEs 
and LOADs also get quite long. Execution 
time can make or break a program's effec- 
tiveness for frustration-free use, and Key- 
note is just too slow. The program also 



supports only one voice at a time, limiting 
the piece to melody — not enough for seri- 
ous music programming. 

Keynote is, however, an excellent pro- 
gram for the newcomer to computer mu- 
sic who would like to try it without com- 
mitting himself to a large expense. The 
quality of Hayden's software is outstand- 
ing, and their documentation is good. For 
occasional use and for demonstrations, 
Keynote rates as a good buy.B 



The Music Box 

Newtech Computer Systems, Inc. 

Brooklyn, NY 

$149 

by Terry Kepner and Erich Whitey 



The Music Box claims to be ". . .a so- 
phisticated facility for the composi- 
tion and performance of music operating 
on the TRS-80 Microcomputer." Unfortu- 
nately, while it does fulfill this claim, it 
falls a bit short of actually being a truly 
versatile tool for the serious music stu- 
dent. 

Documentation 

The software manual is 71 pages thick, 
confusing, and incomplete. Written by the 
author, it falls into the trap in which 
most author-written manuals trip. Be- 
cause he knows the software so well, he 
tends to give incomplete explanations. 
For example, a diagram is given (see Fig. 
1) which, according to the manual "... 
shows the relationships among the five 
programs and the way in which files are 
passed from one to the other." Nothing 
further is mentioned about it. I am sure he 
knows how to interpret it, but we didn't. 






Figure 1. 

Also, author-written manuals tend to over- 
look little details and tricks of use that 
make it easier to operate. In fact, he 



spends a good deal of space bragging 
about all the neat little things you can do 
with his software instead of giving exam- 
ples of how to use the routines to achieve 
desired effects. 

The hardware manual, a preface of 
eight pages added to the software man- 
ual, gives instruction on how to hook The 
Music Box up to your computer. These in- 
structions are, by contrast, impeccably 
prepared. They not only tell you how to 
connect it, but also explain the electron- 
ics in detail, provide a complete listing of 
all the parts, include a schematic labeling 
of all the components, and even give the 
physical layout of the components on the 
circuit board! 

Statistics 

The Music Box's statistics are rather 
straightforward: 

• It plugs into either the keyboard, or the 
expansion interface. 

• It includes all the software needed, as 
well as all the extra hardware needed, 
except for a speaker (i.e., it contains 
its own audio amplifier in addition to 
its digital-to-analog electronics and 
power supply). 

• It is well built. 

• Songs may contain from one to four 
voices, each voice has an octave 
range of seven, starting at 27.5 Hz. 

• The note range extends from the 
whole note down to the sixty-fourth 
note, including 1/5's and 1/7's of each 
of these. 

• Notes may be dotted or double- 
dotted. 

• Measures, repeats, refrains, triplets, 
and microtones are all possible. 

• The wave form used to generate 
sound is accessible and can be 
changed at any time, including during 
the playing of a composition. 

The software itself is divided into five 
programs: Edit, Comp, Wave, Play and 
Util. 

Edit 

The Edit program is used to enter music 
into the memory of the computer, and to 
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change music already composed. The edi- 
tor is very straightforward, supplying cur- 
sor, page, measure-step and home func- 
tions. Unfortunately this straight-forward 
approach is a liability, being a little too 
clumsy for any real professional, or even a 
beginning student of music. 

For a programmer it is even worse (I've 
been spoiled by the R/S line editor). Enter- 
ing a small 22 measure song in three-four 
time took over three hours, which includ- 
ed interpreting the manual instructions 
and experimenting. Each note is treated 
as a different line in the editor. However, 
all four voices for that note can be placed 
on the same line. See Fig. 2, a trans- 
position of Bach's Invention #1. 

There is one major restriction imposed 
by the Editor: If more than one voice is 
selected, all the voices called to play at 
the same time (i.e., all voices on the same 
line number) must play for the same dura- 
tion. For example, when voice number one 
has an eighth-note duration, voices num- 
ber two and number three, and number 
four are all played for an eighth note dura- 
tion, even if the music calls for a longer or 
shorter time in these other voices. 

The next restriction is not major, but it 
is very annoying. If for some reason you 
don't want to save the file just typed into 
the editor, the program will not let you exit 
unless you reset your computer, other- 
wise it will attempt to save your newly 
modified file (which will lock-up your com- 
puter if you're in Level II BASIC, or write 
the new file on top of your old disk file). In 
other words, you are often trapped in the 
editor, or even some sub-editor functions, 
involuntarily. 

Compiler 

The Compiler converts the music from 
the notation used by the editor to the nu- 
merical form required by the Play pro- 
gram. Although it doesn't take too much 
to operate, it is a slow and tedious proc- 
ess to wait through. I have seen (and re- 
viewed) other music systems that com- 
piled theirdata while in the editing section 
of the software, and a good deal faster 
too. 

Wave 

This program creates and stores new 
sound waveforms (also called colours, or 
instruments). These waveforms are used 
by the Play program as the sound by 
which notes are generated. For example, 
a harpsichord-like sound can be gener- 
ated by specifying the proper waveform. 
Unfortunately, unless you have had 
courses in phase angles and relative am- 
plitudes (heavy on the math), the Wave 
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program will mean nothing other than a 
series of puzzling numbers. 

This is a spot where the manual has 
failed to supply sufficient information. It 
tells you how to specify the fundamental 
and the harmonics, but does not tell you 
which ones will produce standard effects 
such as the harpsicord or organ. This is 
left to you to experimentally discover. 

Play 

Play brings everything together: the 
waveform, the music and the player. You 
actually have three modes of operation. 
The first is simply play the music, the sec- 
ond is rehearsal, the third is interactive. 

Rehearsal lets you use the computer as 
a musical practice partner. Program your 
music to play the pieces you want to prac- 
tice, leaving out those portions you will 
actually play yourself. Start the song and 
play your instrument, with the computer 
accompanying you along the way. At pre- 
determined places you can stop the 
music, tell the computer where you want 
to pick up, and then continue, repeating 
portions as many times as necessary. In- 
teractive mode allows you to assign (while 
in the Edit program) refrains of music to 
certain keys on the keyboard. When you 
play the music, you can force the comput- 
er to switch to any given piece by pressing 



its associated key. This is very, very good 
for composing avant-garde pieces. 

Utility 

This is supposed to be a special utility 
designed to use the RS-232 port. There 
were absolutely no instructions on how to 
use it (although the table of contents men- 
tioned a subsection of Util, it wasn't any- 
where in the manual), merely a fast list of 
its functions: 

• Obtain a print-out of music in 
memory 

• Receive a song from the RS-232 

• Send a song to the RS-232 

• Receive a waveform file from the 
RS-232 

• Send a waveform file to the RS-232 

• Set the baud rate of the RS-232 from 
110 to 96 (this last function is puz- 
zling. I believe the author means "set 
it anywhere from 110 to 9600"; but 
then what about stop bits, parity, 
etc.) 

I did manage to get a listing of my song, 
but there were a few unexpected (and un- 
explained) stray symbols intermixed 
among the normal characters. 

Overall 

The main advantage of the program lies 
in its technical versatility. Microtones are 
useful in achieving Eastern musical ef- 
fects, and along with the wide variety of 
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SPECIAL #1 



. $44.50 



TRS-80 Disk and Other Mysteries Uook. Sox 
of Verbatim Diskettes, and a. Plastic Library 

SPECIAL #3 S149 

Apperat NEWDOS/80, Box of Verbatim 
Diskettes, and a Plastic Library Case. 

SPECIAL #4. .... .$190 

Microsoft Basic Compilier, Box of Verbatim 
Diskettes, and 8 Plastic Library Case. 

SPECIAL #5 ... .849.95 

Microsoft Basic Decoded and Other 
Mysteries, Box of Verbatim Diskettes, and a 
Plastic Library Case. 
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TRS-80 HARDWARE 

TRS-80's $CALL 

Micropolis 77 track . . .$399 

Percom Doubler $1 99 

Percom Separator $27 

Orchestra 80 . , $79 

Shugart 40 tr. ..... ..$299 

Pertec40tr ...$299 

MPI40tr. .... ..$299 

1 6K Memory Kit ... $1 9.95 
Cat Modem ........ .$145 

D-Cat Modem $155 

Lexicon Modem $1 25 

Verbatim 525-01 . . $26.50 
Verbatim 8" DD . . . .$44.00 
Isolator ISO-2 $49.95 



NEW! Double Density Special 

A Percom Doubler, Apparat's NEWDOS/80, Double Zap II [to 
convert the NEWDOS/80 to single and double density], a box 
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$436 Value... for 
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This New machine language disk catalog program will help you keep track of 
your programs in a neat, orderly library. It can catalog up to 1 900 programs 
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Format your screen displays and input routines with this machine language 
subroutine. Gives your program a more professional look. 
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possible note lengths, can be extremely 
valuable in creating original, unconven- 
tional compositions. In addition, the re- 
hearsal and interactive modes of the Play 
program greatly enhance its usefulness in 
the creation of music. 

Its main disadvantage lies in its poorly 
written manual. The first music student to 
whom I showed The Music Box gave up af- 
ter reading only halfway through. She ob- 
jected strenuously to the repeated use of 
computer jargon and to the poor organiza- 



tion of the manual. Although she is not a 
computer hobbyist we have worked to- 
gether on other music packages for the 
microcomputer and produced rather thor- 
ough reviews, so she is not unqualified to 
evaluate this type of package. Conse- 
quently, I must warn the non-computerist, 
this package is not easy to learn. 

Yet, if you are computer music enthu- 
siast and you want to experiment with un- 
usual sounds and special effects, then 
you might want to try this package. ■ 



Orchestra-80 
Jon Bokelman 
Software Affair 
Santa Clara, CA 
$79.95 

by Jim Heid 



Sometimes a product is marketed that 
is of such good quality and value that 
it soon becomes the standard in its class. 
Orchestra-80 is this kind of program. 
This hardware/software combination for 
computer music generation is so ver- 
satile, so easy to use, and so reasonably 
priced that it deserves to become the 
standard in its class. 

The hardware half of Orchestra-80 con- 
sists of a one and a half by two inch print- 
ed circuit board that attaches to the 
TRS-80's keyboard edge connector, or to 
the expansion interface's bus extension. 
It is then connected to an external ampli- 
fier, using a standard RCA type cord. The 
circuit board consists of an IC, a capaci- 
tor, and a dozen resistors, making up a 
digital to analog converter that converts 
the binary data coming out of the comput- 
er into a high quality audio signal. The 
board requires no additional power sup- 
ply, and can be left in place when not in 



"The compiler will 

accept music written 

in any key, any time 

signature, and any note 

value from whole to 

sixty-fourth notes." 



use. It must, of course, be detached in 
order to use the edge connector for any 
other peripheral. 

The Orchestra-80 software, a 16K ma- 
chine language program, contains: 

• A Digital Synthesizer 

• A Music Language Compiler 

• A Text Editor 

• A File Management System 

• An Initialization Routine. 

The synthesizer features a six-octave 
range and four simultaneous voices (the 
ability to play up to four notes at the same 
time). Although the synthesizer voices are 
preprogrammed to simulate a trumpet, an 
oboe, a clarinet, and an organ, the voices 
can easily be re-programmed using the 
Initialization Routine. 

Orchestra-80 uses its own language to 
input musical pieces. In this language, 
every note within the system's range is 
given number or letter, along with a few 
other codes signifying key, tempo, and 
other codes signifying key, tempo, and 
voice, a musical piece can be entered very 
quickly and easily. The language is ex- 
tremely simple, yet has all the capabilities 
needed for serious computer music. 

The compiler will accept music written 
in any key, any time signature, and any 
note value from whole to sixty-fourth 
notes. Notes may be single, double, or tri- 
ple-dotted and/or played as triplets. Acci- 
dentals, staccatto, and pizzicatto notes 
are available. Also provided are two forms 
of articulation and the provision for re- 
peats, second endings (with or without re- 
tard), and modulation. 

One of this program's best features is 
its text editor. The Text Editor provides a 
fourteen-line text display area and a two 
line status display area. The status lines 
are located at the top of the screen, and 
the file scrolls up and down below them. 
Fourteen lines of text are viewable at one 
time, and a blinking cursor can be posi- 
tioned anywhere within the file by using 
the arrow keys on the keyboard. The key- 
board is fully debounced and all keys will 
repeat when held down. Additional func- 




tions include insert or delete character, in- 
sert or delete line, and a global character 
string search. The contents of a file can be 
listed on a line printer, and the computer 
will not lock up if a printer is not attached 
or not ready. 

The File Management System is an 
equally impressive feature of Orches- 
tra-80. This system provides for orderly 
storage and retrieval of user files on tape 
or disk. All files are named, and the disk 
version adds the extension "/ORC" to the 
filespec. By typing D, the program will dis- 
play a directory of all files on a given disk 
with the /ORC extension. The disk and 
tape files are compressed when written, 
allowing fast retrieval and reduced disk/ 
tape space requirements. A special com- 
mand lets the user enter the names of as 
many files as he would like the system to 
perform. The computer will then call the 
files to the screen and play them succes- 
sively. 

The Initialization Routine allows the us- 
er to alter the tone colors of one or more of 
the four registers, to achieve special ef- 
fects or special dynamics. The altered 
program can then be saved on tape or disk 
with its own file name, eliminating the 
need to go through the initialization dia- 
logue in the future. The disk version adds 
the extension "/CMD" to the user-selected 
filespec. 

Orchestra-80 is also extremely well doc- 
umented. The package comes with a 
39 page typeset manual— a refreshing 
change from the typewriter and mimeo- 
graph manuals so many companies are 
providing. The manual gives full instruc- 
tions on set-up and use of the Orche- 
stra-80 system, including an important 
section for non-musicians on reading 
sheet music. 

Software Affair's Orchestra-80 repre- 
sents a best buy in computer music sys- 
tems. Its price is less than half that of 
comparable systems, its documentation 
is thorough, and its operation is bug free 
and enjoyable. ■ 
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FLOPYCAT/BAS 

DISK NAME/BAS 

Marvin Plunkett 

Microcomputer System Consultant 

Roseburg, ORE 

$30.00 

$15.00 

$40.00 (for both) 

by G. Michael Vose 

Anyone who has struggled through 
three or four boxes of floppy disks try- 
ing to spark a memory as to where you put 
that great program you wrote, will be 
happy to learn about this new disk library 
program from Marvin Plunkett. 

The program has been pegged with the 
rather inelegant moniker, FLOPYCAT7 
BAS, but the inelegance stops there. 
Everything else about this program is in- 
deed elegant. 

First Rate Presentation 

First of all, it is fast. Using machine lan- 
guage subroutines relocatable for sorting 
and other high level tasks, this BASIC pro- 
gram works as fast as any high quality 
word processor. These subroutines are 
tucked into REMark statements to make 
the program easy to use while saving disk 
and memory space. 

Second, FLOPYCAT/BAS is easy to use. 
The screen presentation is first rate, all 
prompts are well laid out and easy on the 
eye. The screen is never cluttered. Marv 
Plunkett understands that it is often the 
little things, like attention to detail, that 
make the difference in a quality product. 

Most importantly, FLOPYCAT/BAS is 
versatile. You'll need a 32K minimum sys- 
tem to use this software and you'll be able 
to store 429 disk file names in that 32K . If 
you've got 48K, you can store up to 1084 
file names. You'll be able to use manual 
input or let the program read the files 
automatically. You can read the entire 
library on screen, at any time, or you can 
print out the entire list. You can change 
file and disk names and delete files, as 
necessary. There are search routines to 
help you find a specific file and you can 
sort your disk library by disk name or file 
name. 

The features of FLOPYCAT/BAS that I 
especially admired include: 

• As it reads a disk into the library, each 
file name is flashed briefly on the screen. 

• As each disk is read into the library, the 
used and vacant library space is listed at 
the bottom of the screen; you'll always 
know how much more data you can tuck 
away into that particular library file. 

• When you print a list of your file library, 



the program lets you input a title for the 
list so that you can have separate lists for 
work disks, masters, game disks, Scripsit 
files, etc. 

There is extensive error trapping built 
into the program. I particularly enjoyed be- 
ing warned, as I was trying to exit to 
BASIC, that the file had been changed but 
not written to disk. I slapped my knee and 
chuckled at my limited memory space and 
wrote that file to the disk, pronto! 

There are several disk directory pro- 
grams on the market now. All are reason- 
ably fast and efficient. Some hold more 
data than FLOPYCAT/BAS. But I give 
FLOPYCAT/BAS the edge because of the 
author's attention to detail, the overall 
polish of the screen displays and the user 



prompts. The documentation exhibits 
these same qualities and never bogs you 
down with unnecessary details. If you are 
interested in the details, the program doc- 
umentation is available from the author 
for $30. 

As a plus, for $10 more, you can pur- 
chase a companion program, equally 
elegant, called DISKNAME/BAS. This 
BASIC program allows you to change the 
names of your disks. You can choose 
whatever name you like (anything's better 
than TRSDOS 2.3!). For example, you 
could name your disks Gamesl, Games2, 
Education, etc., and then use FLOPY- 
CAT/BAS to store the files using these 
names. Using these programs, your disks 
will be much easier to keep track of, and 
will result in instant organization! ■ 



BASCOM 

BASIC Compiler for Model I 

Microsoft 

Bellevue, WA 

$195 

by Bill Sholar 



BASCOM, as Microsoft calls their com- 
piler, arrived with a loose-leaf binder 
containing several hundred pages of doc- 
umentation, and two five-inch diskettes. 

Interpreters are handy, especially in de- 
veloping a program in BASIC. But inter- 
preters have to perform an interpretation 
of the BASIC line every time it is encoun- 
tered. That can be time-consuming, espe- 
cially in loops. 

A compiler, on the other hand, goes 
through the BASIC source program and 
generates a machine language version 
which can be saved on the disk. When that 
version, called the object program, is exe- 
cuted, there is no need for interpretation. 
The program executes at machine lan- 
guage speed. Microsoft promised an in- 
crease in speed of anywhere from three to 
30 times over the interpreter's execution, 
depending on the program. (They explain 
that integers work faster, and offer an ex- 
ample. The routine FOR 1 = 1 TO 10:A(I) = 
0:NEXT I will run 30 times faster if the user 
merely replaces I with 1%.) To test these 
claims, I ran a statistical program I occa- 
sionally use with the interpreter (Radio 
Shack's Disk BASIC 2.2). It took 23 sec- 
onds to complete the computations, as 
measured by the internal TRS-80 clock. 
For example, typing: 

BASCOM filespec = filespec 
L80 filespec, f ilespec-N-E 



compiled the program. The compiled ver- 
sion should work faster, and it did. It ran in 
less than a second. That is some improve- 
ment! 

The manual suggests that only pro- 
grams which are debugged and are to be 
used several times should be compiled. It 
is, after all, a time-consuming process to 
compile a program, taking from five to ten 
minutes. But there may be occasions 
where you will want to compile a program 
for a one-time run. 

To use BASCOM, it is necessary to 
write a normal program for the TRS-80 
Disk BASIC interpreter (or use one you 
have already written). There are only a very 
few incompatabilities, which do not seem 
to be too important. (For example, my line 
IF Y = THEN RUN had to be changed to 
IF Y = THEN 10.) Then the program is 
saved in ASCII format. Two commands 
will generate, on your disk, a machine lan- 
guage version of your BASIC program. 
(With a single drive, you will need to swap 
disks a couple of times.) The process 
takes about five minutes. 

Some Limitations 

You need a 48K TRS-80 with at least one 
disk drive to use BASCOM. Two drives, es- 
pecially 40 track ones, are better. (Al- 
though Microsoft doesn't mention it, you 
can save time by putting all of the compil- 
er programs and data on a single 40 track 
data disk, and using a system disk for cre- 
ating and storing your source and object 
code. This will save some disk swaps even 
for dual drive systems.) 

At the moment, you can only run pro- 
grams of about 16K or less in length. Al- 
though the compiler itself reads source 
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code from disk (and could, therefore, han- 
dle even an 80K program), the linking load- 
er loads the program into memory. The ob- 
ject code and the run time system (this re- 
places the BASIC in ROM and RAM usual- 
ly used by your program), requires sub- 
stantially more memory than the original 
source code. With memory area already 
taken up by the loader, little room is left 
for lengthy programs. 

Microsoft has promised, however, to 
send all registered owners of BASCOM a 
new linking loader disk which will allow 
larger programs to be compiled and load- 
ed. They have also promised to send regis- 
tered owners who request it a copy of their 
permanent manual as soon as it is off the 
presses, to replace the original loose-leaf 
manual. 

The only other limitation is the inability 
of the USR(n) function to pass arguments 
to machine language subroutines. But 
there is a fix for that. 

A Few Surprises 

Included with the BASCOM documen- 
tation is a BASIC-80 Reference Manual. 
BASIC-80, also called BASIC 5.1, or 
MBASIC, is the BASIC you've probably 
seen advertised for CP/M and other oper- 
ating systems. You may have noticed that 
it costs about what a new disk drive would 
cost. Well, smile, because purchasers of 



Microsoft's BASIC Compiler for TRS-80 
Model I get BASIC-80 at no extra cost. 

The BASIC-80 they provide has all of the 
features, including the ability to reset the 
width of your screen or printed display, 
WHILE. . .WEND loops, variable names 
with 40 significant characters, SWAP, and 
CALL (a fix for the USR(n) problem). How- 
ever, you don't get the interpreter, mean- 
ing that you have to write the source code 
and then compile it before you can run it. 
(The Radio Shack Disk BASIC doesn't un- 
derstand BASIC-80, needless to say.) To 
compile BASIC-80 instead of Radio 
Shack's Disk BASIC, all you do is type a 
one character signal indicating which 
form of BASIC you are using. 

Errors in standard BASIC can be detect- 
ed by running the program using the inter- 
preter, and then correcting any detected 
errors. Mistakes in either Disk BASIC or 
BASIC-80 will show up, when being com- 
piled, with error codes, the line containing 
the error, and an arrow pointing to the 
error! 

Considering this compiler is the same 
software that is being sold for Model II 
and CP/M users for about twice that price, 
we Model I users are getting a real break! I 
heartily recommend BASCOM. It's like go- 
ing from a cassette player to a disk drive 
again. ■ 



Kim's Game 
General Computer Co. 
Woodbridge, VA 
$19.95 cassette 
$24.95 disk 

by Eric Maloney 

Put this program, a keg of beer and 20 
friends in your living room, and what 
have you got? The last party of yours that 
those people will ever come to. 

Kim's Game, the "mind-expanding 
game of memory and recall," combines 
the excitement of math drills with the 
gaiety of Roget's Thesaurus to provide 
you and your guests with hours of unre- 
lenting boredom. 

In all fairness to General Computer, 
Kim's Game is far from shoddy. It is well- 
produced, well-packaged, and comes with 
a 36-page loose-leaf manual that includes 
the BASIC source listing. And it will prob- 
ably do exactly what it promises— im- 
prove your memory. 

The name is taken from the Rudyard 
Kipling novel, Kim, whose title character 
plays a memory game in which he must 
glance at a group of items on a tray then 
try to recall them. Kim the program substi- 



tites words for objects, and gives the play- 
er points for each one that he remembers 
correctly. The words increase in number, 
length, difficulty and value to make the 
game more challenging. 

But there is a huge difference between 
remembering physical objects— as Kip- 
ling's character does— and remembering 
words. The former is visually exciting, and 
offers players far more mnemonic op- 
tions. Two people will perceive the same 
object differently, and these perceptions 
will change dynamically with variations 
in, for example, the object's environment, 
its distance from the player, its juxtaposi- 
tion to other objects and its angle to the 
eye. In contrast, a word on a computer 
screen, is dry, static, flat, and lifeless. 

The game does have one redeeming 
feature— it lets players add their own 
words. This provides a unique avenue of 
expression for the sexually deviant and 
socially depraved. Perhaps the game's 
true value lies in its potential psycho- 
therapeutic applications. 

Ultimately, though, Kim's Gamequickly 
becomes Kim's Endurance Test. An im- 
proved memory may have its advantages, 
but this program makes forgetfulness 
look like an attractive alternative. ■ 



Astrology 
Tandy/Radio Shack 
Ft. Worth, TX 
16K Level I & II 
$29.95 cassette 

by Dennis Thurlow 

If your only previous experience with 
astrology is the column in the news- 
paper or the scales at the dime store, you 
probably won't be able to use most of the 
information produced by this addition to 
the TRS-80's software line. However, if 
you are a professional charter, you're go- 
ing to wonder what happened to some 
very important information. 

The non-professional user, who is less 
likely to have a printer, will find it hard to 
assimilate the long lists of data. That's 
why charts were developed. Yet the docu- 
mentation to this particular program 
doesn't tell you how to make one. The pro- 
fessional, who is more likely to be able to 
afford a printer, knows how to make his 
own charts. So why write a program that 
only generates a chart on the printer? 

When a subject's exact time of birth is 
not known, the list of houses and ascend- 
ing sign (which is important to a complete 
astrological reading) is not given. The pro- 
fessional knows this is because estimat- 
ing the time is not accurate enough for 
houses, but Radio Shack gives no expla- 
nation to the novice. 

If the program was written with the pro- 
fessional in mind, then why doesn't it give 
heliocentric (sun-centered) aspects along 
with the geocentric (earth-centered) ones? 
Where is the median sign? The sidereal 
(star relative) time? Why are the calcula- 
tions only accurate for the 20th century? 

The program shortchanges both the 
professional and the beginner. It appears 
that Radio Shack software developers on- 
ly got halfway on this one.H 
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Cross References Utility 
Robert Kilgus 
Tandy/Radio Shack 
Ft. Worth, TX 
$14.95 

by Stephen F. Nowak 

Some people say that the TRS-80 is the 
most popular microcomputer be- 
cause it has such a broad base of soft- 
ware support from so many different 
sources. There is a version of every game 
program on the market for the TRS-80, and 
most business programs are available in 
many forms for Tandy's favorite child. 

Nevertheless, another important attri- 
bute of the TRS-80 is its ability to be easily 
programmed via its powerful BASIC inter- 
preter. Most users buy some programs 
and write others. At first, programs are 
short, sweet and simple, but as the user 
gains familiarity with what BASIC can do, 
the programs get longer and more com- 
plex. We get more confident and freely 
modify existing programs to "improve" 
them. 

Unfortunately, while writing a new pro- 
gram or improving an old one, we tend to 
lose track of which variables go where, 
and how we got to line 2050. TRON helps, 
but if there's a CLS between where we 
were and where we're going, it can be- 
come frustrating. The problem is further 
complicated if we reassign variables 
throughout the program after they've 
completed FOR-NEXT loops. 

Fortunately, there is now a good solu- 
tion available for this problem. Cross 
Reference Utility generates lists of refer- 
ences for the following important items: 
Line numbers: It lists line numbers that are 
called by GOSUB and GOTO commands 
and the lines where those references exist. 
Variables: It lists all variables that are 
defined or used, and each line where that 
variable appears. 

Reserved words: It lists all reserved words 
and the lines where they appear. 

If an item appears more than once in a 
line, the line number is listed as many 
times as the item appears. This is espe- 
cially useful where there are multiple 
statements in a line with all of the extra 
spaces squeezed out for memory effi- 
ciency. 

The program is used in Level II BASIC 
by loading it with the System command, 
after which programs can be examined by 
being read from cassette by the utility pro- 
gram. With a disk system, the utility is 
called from TRSDOS by its f ilespec, XREF/ 
CMD, after which BASIC language pro- 
grams are examined after being read from 
either disk or cassette. 



Once the program is loaded, a series of 
prompts appear on the screen which must 
be answered with either a Y or an N: 

PRINTER? 
LINE-NUMBERS? 
VARIABLES ? 
RESERVED WORDS? 
FROM DISK? 

Any combination of cross references 
may be chosen. The menu is almost idiot 
proof. If you inadvertently answer Y to the 
printer query without having a printer con- 
nected, the computer will tie up just as if 
you had entered LPRINT without a printer. 

The program prompts you to ready the 
cassette or to enter the disk filespec. If 
you specify a non-existent file, it will re- 
spond with CAN'T READ! TRY AGAIN. If 
you attempt to load a file which is not a 
BASIC language program it will return the 
statement WRONG TYPE FILE! TRY 
AGAIN. 

If you don't own a printer, the listing can 
be stopped by pressing the shift and @ 
keys simultaneously. If you wish to enter a 
new file, pressing the enter key will return 
the program to the "From Disk" query. To 
restart the program press shift and @ si- 
multaneously and then enter. 



At the end of a listing, the program al- 
lows you to re-examine the same file, load 
a new file, or exit. 

The machine language program is sold 
on cassette, and comes with a well-writ- 
ten instruction manual, which includes a 
step by step (or, should I say, key by key) 
procedure for operating the program. The 
manual also includes a section with con- 
cise directions for transferring the pro- 
gram from cassette to disk using the 
TAPEDISK utility. 

The manual looks larger than the infor- 
mation it holds, since someone decided to 
print the instructions on only one side of 
the page. Also included are directions for 
backing up a diskette, but the directions 
assume that the user has a two-disk sys- 
tem. 

The shortcomings in the documenta- 
tion are very slight, but are glaring when 
compared with the high quality of the pro- 
gram itself. 

Radio Shack released this program in 
the fall of 1980, but the program itself dis- 
plays a 1979 copyright date. 

I feel that Tandy needs to catch up on 
quality in the software department, and 
this program is a giant leap in the right 
direction. ■ 



The Wizard 
Richard Taylor 
Programs Unlimited 
Jericho, NY 
$19.95 disk 

by Joe Simon 



As I was walking past a dealer's booth 
at the New York Computer Show I 
heard a pssst . . . Never being one to pass 
up a pssst. . . I immediately went over to 
check it out. 

There was this evil looking fellow who 
asked me if I was tired of computer games 
that never went anywhere. With an 
affirmative nod of my head he sat me 
down and told me to choose a subject. 

Doubtful that this program was going to 
be different from games I have played and 
shelved in the past, I reluctantly selected 
a subject. Suddenly, all hell broke loose; 
the TRS-80 started to make strange noise- 
es, the monitor began to flash and I found 
myself in a a battle against time to answer 
the questions correctly. 

Needless to say, I was there for some 
time trying to prove I was smarter. It was a 
draw. I was so involved in the challenge 
that I didn't even notice the fellow looking 
over my shoulder, laughing and wringing 



his hands. 

Anyway, I got the program and here is 
what it was. It's a program called the Wi- 
zard and is reminiscent of the coin arcade 
games that ask you a series of questions 
on various categories in exchange for 
points and a free. game. It gives you a 
choice of five subjects: presidents, tele- 
vision, trivia, Star Trek, the movies, and 
general knowledge, you can play The 
Wizard alone, against the clock, or 
against another player. 

When two people play, you are not only 
pitted against the clock, you also play 
against your opponent who can steal your 
questions or force you to answer ques- 
tions he rejects. When you answer cor- 
rectly, points are added to your score. A 
wrong answer results in points subtracted 
from your score, and if you steal a ques- 
tion from your opponent and answer it 
wrong, double points are subtracted from 
your score. 
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Software Innovation (see page 49). Available on tape or disk, same 
price as plain version. One "Stick 80" works with all. Money h»ri*; 







TWICE 



No* 
THE FUN TRS-80 



STICK-80 MAKES KEYBOARD OBSOLETE. 

Features the lamous ATARI Joystick. 8 directions + fire 
control. Simple instructions to make joystick versions ot 
most action games. Plugs into keyboard or expansion int.. 
Price includes ATARI joystick with ALPHA interface and 
instructions. FREE "MAGIC ARTIST" program I $39.95 
Super Real Time Action Graphic Sound games for SticK-SO 
by Software innovations ALIEN INVASION. 
COSMIC INTRUDERS BREAKOUT Each S9 95 

STELLAR ADVENTURE, super action with sound S14 95 
Software auihors and distributors: contact us for joystick 
conversion package for your existing games 




MUSIC- 80 MUSIC-80 MUS1C-80 MUSIC-80 MUSIC-80 

Use existing software 
or write your own. With this low cost 8 bit digital to 
analog converter you can synthesize up to 5 music voices. 
Built-in volume control handy when stereo not near TRS-80 
Simply plug the "MUSIC-80" into the keyboard or tne E/l 
screen printer pet and connect the output (RCA jack) to any 
amplifier. The Radio-Shack $12 speaker/amplifier works 
fine. 
Fully assembled and tested , 90 day warranty $39.95 




YOU ASKED FOR IT: "EXPANDABUS" XI, X2. X3 AND X4. 

CONNECT ALL YOUR TRS-80 DEVICES SIMULTANEOUSLY 
on the 40 pin TRS-80 bus. Any device that normally olugs 
into the keyboard edge connector will also plug into the 
"EXPANDABUS". The "X4" is shown with protective 
covers (included). The TRS-80 keyboard contains the bus 
drivers (74LS367) lor up to 20 devices, more than you will 
ever need. Using the E/l, it plugs either between KB and E/i 
or in the Screen Printer port. Professional quality, gole 
plated contacts. Computer grade 40 conductor ribbon cable. 
X2...$29 X3...S44. X4. $59 X5...$74 

Custom configurations are also available, call us. 




ANALOG-80: A WORLD OF NEW APPLICATIONS POSSIBLE. 
8 DIGITAL MULTIMETERS PLUGGED INTO YOUR TRS-80 1 " 
Measure Temperature. Voltage. Current. Light Pressure, etc 
Very easy to use: for example, let's read input channel #4 10 
OUT 0.4 'Selects input #4 and also starts the conversion 20 
A = INP(0) 'Puts the result in variable A". Voila! 
Specitications: Input range: 0-5V to 0-500V Each channel 
can be set to a different scale 
Resolution: 20mV (on 5V range) Accuracy 8 bits (.5%). Port 
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LET THE "CHAIN BREAKER" FREE YOUR MINI-DRIVES. 
End 'he daisy-chain mess once and for all. Fits all mini- 
drives: Percom. Aerocomp. Shugart. Micropolis. MTI, Vista. 
Pertec. Siemens. BASF. Easy fo install: |ust remove the 
drive cover, plug in the "CHAIN BREAKER" and replace the 
cover. Voila!!! 

Now you can change and move your drives around without 
disassembly. Keep the cover on and keep the dust out High 
reliability gold plated contacts, computer grade 34 
conductor cable Tested and guaranteed. 
Get one for each drive only $13.95 



INTERFACER 2: LOW COST INPUT/OUTPUT MODULE . 

Still the bes! value in sense/control devices. Use it for 

energy control, burglar alarm, darkroom, selectric drive. 

model trains, robots. Skinner box... 

—8 latched TTL outputs. 2 relays SPDT 2A. 125V. contacts 

—8 TTL/CMOS inputs. Input and 1 are optically isolated. 

—Neat and compact design, very easy to use: 

10 A= INP(O) 'Reads the 8 inputs (if A = 0: all inputs are 

low) 20 OUT 0,X 'Controls the outputs and the relays 

Assembled & tested, 90 day warranty. Price includes power 

supply, cable to KB or E/l, superb user's manua', free 

phone dialer program: $95. Manual only: $5. 



power relays uncle! 

-j,j,u,j.j^,-j.i,«< y° ur i 

ami - s 




INTERFACER-80: the most powerful Sense/Control module 
•8 industrial grade relays, single pole douole throw isolated 
contacts: 2 Amp. @ 125 Voits. TTL latched outputs are also 
accessible to drive external solid state relays. 
.8 convenient LEDs constantly d isplay the relay states. 
Simple "OUT" commands (in oasici control the 8 relays. 
.8 opiicaliy-isolated inputs for easy direct interlacing to 
external switches, photocells, keyoads. sensors etc. 
Simple "INP" commands read the status of the 8 inputs 
Selectable port address. Clean, compact enclosed design 
Assembled, tested. 90 days warranty. P-ice includes power 
supply, cable, connector, superb user's manual Si 59 



GREEN SCREEN 

WARNING 

IBM and all the "biggies are using green screen monitors 

Its advaniages are now widely advertised. We leel that every 

TRS-80 user should emoy the benefits it provides. But 

WARNING: ah Green Screens are not created equal Here is 

what we found' 

•Several are just a flat piece of standard colored Lucite. The 

green tint was not made for this purpose and is |udged by 

many to be too dark. Increasing the brightness control will 

result in a fuzzy display. 

♦Some are simply a piece of thin plastic film taped onto a 

cardboard frame. The color is satisfactory but the wobbly film 

gives it a poor appearance. 

•One "optical filter" is in tact plain acrylic sheeting 

•Faise claim: A few pretend to "reduce giare" in fact, their 

flat and shiny surfaces (both film and Lucite type! ADD their 

own reflections to the screen. 

•A few laughs One ad claims to "reduce screen contrast ". 

Sorry gentleman bul it's just the opposite One of the Green 

Screen's major benefits is to increase the contrasi between 

the text and the background. 

•Drawbacks: Most are using 'adhesive strips to fasten their 

screen to the monitor. This method makes it awwward to 

remove for necessary periodical cleaning. All (excepf ours) 

are flat. Light pens will not work reliably because of the big 

gap between the screen and the tube. 

Many companies have been manufacturing video filters for 

years We are not the first (some think they are), but we have 

done our homework and we think we manufacture the best 

Green Screen. Here is why 

•It fits right onto the picture tube like a skin because it is the 

only CURVED screen MOLDED exactly to the picture tube 

curvature. It is Cut precisely to cover the exposed area of the 

picture tube. The fit is such that the static electricity is 

sufficient to keep it in place 1 We also include some invisible 

reusable tape for a more secure fastening 

•The tiller material that we use is just right, not too dark nor 

too light. The result is a really eye pleasing display 

We are so sure that you will never lake your Green screen off 

that we offer an unconditional money-back guaranty: try our 

Green Screen for 14 days. If foi any reason you are not 

delighted with it. return it for a prompt refund. 

A last word: We think that companies, like ours, who are 

selling mainly by mail should :«lisf their street address«have a 

phone number (for questions and orders )«accept CODs. not 

every one likes to send checks to a PO box«offer the 

convenience of charging their purchase to major credit cards 

How come we are the only green screen people doing if 

Drder your ALPHA GREEN SCREEN today $12 50 



ALPHA Product Co. 



85-71 79 St.WOODHAVEN N.Y. 11421 ® Info and order: (212) 296»5916 



^210 A0DS2 50 PER ORDER FOR SHIPPING ANO HANDLING 

ALL ORDERS SHIPPED FIRST CLASS MAIL 

WE ACCEPT VISA MASTER CHARGE CHECKS MO 

COD ADD S2 00 EXTRA 

QUANTITY DISCOUNTS AVAILABLE "f 

NY RESIDENTS AOD SALES TAX ■■ 
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THE STICK 80 

Ef FEATURES THE FAMOUS ATARI JOYSTICK. 

Ef WORKS WITH ANY LEVEL 2 AND DISK SYSTEMS. 

Ef PLUGS DIRECTLY INTO KB. OR E/l (SCREEN PRINTER PORT). 

Si INCLUDES SIMPLE, DETAILED INSTRUCTIONS TO MAKE 

JOYSTICK VERSIONS OF MOST ACTION GAMES. 
COMPATIBLE WITH ANY OTHER TRS-80 ACCESSORIES, 
gf FULLY ASSEMBLED AND TESTED. READY TO PLUG IN AND 

ENJOY. 
gf FUN TO EXPERIMENT WITH IN BASIC: SIMPLY USE INP(O). 
M 90 DAY PART AND LABOR WARRANTY. 



UNCONDITIONAL MONEY BACK GUARANTEE: Try your STICK-80 for 14 days. If for any reason you are 
not delighted with it, return it for a prompt and courteous refund (including shipping and handling). 
PRICE INCLUDES ATARI JOYSTICK + ALPHA INTERFACE + DETAILED INSTRUCTIONS + DEMO 
PROGRAM. ONLY $39.95 model 3 owners: we have a model 3 to model 1 adapter 




BIG FIVE SOFTWARE SUPER FAST MACHINE LANGUAGE ACTION GAMES 



If you and your TRS-80 have longed for a fast-paced arcade-type game that is 
truly a challenge, then SUPER NOVA is what you've been waiting for. In this 
two player machine-language game, large asteroids float ominously around the 
screen. Suddenly your ship appears and you must destroy the asteroids before 
they destroy you! (But watch out because big asteroids break apart into little 
ones.) The controls that your ship will respond to are thrust, rotate, hyperspace, 
and fire. All right! You've done it! You've cleared away all the asteroids! But what 
is that saucer with the laser doing? Quick! You must destroy him fast because that 
guys accurate! ♦♦♦♦>♦♦-♦ ♦»♦♦♦♦ SUPER NOVA* 



The sound of the klaxon is calling you! Cruel and crafty invaders have been 
spotted in battle formation warping toward Earth at an incredible speed. Suddenly, 
your ship materializes just below the huge flock of invaders. Quickly and skillfully 
you shift right and left as you carefully fire your lasers at them. But watch out! A 
few are breaking out of the convoy and flying straight at you! As the whine of their 
engines gets louder, you place your finger on the fire button knowing all too well 
that this shot must connect — or your mission will be permanently over! With 
sound effects! *~*~>GALAXV INVASION* 
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Your TRS-80 screen has been transformed into a maze-like playfiek) for this 
game. As your ship appears on the bottom of the screen, eight alien ramships 
appear on the top. All of them are traveling at flank speed directly at you! Quickly 
and boldly you move toward them and fire missiles to destroy them. But the more 
aliens you destroy, the faster the remaining ones become. If you get too good you 
must endure the wrath of the keeper of the mazefield: the menacing "Ragship". 
You must destroy him fast because, as you will find out, that guy's accurate! With 
sound effects! w , , ATTACK FORCE® 




With thousands of stars whizzing by you, your SPACE DESTROYER ship 
comes out of hyperspace directly under a convoy of aliens. Almost effortlessly, 
you skillfully destroy every last one. But before you can congratulate yourself, 
another set appears. These seem to be slightly more intelligent than the first set. 
Quickly you eliminate all of them, too. But your fuel supply is rapidly diminishing. 
You must still destroy two more sets before you can dock with your space station. 
All right! The space station is now on your scanners! Oh no! Intruders have 
overtaken the station! You must skillfully fire your neutron lasers to eliminate the 
intruders from the station before your engines run out of fuel and explode! With 

sound! ^♦♦♦^^♦♦♦♦^ COSMIC FIGHTER* 



The second Big Bang has occurred and the galaxy is full of stray asteroids 
and meteors. As you look through your space port you see a belt of asteroids 
drifting across the screen blocking your path to the safety of the space station 
above. But be careful because meteor showers, exploding suns and invading 
aliens may strike your ship and send it hurtling back to ground level. How many 
times can you and your opponent maneuver through those obstacles before time 
runs out? With sound effects!* ♦ ♦ ♦ « u FTpnp MISSION II 
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SPECIAL 

INTRODUCTORY OFFER: 

Order the STICK-80 with one or more 
games and choose one: 

•FREE ALPHA GREEN SCREEN 

OR 

•FREE MAGIC ARTIST PROGRAM 

IN ADDITION YOU MAY: 
ORDER 2 GAMES AND TAKE 10% OFF 
ORDER 3 GAMES AND TAKE 15% OFF 

All games are written in machine language and supplied on cassette 

EACH GAME IS AVAILABLE IN 2 VERSIONS 
SIDE 1: LEVEL II 16K FOR MODEL 1 
SIDE 2: LEVEL II 16K FOR MODEL 3 $15.95 



SIDE 1: DISK 32K FOR MODEL 1 
SIDE 2: LEVEL II 16K FOR MODEL 1 
THE DISK VERSION SAVES THE HIGH 
SCORES ON DISK $17.95 

* ALL THESE NEW JOYSTICK GAMES WILL ALSO WORK 
USING THE KEYBOARD WITHOUT ANY MODIFICATIONS, 

GOOD NEWS: If you already have a non- joystick 
version of these BIG FIVE SOFTWARE games, 
send the original tape(s) with your STICK-80 
order + $3 per game. We will send you a new 
Joystick version of yourgame(s). 

ALSO AVAILABLE DOUBLE-STICK 80: 2 ATARI 

JOYSTICKS + ALPHA DUAL INTERFACE + 

INSTRUCTIONS -l- DEMO PROGRAM: $59.95 



ALPHA Product Co. 



ADD S2.50 PER ORDER FOR SHIPPING AND HANDLING 

ALL ORDERS SHIPPED FIRST CLASS MAIL 

WE ACCEPT VISA MASTER CHARGE CHECKS MO 

COD: A0DS2 00 EXTRA 

QUANTITY DISCOUNTS AVAILABLE "^j 

N Y RESIDENTS ADO SALES TAX ■■ 



85-71 79 St. WOODHAVEN NY. 11421 



phone: (212) 296 5916 
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TRIPLE WARRANTY 

10 DAY FULL MONEY BACK GUARANTEE: 

If you don't like the game for any reason 
whatever, return it intact within 10 days 
of receipt for a complete refund. No ques- 
tions asked. 

30 DAY DEFECTIVE WARRANTY: Cassette 
or disk not functioning within 30 days of 
receipt: return it for exchange. No charge, 
of course. 

FOREVER — LIMITED LIFETIME WAR- 
RANTY: No matter what happens to your 
cassette or disk; the dog chewed it. . .you 
left it out in the rain... whatever. No 
matter when it happens. Return the 
remains to us (with $5.00 to cover all 
handling and shipping) and we'll send you 
a brand new cassette or disk. 



"Hellfire Warrior." Really not for everybody: newcomers to 
Dunjonquest should begin with something easier. Here the 
monsters are deadlier, the labyrinths more difficult, the levels 
far more challenging... 

But for the experienced Dunjonquest game player there are more 
command options, more potions (131). more magical items (including — 
at last — magical armor), more special effects, more surprises. And an 
innkeeper, an armorer, apothecary and magic shops. 

In part a sequel to The Temple of Apshai. up until now the greatest 
of all the Dunjonquest games, Hellfire Warrior can also be played 
completely on its own. 

Yjyi Now the character you've created, re- 
presenting the highest level of role- 
playing to date, can explore the four 
new lower levels: 

Level 5 — "The Lower Reaches 
• of Apshai." With the giant in- 

sects and other nasties that swarmed through the 
upper levels of Apshai. With rooms your hero can 
get into, but not out of. 

Level 6 — "The Labyrinth." The only exit is hidden 
in the Labyrinth. And man-eating monsters can thwart 
hero. 

Level 7- "The Vault of the Dead.". ..And of the 
undead — skeletons, ghouls, mummies, specters... 
invisible ghosts — lurking in the rooms, doors, secret 
passages, ready to reduce your hero to a pale shadow of 
himself. Permanently. 

Level 8 — "The plains of Hell." In an Underworld of 
lost souls and shades of dead, of dragons and fiery 
hounds, of bottomless pits and blasts of hellfire. our 
hero must rescue the beautiful warrior maiden lying 
in enchanted sleep within a wall of fire. And bring 

her past unbelievable dangers and monsters... 

even Death itself... to sun and air and life 

itself. 

Hellfire Warrior. The most exciting game yet 
from Automated Simulations, the leading producer of 
computer fantasy games. 

Guaranteed: if it's not the most exciting computer 
game you've played, return it within ten days for a 
complete refund. 

Available on disk for the Apple II and Radio 
Shack's TRS80. or on cassette for the TRS80 
and for the Commodore PET. The cassette or 
disk: $39.95. Boxed with a magnificent 
instruction manual. Some of the drawings in 
the manual are reproduced here (in greatly 
reduced scale). 

Hellfire Warrior. From the people who design and make some of the very, very best 
computer games, games that thinkers play. Including the great role-playing Dunjon- 
quest series— The Temple of Apshai, Datestones of Ryn. Morloc's Tower, and now 
Hellfire Warrior. And Invasion Orion and Starfleet Orion. And more. 

Hellfire Warrior. Like every EPYX computer game from Automated Simulations, it has 
the unique EPYX triple no-questions-asked warranty. 

Hellfire Warrior. Now available on disk or cassette for TRS80, the Apple and the PET. At 
better computer stores everywhere. If you can't find it at your local friendly dealer, 
insist he order it for you. 

Or you may order directly from Automated Simulations. If you want to use your 
MasterCard or VISA, use our toll-free phones: In the United States: operator 861 (800) 
824-7888; In California: operator 861 (800) 852-7777; In Hawaii and Alaska: operator 
861 (800) 824-7919. We'll also send you our new catalogue, hot off the press. 




Or write Department F2. P.O. 
Mountain View. CA 94040. 



)x4247, 1! 



Leghorn St.. 



Please specify if you wish the Disk for TRS80 (32K. TRSDOS) and 
Apple (48K with Applesoft in ROM or the Cassette for the 
TRS80(16K. Level II) or the Commodore PET (32K, old or 
new ROMs). Only $39.95, disk or cassette. " \^p^ 




5?? REVIEWS 



The Wizard is a program that really 
doesn't deserve to be called a game be- 
cause it can also be educational. The real 
power behind The Wizard is the utility that 
comes with it allowing you to program in 
your own questions and answers on any 
subject you want. 

This utility, I might add, is very easy to 
use. I have used it to program subjects on 
science and history. It is only limited by 



your imagination. A possible future addi- 
tion might be separate category modules 
that would include questions and an- 
swers on a variety of different subjects. 

There is one thing about The Wizard 
that could use improvement. The program 
takes a noticeably long time to load. 

In closing I think the Wizard would be a 
compliment to any program library and is 
well worth the asking price.B 



Deluxe Personal Finance 
Small Business Systems Group 
Westford, MA 
$39.95 



by Reese Fowler 

The Deluxe Personal Finance is an ex- 
tensive budget program to be used in 
an individual household. The system is in 
the form of a mini-general ledger and in- 
cludes an accounts payable program. 
Using the system you can: 

• Record 900 check transactions annually. 

• Allow nine budget categories per 
check. 

• Maintain an accurate checking account 
balance. 

• Provide summaries of income vs. 
spending by month. 

• Estimate and average monthly ex- 
penses. 

• Assign expenses to 28 different cate- 
gories. 

• Assign income to three different cate- 
gories. 

• Generate end of year reports for tax pur- 
poses. 

The package also includes an extensive 
manual that explains how to use the pro- 
gram. The manual also provides informa- 
tion on how to change the program to 
meet your specific needs. 

The program runs on two disk drives, 
TRS-80 Model I with 32K of memory. 

There are eight modules to the program 
that are called from a master menu. The 
data is written for a separate data disk 
that is inserted only when a request for 
data is made. This requires changing 
disks, consequently a second drive helps 
to expedite the process. 

One criticism I have of the program has 
nothing to do with its operation. The pro- 
gram maintains a good set of records, but 
only if they are utilized. Often, there is a 
tendancy in a budget program to use it for 
awhile and then to stop. 

However, if you do use Deluxe Personal 
Finance, all the data you need at income 
tax time will be right at your fingertips. ■ 



Quill Driver: A Text Formatting Program 
The Alternate Source 
Lansing, Ml 
Model I 32K 
Model II 64K 

$39.95 disk 

p 

by Dennis Thurlow 

A Quill Driver is not a word processor: 
it is a text formatter. This informa- 
tion, and its ramifications, are not explicit- 
ly layed out in its documentation and this 
may lead you to believe it is actually a 
word processor. After the table of con- 
tents, introduction, and preface, there is 
one line in the overview stating that text 
files are prepared using the BASIC editor, 
EDTASM, or any program that creates un- 
numbered files of text. 

Back to Front 

Chapter 2 briefly touches on this fact 
again, but you will find no examples or dis- 
cussion of what form the files must have 
until you reach Appendix B. 

I spent two frustrating hours reading 
through the manual, waiting to find some 
reference to input. When I reached the 
end, it occurred to me that the manual 
would make much more sense read back 
to front. Accordingly, this review will cover 
the manual— from back to front. 

First we find the registration form. I 
suggest you send this in because I did find 
one bug in the system and there's no way 
they can inform you of the fix unless they 
know who you are. 

Next is Appendix D, which tells us 
about a machine language driver that de- 
bounces the keyboard; keeps LPRINT 
from hanging up your machine; LPRINTs 
compression codes as proper tabs; gives 
you a repeat key function; allows several 
lowercase options; and sends line feeds 
and control characters when and where 
they are appropriate. Loading and use of 
the driver on a variety of systems is very 
clearly explained. 




Dawning of the Light 

Appendix C explains how to patch dif- 
ferent versions of EDTASM to accept low- 
ercase input. Why would you want to 
patch EDTASM? The light suddenly 
dawns! You can use EDTASM to make 
text files! 

Appendix B shows the format for those 
files using two clear examples that also 
demonstrate most of the available print- 
ing features. On my disk, the EDTASM 
files differed slightly from the example, 
but this didn't cause any problems. 

In Appendix B you learn how to imbed 
the codes to the formatter. Appendix A 
lists the codes, gives a brief description of 
each function, and the location of a com- 
plete description found in the text of the 
manual. 

The last chapter contains the operating 
instructions for the program. It is easy to 
deduce from the operating instructions 
that text prepared with the BASIC editor 
can be used, as can files written to disk 
with no line numbers. 

The program, which is written in BASIC, 
performs all the standard word process- 
ing functions when printing, is amazingly 
versatile and works perfectly with files 
prepared in the methods described in Ap- 
pendix A and B. It had some trouble keep- 
ing track of the .AL counters in EDTASM 
prepared text. Normally, the .AL code 
allows you to switch back and forth be- 
tween two files of text opened simultan- 
eously. This is great for typing form letters 
while adding a different heading or per- 
sonalized comments on each. 

Once you figure out how to use the Quill 
Driver you will be delighted at how well it 
works, but please, sdrawkcab noitat- 
nemucod eht daer! ■ 



"The program, which is 

written in BASIC, performs 

all the standard word 

processing functions 

when printing 
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THE ASSEMBLY LINE 



by William Barden, Jr. 



. . . if the machine language output 

is relocatable, it can be 

embedded in BASIC. . . in dummy 

strings, arrays and other formats." 



In assembly language as in real estate, 
it's sometimes better to remain where 
you are and not move around. Sure, I know 
that Zilog literature touts the Z-80 as pro- 
ducing relocatable code with the JR and 
DJNZ instructions— but how hard is it to 
make all code relocatable? About as easy 
as it is to sell your "3 BR, FDR, view, near 
Radio Shack store" home with the sag- 
ging rain gutters and cutworm-ridden 
dichondra. . . 

You know what's coming next: I'm go- 
ing to gripe and moan about how hard it is 
to use the Z-80 for relocatable code! If you 
can tolerate the lamentations, we'll look 
at code which will provide 50 percent more 
disk or memory capacity for text data, to 
illustrate the problems of relocatability. 
We'll also review some books and, for you 
puzzle buffs, we'll have the Fourth Great 
Assembly Line Programming Contest. 

Why Relocatable Code? 

There are many reasons assembly lan- 
guage code should be relocatable. The 
first to come to mind has been discussed 
many times in this column— if the ma- 
chine language output is relocatable, it 
can be embedded in BASIC programs in 
the form of dummy strings, arrays, and 
other formats. This way machine code 
can be part of the BASIC program and 
loaded as one module. 

A second reason for relocatable code is 
to make the object module free to move 
anywhere in memory without having to 
reassemble. Most of us have had cassette 
versions of programs that were not usable 
in DOS because they overlaid portions of 
the DOS. Finding the starting and ending 
addresses of the program is easy enough, 
but how to relocate the code to higher 
memory so it could be stored and read 
from disk is a stumper. In most cases the 
source code is proprietary. Fully relocat- 
able code would avoid this problem. 

Another reason: With a number of relo- 
catable object modules in a library, it 
would be a simple matter to use them 
together to create a larger applications 
program without having to worry about 
reassembling. The disk Editor/Assembler 
will automatically relocate object code to 



any area of memory, but why not work di- 
rectly with a module instead of a sophisti- 
cated loader? It might even be possible to 
emulate the actions of a large system by 
allocating memory dynamically fora num- 
ber of separate tasks. The tasks could be 
moved without having to adjust the code 
for relocation; possibly even some multi- 
programming could be done— running 
several programs concurrently in memo- 
ry- 



1 In assembly language 

as in real estate, 
it's sometimes better. . 
not to move around. 



A Base 40 Converter 

According to Zilog literature, it's a rela- 
tively simply matter to spew out relocat- 
able code. Let's take a look at a typical 
program and see what's involved in mak- 
ing it completely relocatable. The pro- 
gram I chose to write for this exercise is a 
Base 40 converter. 

The Base 40 converter has been around 
for a long time. The idea is this: If we work 
with a subset of 40 characters— the let- 
ters A through Z, the digits through 9, 
and four special characters— it's possible 
to compress what would be three ASCII 
bytes into two bytes! This means we 
could increase our diskette or memory ca- 
pacity by 50 percent as long as we are will- 
ing to use only the 40 characters. 

Why 40 characters? If each character is 
assigned a code 0—39, a 16-bit register 
pair or pair of memory locations can hold 
three digits of a base 40 number. If codes 
0—9 represent the digits 0—9, codes 
10—35 represent the letters A— Z, and 
codes 36, 37, 38, and 39 represent four 
special characters, the base 40 number 



29, 27, 28 would represent "TRS". The 
base 40 form would be 29*48**2 + 
27*40**1 + 28*40**0, where 'represents 
the multiplication operator and ** repre- 
sents exponentiation. This is the same as 
29*1600 + 27*40 +27*1 = 47507, which 
can be held in 16 bits. 

The largest number would be 39*1600 
+ 39*40 + 39*1, or 63,999, which could 
be held in 16 bits with no problem. To 
answer your next question— no, base 41 
would have a maximum value of 68,920, 
too large for 16 bits! 

The program is shown in Listing 1. It 
consists of two parts, Encode, that con- 
verts three ASCII characters into a two- 
byte base 40 number, and Decode, that 
reconverts a two-byte base 40 number into 
three ASCII characters. 

Enter Encode from BASIC with the 
usual Level II, Level III, or Disk BASIC call. 
The CALL 0A7FH puts the argument into 
HL. The argument points to the three 
characters to be converted. On return, the 
two-byte result is put into the first and 
second bytes. If any of the characters is 
not one of the 40 characters, a zero is used 
as the code. 

Entry to Decode is made with the argu- 
ment pointing to the two bytes of a base 
40 number. On return, the three character 
result is put into the first, second, and 
third bytes of the string. 

Listing 2 shows a test of Encode/Decode 
from Disk BASIC. An input string of three 
characters is converted to two bytes, the 
two bytes are displayed, the two bytes are 
reconverted, and the result is again dis- 
played. USR0 is for Encode and USR1 is 
for Decode. 

Program Listing 1 is not relocatable. If it 
were moved from the 7F00H area to 
BF00H, for example, it would bomb. The 
CALL OA7FH is relocatable. It would re- 
main the same, as a call must always be 
made to pick up the argument from the 
BASIC interpreter. Everything else is relo- 
catable down to CALL XLATE, which in- 
volves an address within the Encode/De- 
code code, and must be changed if the 
program is relocated. 

Continuing down the listing, we find no 
more non-relocatable CALLs or JPs; the 
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JRs are always relocatable, as they are 
referenced to the contents of the program 
counter which changes according to the 
instruction being executed. The displace- 
ment in the second byte of the JR is fixed, 
no matter where the Encode/Decode set 
of code is moved. 

There are four other non-relocatable in- 
structions: The three LD IX instructions 
that pick up TABLE - 1 or TABLE + 39 and 
the LD DM TABLE are not relocatable. The 
immediate address in bytes one and two 
of these instructions change based on 
where TABLE is located in memory. In all, 
one CALL and four immediate LDs must 
be made relocatable before Encode/De- 
code can be moved. 

Possible Relocation Schemes 

Look at the crib sheet of the Z-80 in- 
structions. There is no way to read the 
contents of the program counter that 
doesn't involve a relocatable instruction! 
There are some other approaches, how- 
ever, that might be used. 

We could have the calling routine pass 
us the base argument of Encode. If this 
code is in a dummy string or array, pre- 
sumably we could always find the address 
in BASIC by a VARPTR. This address 
could be passed as a parameter to the 
routine itself. If the routine were at A$, for 
example, the following code would pass 
the base address to the routine: 

100B = VARPTR(A$) 

110 B = PEEK(B + 1)+PEEK(B + 2)"256:IF B>32767 

THEN B = B-65536 

120DEFUSR0 = B 

130A = USR0(B) 

Another way we could pass the base 
address to the routine is by executing a 
CALL to some fixed location in memory. If 
the CALL address were permanently at 
FF00H, CALL 0FF00H would be relocat- 
able. The code at FF00H could then get 
the return address from the top of the 
stack and return it in a register pair. 
Something like this would suffice: 

POP HL 

JP (HL) 

This code puts the return address into 
HL from the top of the stack, then jumps 
to the return address using HL. The return 
address in HL is not destroyed in the 
return, as it is in RET. If we have the ad- 
dress of the instruction following CALL 
0FF00H, we can easily compute any ad- 
dress in the program block. 

The two instruction sequence above is 
in ROM at location OBH. As ROM never 
changes, 133 revisions notwithstanding, 
we can use the POP HL, JP (HL) as a 
"where am I" function from any assembly 



language program. 

Adding Bias to a Base Address 

Calling location OBH in ROM returns 
the address of the instruction following 
the call in HL. Knowing that address, it is 



easy to find the address of any location 
forward or backward from the address. 
The scheme that can be used for CALLs is 
to add a bias to the base address to com- 
pute the address of the return point, PUSH 
that return point, and then to JR to the 













Listing 


1. Encode/Decode 




7F00 




00100 






ORG 


7F00H 








00110 


***** 


******** 


k***************** 


************************* 






00120 


* 


BASE 40 ENCODING/DECODING PROGRAM. * 






00130 


* 




ENTER AT 


ENCODE FOR ENCODING: * 






00140 


* 




ENTRY : 


HL=> 3 ASCII BYTES FOR ENCODING * 






00150 


* 




EXIT: 


HL DESTROYED. 2 ENCODED BYTES IN BUFFER * 






00160 


* 




ENTER AT 


DECODE FOR DECODING * 






0017 


* 




ENTRY : 


HL=> 2 ENCODED BYTES FOR DECODING * 






00180 


* 




EXIT: 


HL DESTROYED. 3 ASCII BYTES IN BUFFER * 






00190 


***** 


*************************************************** 


7F00 


CD7F0A 


00200 ENCODE 


CALL 


0A7FH 


GET BUFFER LOCATION 


7F03 


E5 


00210 






PUSH 


HL 


TRANSFER TO IY 


7F04 


FDE1 


00220 






POP 


IY 




7F06 


210000 


00230 






LD 


HL,0 


CLEAR ENCODE RESULT 


7F09 


0603 


00240 






LD 


B,3 


SETUP LOOP COUNT 


7F0B 


29 


00250 ENC010 


ADD 


HL , HL 




*2 


7F0C 


29 


00260 






ADD 


HL,HL 




* 4 


7F0D 


29 


00270 






ADD 


1IL,HL 




*8 


7F0E 


E5 


00280 






PUSH 


HL 




SAVE 


7F0F 


29 


00290 






ADD 


HL , HL 




*16 


7F10 


29 


00300 






ADD 


HL,HL 




*32 


7F11 


Dl 


00310 






POP 


DE 




RESTORE *8 


7F12 


19 


00320 






ADD 


HL,DE 




*40 


7F13 


FD7E00 


00330 






LD 


A, (IY) 




GET ASCII BYTE 


7F16 


CD667F 


00340 






CALL 


XLATE 




CONVERT TO 0-39 CODE 


7F19 


FD23 


00350 






INC 


IY 




BUMP BUFFER PNTR 


7F1B 


19 


00360 






ADD 


HL,DE 




MERGE CODE 


7F1C 


10ED 


00370 






DJNZ 


ENC010 




GO THREE TIMES 


7F1E 


FD7SFD 


00380 






LD 


(IY-3),L 


SAVE LSB 


7F21 


FD7 4FE 


00390 






LD 


(IY-2) ,H 


SAVE MSB 


7F24 


C9 


00400 






RET 




RETURN TO CALLING PROG 


7F25 


CD7F0A 


00410 DECODE 


CALL 


0A7FH 


GET BUFFER LOCATION 


7F28 


E5 


00420 






PUSH 


HL 


TRANSFER TO IY 


7F29 


FDE1 


00430 






POP 


IY 




7F2B 


0603 


00440 






LD 


B,3 


SETUP LOOP COUNT 


7F2D 


FD6E00 


00450 






LD 


L,(IY) 


GET LSB 


7F30 


FD6601 


00460 






LD 


H, (IY+1) 


GET MSB 


7F33 


DD217A7F 


00470 






LD 


IX r TABLE-l 


TABLE START TO IX 


7F37 


114006 


00480 






LD 


DE,1600 


40**2 


7F3A 


B7 


00490 DEC010 


OR 


A 




CLEAR CARRY 


7F3B 


ED52 


00500 






SBC 


HL,DE 




SUBTRACT TIL NEGATIVE 


7F3D 


DD23 


00510 






INC 


IX 




BUMP TABLE PNTR 


7F3F 


30F9 


00520 






JR 


NC,DEC010 




GO IF NOT NEGATIVE 


7F41 


19 


00530 






ADD 


HL,DE 


RESTORE RESIDUE 


7F42 


DD7E00 


00540 






LD 


A, (IX) 


CONVERT TO ASCII 


7F45 


FD7700 


00550 






LD 


(IY),A 


PUT IN BUFFER 


7F48 


1128GB 


00560 






LD 


DE,40 


40**1 


7F4B 


DD217A7F 


00570 






LD 


IX,TABLE-1 


TABLE START TO IX 


7F4F 


B7 


0058 DECO30 


OR 


A 




CLEAR CARRY 


7F50 


ED52 


00590 






SBC 


HL,DE 




SUBTRACT TIL NEGATIVE 


7F52 


DD23 


00600 






INC 


IX 




BUMP TABLE PNTR 


7F54 


30F9 


00610 






JR 


NC,DEC030 




GO IF NOT NEGATIVE 


7F56 


19 


00620 






ADD 


HL,DE 




RESTORE RESIDUE 


7F57 


DD7E00 


006 3 






LD 


A, (IX) 




CONVERT TO ASCII 


7F5A 


FD77 01 


00640 






LD 


(IY+1) ,A 




PUT IN BUFFER 


7F5D 


117B7F 


00650 






LD 


DE, TABLE 


TABLE START TO DE 


7F60 


19 


00660 






ADD 


HL,DE 


POINT TO CHAR 


7F61 


7E 


00670 






LD 


A, (HL) 


GET LAST CHAR 


7F62 


FD7702 


00680 






LD 


(IY+2) ,A 


SAVE IN BUFFER 


7F65 


C9 


00690 






RET 




RETURN TO CALLING PROG 


7F66 


DD21A27F 


00700 XL ATE 


LD 


IX,TABLE+39 


TABLE START+39 


7F6A 


1E28 


00710 






LD 


E,40 


# OF BYTES IN TABLE 


7F6C 


DDBE00 


00720 XLA010 


CP 


(IX) 


; COMPARE A TO TABLE ENTRY 


7F6F 


28 06 


00730 






JR 


Z,XLA020 


;GO IF MATCH 


7F71 


DD2B 


00740 






DEC 


IX 


;BUMP TABLE PNTR 


7F73 


ID 


00750 






DEC 


E 


.•DECREMENT COUNT 


7F74 


20F6 


00760 






JR 


NZ,XLA010 


;GO IF MORE 


7F76 


1C 


00770 






INC 


E 


ADJUST POINTER 


7F77 


ID 


00780 XLA020 


DEC 


E 


ADJUST INDEX 


7F78 


1600 


00790 






LD 


D,0 


INDEX NOW IN DE 


7F7A 


C9 


00800 






RET 




RETURN 


7F7B 


30 


00810 TABLE 


DEFM 


'0123456789ABCDEI 


GHIJKLMNOPQRSTUVWXYZ; , () ' 




31 32 33 


34 35 36 


37 


38 








39 41 42 


43 44 45 


46 


47 








48 49 4A 


4B 4C 4D 


4E 


4F 








50 51 52 


53 54 55 


56 


57 








58 59 5A 


3B 2C 28 


29 








0000 




00820 






END 






00002 


TOTAL ERRORS 













80 Microcomputing, May 1981 • 39 



THE ASSEMBLY LINE 







Listing 2. Encode/Decode Exerciser 




100 


DEFUSR0= 


&H7F00 


:DEP0SR1=&H7F25 






110 


INPUT AS 












120 


B=VARPTR(A$) :C 


=PEEK(B+l)+PEEK(B+2) 


*256:IF 032767 T 






HEM C=C 


-65536 










130 


A=USR0(C) 










14G 


PRINT PEEK(C) , 


PEEK(C+1) 






150 


A=USR1 (C) 










160 


PRINT AS 












17 


GOTO 110 
















Listing 3. 


Relocation Version 


7P00 




00100 




ORG 


7F00H 








00110 


****** 


******* 


**************** 


*************************** 






00120 


* BASE 40 ENCODING/DECODING 


PROGRAM. * 






00130 


* ENTER AT 


ENCODE FOR ENCODING: * 






00140 


* 


ENTRY: 


HL=> 3 ASCII BYTES FOR ENCODING * 






00150 


* 


EXIT: 


HL DESTROYED. 7 


ENCODED BYTES IN BUFFER * 






00160 


* ENTER AT 


DECODE FOR DECODING * 






00170 


* 


ENTRY: 


HL=> 2 ENCODED 


BYTES FOR DECODING * 






00180 


* 


EXIT: 


HL DESTROYED. 3 


ASCII BYTES IN BUFFER * 






00190 


****** 


******* 


**************** 


*************************** 


7F00 


CD7F0A 


00200 


:ncode 


CALL 


0A7FH 


;GET BUFFER LOCATION 


7F03 


E5 


00210 




PUSH 


HL 


; TRANSFER TO IY 


7F04 


FDE1 


00220 




POP 


IY 




7F06 


210000 


00230 




LD 


HL,0 


; CLEAR ENCODE RESULT 


7F09 


0603 


00240 




LD 


B,3 


; SETUP LOOP COUNT 


7F0B 


29 


00250 


:nc010 


ADD 


HL,HL 




*2 


7F0C 


29 


00260 




ADD 


HL.HL 




* 4 


7F0D 


29 


00270 




ADD 


HL,HL 




*8 


7F0E 


E5 


00280 




PUSH 


HL 




SAVE 


7F0F 


29 


00290 




ADD 


HL,HL 




*16 


7F10 


29 


00300 




ADD 


HL,HL 




*32 


7F11 


Dl 


00310 




POP 


DE 




RESTORE *8 


7F12 


19 


00320 




ADD 


HL,DE 




*40 


7F13 


FD7E00 


00330 




LD 


A, (IY) 




GET ASCII BYTE 


7F16 


E5 


00340 




PUSH 


HL 




SAVE RESULT 


7F17 


CD0B00 


00350 




CALL 


0BH 




GET ADDRESS 


7F1A 


110700 


00360 


ENC020 


LD 


DE,BIASl 




DISPLACEMENT 


7F1D 


19 


00370 




ADD 


HL.DE 




COMPUTE ADDRESS OF XLATE 


7F1E 


E5 


00380 




PUSH 


HL 




SAVE RETURN 


7F1F 


1855 


00390 




JR 


XLATE 




CALL XLATE 


7F21 


El 


00400 


ENC030 


POP 


HL 




RESTORE RESULT 


7F22 


FD23 


00410 




INC 


IY 




BUMP BUFFER PNTR 


7F24 


19 


00420 




ADD 


HL,DE 




MERGE CODE 


7F25 


10E4 


00430 




DJNZ 


ENC010 




GO THREE TIMES 


7F27 


FD7 5FD 


00440 




LD 


(IY-3),L 


;SAVE LSB 


7F2A 


FD74FE 


00450 




LD 


(IY-2) ,H 


;SAVE MSB 


7F2D 


C9 


00460 




RET 




; RETURN TO CALLING PROG 


7F2E 


CD0B00 


00470 


DECODE 


CALL 


0BH 


,-GET ADDRESS 


7F31 


115F00 


00480 




LD 


DE,BIAS2 


DISPLACEMENT 


7F34 


19 


00490 




ADD 


HL,DE 


; COMPUTE TABLE START 


7F35 


E5 


00500 




PUSH 


HL 


;SAVE 


7F36 


CD7F0A 


00510 




CALL 


0A7FH 


;GET BUFFER LOCATION 


7F39 


E5 


00520 




PUSH 


HL 


; TRANSFER TO IY 


7F3A 


FDE1 


00530 




POP 


IY 




7F3C 


0603 


00540 




LD 


B,3 


; SETUP LOOP COUNT 


7F3E 


FD6E00 


00550 




LD 


L,(IY) 


;GET LSB 


7F41 


FD6601 


00560 




LD 


H, (IY+1) 


;GET MSB 

Program continues 



subroutine. This sequence is shown in 
Listing 3, lines 350—390. CALL OBH 
returns the address of ENC020 in HL. DE 
is loaded with BIAS1 which is equal to 
ENC030-ENC020, the difference between 
the base address and the return point. 
This address is PUSHed onto the stack, 
and a JR is done to XLATE. 

The same scheme could be used for 
JPs, but it's much simpler to use a JR in 
place of the JP. If the jump is beyond the 
range of the JR( - 126 to + 129 bytes), use 
a linking JR within the range. 

Listing 3 also shows the bias scheme 
for LDs of addresses at lines 470 — 500. In 
this case we want to find the address of 
TABLE- 1. CALLing OBH returns the ad- 
dress on the next instruction after 
Decode. Adding BIAS2 results in DECODE 
+3+TABLE-1 -DECODE-3= 
TABLE- 1. This is PUSHed into the stack 
for future reference. A similar scheme is 
used at XLATE to compute the address of 
TABLE + 39. 

Listing 3 is fully relocatable even 
though it is arbitrarily assembled at 
7F00H (see Listing 4). It moves the code 
upward one byte so that the program 
starts at 7F01H, and then repeats the se- 
quence. 

You may wish to investigate other 
schemes to make all code relocatable. 
There is a great deal of work involved in 
calculating the CALL and immediate ad- 
dresses; whether or not it's worth it de- 
pend on your application. An interesting 
sidenote— the Color Computer 6809 
microprocessor easily produces fully 
relocatable code. You might take a look at 
its structure to see the methods it uses to 
reference the program counter. 



The Comments Didn't Come Out. . . 

I have rarely seen a computer manufac- 



Features of the FATIGUE 



REDUCES OPERATOR FATIGUE THEREBY ALLOWING MORE EFFI- 
CIENT USE OF THE COMPUTER. 

INSTALLS EASILY WITH PRESSURE SENSITIVE ADHESIVE. NO 
SCREWS, CUPS, OR DRILLING TO DAMAGE MONITOR. 
DESIGNED TO MATCH TR8-80* STYLING FROM THE BLACK AND 
SILVER BORDER TO THE LETTERING TYPE FACE. 
MADE OF TOUGH 1/8 INCH THICK ACRYLIC SHEET FOR DURABIL- 
ITY, EASE OF CLEANING, AND A QUALITY APPEARANCE. 
FITS BOTH THE MODEL I AND THE MODEL II. 
DOES NOT VOID THE COMPUTER WARRANTY. 

Sand Nam* a Address Typed or Clearly Printed with 
Check or Money Order for $12.95 Each, Including Ship- 
ping. COD's ara $2.50 Additional Par Order & ara Ac- 

. caplad by Mall or by Calling 904-378-2494 9-5 M-F. 

I IS A TRADEMARK OF TANDY F| ^ d , R ^,, dentl , Aod * 4% S alas Tax. 

SOUTHERN INNOVATIVE DESIGN 
1S20 NORTHEAST 12TH STREET 
GAINESVILLE, FLORIDA 32601 ^373 




This product resulted from t*» 
following' Psychological studies 
show green to be most pleasant 
for extended viewing. Eye sensi- 
tivity peaks in the green band 
of the spectrum. Contrast is en- 
hanced by reducing the ambient 
light falling on a CRT. These 
three factors combine to fight 
operator fatigue. Finally, we 
wanted more than just function. 
Ue wanted a filter that visually 
matched TRS-88 styling. Pictured 
here is proof of our success, a 
product we &re proud of. 
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Epson. 



The type you get out of most printers you 
wouldn't send to your maiden aunt, much less 
use for your important correspondence. And up 
to now, in order to get a dot matrix hardcopy you 
could really call correspondence quality, you had 
to spend on the high side of a thousand bucks. 

Not any more. 

The Epson MX-80 challenges any dot matrix 
printer anywhere to match our type at our price. 
Or even come close. 

Our emphasized print mode gives you a tack- 
sharp, clean, easy-to-read 
face with true descenders — at 
a fraction of the price of daisy 
wheel printers. We give you a 
user-defined choice of twelve 
different weights and sizes of 
letters in 40, 80, 66 or 132 col- 
umns. We give you adjustable 
tractors so you can do any- 
thing from labels to memos to 
manuscripts. Fast and clean. 

But if you think print qual- 
ity is the only thing we have 




to sell, you're wrong. The MX-80 may be the 
most revolutionary printer to come out in the 
past ten years. 

For starters, it features the world's first dispos- 
able print head — after it's printed between 50 and 
100- million characters, just throw it away. A new 
one costs less than $30 and you can change it 
yourself with one hand. Plus, the MX-80 prints 
bidirectionally and 80 CPS with a logical seeking 
function to minimize print head travel time and 
maximize throughput. Finally — and this is the 

best part — you can buy an 

MX-80 right now for less than 

$650. 

And that's what we call a 

lot of fine print for the money. 



EPSON 

EPSON AMERICA, INC. 



23844 Hawthorne Boulevard • Torrance, CA 90505 • (213) 378-2220 



^See List of Advertisers on page 306 
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THE ASSEMBLY LINE 



turer that released the source listings of 
an assembler or compiler. So what do you 
do when there are bugs in the utility soft- 
ware? You scrounge around in the code 
and correct the bugs and add the neces- 
sary patches. 

There is a similar situation with soft- 
ware. Should a software house that has 
invested a huge chunk of time in software 
development release source listings? It's 
very frustrating to users not to have the 
source for specialized patches. 

At this point the question appears to be 
academic. There is at least one book avail- 
able providing a fully commented source 
listing of Level II ROM, and a series that 



goes a long ways towards explaining the 
internal workings. 

The book is Microsoft BASIC Decoded 
and Other Mysteries by James Farvour 
(IJG Computer Services). It is a 310-page 
book that takes an Apparat disassembly 
and comments every line. You supply the 
operands of the instruction; everything 
else is printed. You will have to disassem- 
ble the code and put the pages of the dis- 
assembly alongside the comments, a for- 
midable but worthwhile task. Every line is 
commented, with some expanded com- 
ments appearing on the back of the page. 
In addition to the disassembly, there are 
61 pages of general text about ROM calls, 



7F44 


DDE1 


00570 




POP 


IX 


GET TABLE START-1 


7F46 


DDE5 


00580 




PUSH 


IX 


SAVE TABLE START-1 


7F48 


114006 


00590 




LD 


DE,1600 


40**2 


7F4B 


B7 


00600 


DEC010 


OR 


A 




CLEAR CARRY 


7F4C 


ED52 


00610 




SBC 


HL,DE 




SUBTRACT TIL NEGATIVE 


7F4E 


DD23 


00620 




INC 


IX 




BUMP TABLE PNTR 


7F50 


30F9 


00630 




JR 


NC,DEC010 




GO IF NOT NEGATIVE 


7F52 


19 


00640 




ADD 


HL,DE 


RESTORE RESIDUE 


7F53 


DD7E00 


00650 




LD 


A, (IX) 


CONVERT TO ASCII 


7F56 


FD7700 


00660 




LD 


(IV), A 


PUT IN BUFFER 


7F59 


112800 


00670 




LD 


DE,40 


40**1 


7F5C 


DDE1 


00680 




POP 


IX 


GET TABLE START-1 


7F5E 


DDE5 


00690 




PUSH 


IX 




7F60 


B7 


00700 


DEC030 


OR 


A 




CLEAR CARRY 


7F61 


ED52 


00710 




SBC 


HL,DE 




SUBTRACT TIL NEGATIVE 


7F63 


DD23 


00720 




INC 


IX 




BUMP TABLE PNTR 


7F65 


30F9 


00730 




JR 


NC.DEC030 




GO IF NOT NEGATIVE 


7F67 


19 


00740 




ADD 


HL,DE 




RESTORE RESIDUE 


7F68 


DD7E00 


00750 




LD 


A, (IX) 




CONVERT TO ASCII 


7F6B 


FD7701 


00760 




LD 


(IY+1),A 




PUT IN BUFFER 


7F6E 


Dl 


00770 




POP 


DE 


GET TABLE START-1 


7F6F 


13 


00780 




INC 


DE 


NOW TABLE START 


7F70 


19 


007 90 




ADD 


HL,DE 


POINT TO CHAR 


7F71 


7E 


00800 




LD 


A, (HL) 


GET LAST CHAR 


7F72 


FD7702 


00810 




LD 


(IY+2) ,A 


SAVE IN BUFFER 


7F7 5 


C9 


00820 




RET 




RETURN TO CALLING PROG 


7F76 


CD0B00 


00830 


XLATE 


CALL 


0BH 


GET ADDRESS 


7F79 


113F00 


00840 




LD 


DE,BIAS3 


DISPLACEMENT 


7F7C 


19 


00850 




ADD 


HL,DE 


COMPUTE TABLE ADDRESS 


7F7D 


E5 


00860 




PUSH 


HL 


TRANSFER TO IX 


7F7E 


DDE1 


00870 




POP 


IX 




7F80 


1E28 


00880 




LD 


E,40 


# OF BYTES IN TABLE 


7F82 


DDBE00 


00890 


XLA010 


CP 


(IX) 




COMPARE A TO TABLE ENTRY 


7F85 


28 06 


00900 




JR 


Z,XLA020 




GO IF MATCH 


7F87 


DD2B 


00910 




DEC " 


IX 




BUMP TABLE PNTR 


7F89 


ID 


00920 




DEC 


E 




DECREMENT COUNT 


7F8A 


20F6 


00930 




JR 


NZ,XLA010 




GO IF MORE 


7F8C 


1C 


00940 




INC 


E 


ADJUST POINTER 


7F8D 


ID 


00950 


XLA020 


DEC 


E 


ADJUST INDEX 


7F8E 


1600 


00960 




LD 


D,0 


INDEX NOW IN DE 


7F90 


C9 


00970 




RET 




RETURN 


7F91 


30 


00980 


TABLE 


DEFM 


'0123456789ABCDE 


"GHIJKLMNOPQRSTUVWXYZ;, () ' 




31 32 33 34 35 


36 37 


38 








39 41 42 43 44 


45 46 


47 








48 49 4A 4B 4C 


4D 4E 


4F 








50 51 52 53 54 


55 56 


57 








58 59 5A 3B 2C 


28 29 








0007 




00990 


BIAS1 


EQU 


ENC030-ENC020 




005F 




01000 


BIAS2 


EQU 


TABLE-l-DECODE-3 




003F 




01010 


BIAS3 


EQU 


TABLE+39-XLATE-3 




0000 




01020 




END 






0000 


3 TOTAL ERRORS 


















Listing 


4. Relocation Test 






50 FOR 1=254 TO 


STEP 


-l 






60 POKE 32513+1 


PEEK(32512+I) 






70 NEXT I 












100 


DEFUSR0=&H7F01:DEFUSR1=&H7F2F 






110 


INPUT 


AS 










120 


B=VARPTR(A$ 


:C=PEEK(B+l)+PEEK(B+2) * 


256:IF 032767 T 






HEN C 


=C-65536 








130 


A=USR0(C) 










140 


PRINT 


PEEK(C) ,PEEK(C+1) 






150 


A=USR1 (C) 










160 


PRINT 


AS 










17 


GOTO 110 









the structure of ROM, variables, and disk 
operation. 

The book is accurate, more so than any 
other book written about ROM thus far, 
with the exception of the next book I'm go- 
ing to mention. 

Farvour's book is rather steep, at 
$29.95. It is a fully annotated source 
listing of ROM, but don't expect to get a 
tutorial on the internal workings of the 
BASIC interpreter. It's not a workbook on 
designing BASIC interpreters, although it 
certainly eliminates a lot of research. 

The Book, Volume I, by Insiders Soft- 
ware Consultants covers math operations 
in ROM. It is the first of three books 
describing Level II ROM. The Book is ap- 
proximately 136 pages long, about 75 per- 
cent ROM disassembly. 

If you would like a detailed, accurate 
description of all types of BASIC math 
operations (particularly floating-point 
operations) together with ROM calls and 
examples, this is the book for you. I would 
definitely recommend The Book at $14.95 
for these subjects. 

I'm often asked what assembly lan- 
guage books I would recommend. One 
that I would highly recommend, but with 
some warning, is Practical Microcom- 
puter Programming: The Z80 by Walter J. 
Weller, Northern Technology Books. First 
the bad news: The book does not use stan- 
dard mnemonics. If you can get past the 
shock of using BZ ZILCH instead of JP 
NZ, ZILCH, the material in it is well-written 
and interesting. The book contains a 
listing of a complete Z-80 assembler, and 
is not inexpensive at $32.95. 

One of these days my book More 
TRS-80 Assembly Language Program- 
ming will emerge from the depths of Radio 
Shack. It covers the Disk Assembler and 
other intermediate assembly language 
topics. 

The Fourth Great 

Assembly Line Programming Contest 

All right — you asked for it. Here's the 
fourth Assembly Line Programming Con- 
test. In honor of the 8080 precursor of the 
Z-80, there are eight questions. Answer 
them briefly, send the results to me, and 
you may be mentioned in a computer ma- 
gazine column as well as receiving a trivial 
prize. We'll have two winners, a novice 
class winner (less than 100 hours of 
assembly language experience) and a 
hacker winner(morethan 100 hours). Send 
your entries to the address at the end of 
this column no later than the 20th of the 
month and be sure to specify what kind of 
fool you are. 

Number One: What is the tightest tim- 
ing loop that can be written for counts of 
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"Send your entries to 

the address at the end of 

this column . . . and be 

sure to specify what 

kind of fool you are." 



Number Eight: What is the purpose of 
TWDEE and TWDUM? (Thanks to Bill 
Schroeder of Galactic Software.) 



CALL TWDEE 



PUSH 


DE 


JP 


(HL) 


POP 


AF 


POP 


BC 


POP 


DE 


POP 


HL 


RET 





1—65536? An example of a slow loop is: 

(HL) = count, 0-65535 
LOOP DEC HL 
LD A,H 
OR L 
JR NZ.LOOP 

Number Two: What do these three in- 
structions do to the contents of HL? 

SR1 CALL SR2 
SR2 ADD HL.HL 
RET 

Number Three: What does the following 
code do? (Thanks to Ron Markel.) 



LD 

DEC 

LD 

LD 

INC 

LDIR 



(HL),A 
BC 
D , H 
E, L 
D E 



Number Four: A value of 0—15 decimal 
must be converted as shown below. What 
are the fewest number of instructions to 
do this? 

0to30H 4to34H 8 to 38H C to 42H 

1to31H 5to35H 9to39H D to 43H 

2to32H 6to36H Ato40H! E to 44H 

3to33H 7to37H Bto41H F to 45H 

Number Five: Find the integer portion of 
log base 2 of a value in the A register, with 
the result in any register. Examples: 



1 produces a value of 


2 produces a value of 1 


3 produces a value of 1 


4 produces a value of 2 


5 produces a value of 2 


15 produces a value of 3 


25 produces a value of 4 


37 produces a value of 5 


Number Six: What does the following 


code do? 


JR NEXT+1 


NEXT JR NEXTP1-1 


NEXTP1 



Number Seven: A contains a signed 
value. What does it contain after: 



NEG 
CPL 



EX 

PUSH 

PUSH 

PUSH 

LD 



(SP),HL 

DE 

BC 

AF 

DE.TWDUM 



TWDUM 



That's it for this month. Keep sending 
those cards, letters, and contest entries 
to: William Barden, Jr., Department In- 
finite Loop, 28182 Palmada, Mission Viejo, 
CA 92692. ■ 



IS YOUR TRS-80 SMARTER 
THAN YOU ARE? 



SJ 



s^ 
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Novice Hobbyist Educator Student Expert Sams Books 
can help you get all the performance and features out of the 
TRS-80 that were built into it The more you know about the 
hardware, software, language, and prog'dmming involved with the TRS-80. 
the faster your computer will pay for itself 

THESE SAMS BOOKS WILL HELP YOU USE ALL THE TRS-80 FEATURES YOU 
PAID FOR 

TRS-80 INTERFACING Books 1 ft 2, By Jonathan A. Titus. Book 1 introduces the signals 
available within the TRS-80 and how to use them to control externol devices Book 2 
explores more odvancea interfacing techniques that will allow you to do real things that you 
didn't even know your TRS-80 could do BOOK 1 No 21633, S8 95. BOOK 2 No 21739. S10 95. 
TWO-VOLUME SET Books 1 & 2 No 21765. $18 50. 
Mostly BASIC: Applications for your TRS-80. By Howard Berenoon No 21788 $11 95 Contains over 
15 actual programs for home, entertainment, business, financial and educdtional use on the TRS-80 
Z-80 MICROCOMPUTER HANDBOOK. By William Barden. Jr No 21500 S8 95 The r 
the Z-80 microprocessor the heart of the TRS-80 the more you can get ouf 
ot your computer Here is everything you should know about the hardware, 
software and microcomputers built around the 1-80. 

Z-80 MICROPROCESSOR PROGRAMMING 8. INTERFACING Books 1 8. 2. By 
Elizabeth A. Nichols. Joseph C. Nichols, and Peter R Rony. Book 1 explores Z 80 
softwore and machine language programming. Book 2 addresses interfacing 
digital circuits with the Z-80 CPU. PIP, and CTC chips BOOK 1 No. 21609 $11 95; 
BOOK 2 No 21610 S 14.95. TWO- VOLUME SET- Books 1 & 2 No 21611 $24 95 



iore you know about 

Soms 
Books 



Howard W. Sams S Co.. Inc., 4300 West 62nd Street. PO Box 7092. Ind'anapol.s. IN 46206. (317) 298 5400 

Quantity 



TRS-80 Interfacing— Book 1 

TRS-80 Interfacing — Book 2 

TWO-VOLUME SET— TRS-80 Interfacing Books 1*2 

Mostly BASIC: Applications tor your TRS-80 
Z-80 Microcomputer Handbook 

Z-80 Microprocessor Programming & Interfacing, Book 1 
Z-80 Microprocessor Programming & Interfacing Book 2 
TWO-VOLUME SET— Z-80 Microprocessor Programming » 
Interfacing Books 14 2 



Payment Enclosed . Check '. Money Order 

: VISA ; Mastercard Interbank No 

Account No 

Name (print] 

Address 



No 21633 
No 21739 
No 21765 
No 21788 
No 21500 
. No 21609 
No 21610 



$ 8 95 
S1095 
$18.50 
$1195 
$ 8 95 
$1195 
$1495 



. . No 21611 $24 95 

Amount of order 

Add local sales tax where applicable 

Shipping 8< handling costs 

Total amount of order 

. (minimum credit card purchase $10) 

Expiration Date 



. Signature - 



City State Zip 

Prices subject lo change without notict All books uvoiloble from Sams Distributors. Bookslores. and Computer Stces Otler good 
m U S A only In Canada, conlucl Lenbrook Industries Ltd Scarborough. M1H. IH5. Ontario, Canada Offer expires W30/81 

. _ _ _ . ALX183 



sSee List ot Advertisers on page 306 
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by Michael Tannenbaum C.P.A. 



"/ watched the. . . salesman 

trying to save a. . . sale. . . . 

he lost and the customer 

wandered out. . . convinced 

that the 'ugly box' could have 

little use in his office." 



I don't like the color of the box." That 
comment, overheard at a local Radio 
Shack Computer Center made me drop 
what I was doing and strain to hear the 
rest of the conversation. 

"If it were only blue, or a more stylish 
color, instead of that ugly grey color, I 
would buy it." The speaker was referring 
to the Model II on which a General Ledger 
demo was running. 

Fighting my impulse to join the discus- 
sion, I watched the young salesman des- 
perately trying to save a potential sale. 
Unfortunately, he lost and the customer 
wandered out completely convinced that 
the "ugly box" could have little use in his 
office. 

In computers as well as books, a pretty 
cover can be very deceiving. The value of a 
popularly priced, mass market computer 
cannot be seen until you consider the 
wealth of software that has become avail- 
able for it. With the flexibility of the Model 
II, one can move out of the TRSDOS envir- 
onment into the business standard, CP/M. 
With this operating system, thousands of 
useful business programs are available at 
exceptionally low costs. 

VisiCalc User Report 

The VisiCalc program dramatically 
demonstrates this usefulness. This pro- 
gram can pay a user back almost immedi- 
ately. Brian Gaines, a friend and stock 
market Registered Representative, put it 
to use immediately. 

Brian uses VisiCalc as a portfolio moni- 
tor in an interesting way, and has offered 
to share his experiences with our readers. 
I'll turn the column over to him. 

One of the most often promised and sel- 
dom delivered offers of a stockbroker is 
the portfolio review. Writing out a client's 
portfolio list and calculating a variety of 
totals and percentages is time-consum- 
ing and tedious work. When finished, it 
has to be refigured for each proposed 
change and updated to reflect constantly 
changing prices. 

Typing all this data requires a good two 
hours for each ten positions, just to get a 
first draft, then the draft must be proofed 
and re-typed. Frankly, the typos alone will 



discourage you from prospecting for new 
portfolios. 

Of course, there had to be a better way, 
and VisiCalc and the Model II appearto be 
the answer. Anything you currently calcu- 
late in tabular form can be handled by this 
combination. Some examples include: 

• Covered Options Writing 

• Portfolio Profit and Loss Schedules 

• Commissions Due Schedules 

• Margin Interest Charged Reports 

• Portfolio Evaluations 

Portfolio evaluations alone have al- 
ready paid for my own system many times 
over. The ability to produce such alterna- 
tive evaluations for clients have resulted 
in transactions that have netted me com- 
missions of up to $29,000. With VisiCalc I 
can evaluate 40 possible transactions for 
my client in a short time; by hand the best I 
could have done was only four or five. 

To set up my portfolio evaluation work- 
sheet, I load VisiCalc and type the column 
headings as shown in Fig. 1. 

Items labeled "None" require manual 
entry, and all others are automatically cal- 
culated by the VisiCalc program. Once the 
position is entered, only the current mar- 
ket figures have to be changed to update 
the position instantly. As an extra bonus, 
if position data is entered by category, 
such as equities, munis, corps, converts 
or options, subtotals can be created for 
each category. 

Every time you change the information 
in any of the elements all figures will be 
recomputed. 



Once the portfolio has been set up, it 
should be saved on disk for future use. 
VisiCalc can handle even the largest port- 
folios— up to 64 column headings and 100 
lines of positions. 

With the worksheet and my Lineprinter 
IV, I can print a copy of the worksheet on 
embossed stationery. No typos, no wast- 
ed time. With VisiCalc, I can tell a client 
that he has, for example, only 18 percent 
of his portfolio in utilities and that his 
overall yield would increase 200 basis 
points (2 percent) if he buys another 400 
Con Ed. 

Visicalc's speed allows me to display a 
portfolio, update its current market value 
and discuss alternatives with my clients 
over the phone. Best of all, we can discuss 
"what if" strategies and see the results 
dynamically displayed. 

The Target System 

Brian has illustrated one effective use 
of VisiCalc, but it's not the only manage- 
ment tool that can have an immediate 
payback. In last month's column, I sug- 
gested that VisiCalc could be used for 
management planning. No sooner had I 
posted the column, when I received an in- 
triguing flyer from a firm called Advanced 
Management Strategies, Inc., Atlanta, 
GA. 

This organization has developed a plan- 
ning system called Target. Target is in- 
tended to be the first element in a series of 
management planning assists to run on a 
CP/M system. Needless to say, I request- 
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DESCRIPTION 

Name or ticker symbol 

No. of shares or the face value of bonds. 

Original cost or sales proceeds (negative) 

Current market value 

Extension col. B x col. D 

% of holding at current market value 

Unrealized gain or loss 

Current unrealized gain or loss as a % of total 

Dividend per share or interest per $1.00 face 

Income for position 

Yield for position 

Long term or short term or transaction date 



Fig. 1. Portfolio Evaluation Worksheet 
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ows your 
love life? 





A little dull around the edges? 

Routine? Predictable? Boring? Maybe 

all it needs is a little Interlude. Interlude is 

the most stimulating computer game ever conceived. 

It combines a computer interview, an innovative 

programming concept, and a one-of-a-kind manual to 

turn your love life into exciting, adventurous, delicious fun! 

Interlude is: romantic. . . playful. . . outrageous. . . a fantasy. Interlude is: ■ A Bed of Roses (Inter- 
lude #1) ■ Mata Hari (Interlude #49) ■ The Chase (Interlude #7) ■ Rodeo! (Interlude #71) ■ The King and I 
(Interlude #60) ■ Some Enchanted Evening (Interlude #84) ■ Caveman Caper (Interlude #82) ■ From Here 
to Ecstasy (Interlude No. 30) ■ Satin Dreams (Interlude #72). 



More than 100 Interludes are included in the program. Most are described in detail in the accompanying manual, 
but several surprise Interludes are buried in the program awaiting that very 

special time when your interview says you're ready. (When you learn secret W^^ J ~-*~Jt~ — JM J!L 
Interlude #99. your love life may never again be the same!) Interlude iX^lfl j Ifl^J "^ 



can give you experiences you'll never forget. Are you ready for it? 



The Ultimate Experience. 



| INTERLUDE, 10635 Richmond, Houston. Texas 77042. I'm really ready. Send my Interlude today. 



Apple II (16K)* TRS-80 (Level II-16K) 

D Cassette ($16.95) D Cassette ($16.95) 

D Diskette ($19.95) □ Diskette ($19.95) 

□ Diskette— Pascal or DOS 3.3 ($19.95) 
Add $1.50 for shipping and handling. 

D MASTERCARD □ VISA 
Account No. 



Poster 

D 20"x 24" reproduction of 
this ad without ad copy 
($4.95— includes 
shipping charges) 

All charge customers must sign here 

Expiration date 



Available for immediate shipment. 

Please enclose your check payable to INTERLUDE 
or complete the charge information: 



MasterCard Bank Code 



CHARGE CUSTOMERS: Order by phone toll-free! 1-800-231-5768 Ext. 306 (Texas: 1-800-392-2348 Ext. 306) 

Name _ _ _ Age 

Address - ■ 



State 



City 

*Apple II is a registered trademark of Apple Computers. Inc. **TRS-80 is a registered trademark of Radio Shack, a Tandy Co. 



Zip 



YBEX BREAKS THE 




LANGUAGE BARRIER 



PROGRAMS 



Let the chips fall where they may. These two books on 
BASIC assure comprehension and competence. 

by Richard Mateosian teaches interactive game design 
and BASIC programming through thorough analysis of 
eight different kinds of computer games. Programs are 
presented in Microsoft BASIC with versions for 
PET/CBM, TRS-80 and APPLE II. 
350 pp., 120 illustr., Ref. B245, $13.95 

by J'.P. Lamoitier provides the surest way of learning 
BASIC— actual practice. Graduated exercises, each 
containing a detailed explanation, flowchart and 
sample run, develop skill and competence rapidly. 
Applications include mathematics, business, opera- 
tions research, statistics and more. 
256 pp., 194 illustr., Ref. B250, $12.95 

Get in gear and accelerate your programming 
productivity with Pascal's power. 

by RodnayZaks is a simple yet comprehensive guide to 
standard and UCSD Pascals: step-by-step presentation 
with exercises for beginners, complex concepts and 
extensive appendices for experienced programmers. 
An indispensable book for everyone who wants to 
learn Pascal programming. 
320 pp., 100 illustr., Ref. P310, $14.95 

by Jacques Tiberghien is an easy-to-read, easy-to-use 
dictionary containing all the features for most existing 
versions of Pascal (Standard, Jensen-Wirth, OMSI, 
UCSD, HP1000, Pascal/Z). Over 180 entries, arranged 
alphabetically; each includes definition, description, 
syntax diagram, details of implementation, variations 
and examples. The perfect reference tool for any 
Pascal user. 
500 pp., 150 illustr., Ref. P320, $14.95 





V-324 



MAIL TO: 
SYBEX DEPT. 8M5 
2344 SIXTH STREET 
BERKELEY, CA 94710 
PHONE ORDERS: 
SIDE C A 415/848-8233 
E OUTSIDE CA 800-227-2346 



NAME __ 
ADDRESS. 
CITY 



Scientists and engineers involved in significant work 
have been delayed by having to reinvent algorithms for 
a new computer language. No more. 



by Alan Miller is a comprehensive collection of 
frequently used algorithms for scientific and technical 
applications programmed in PASCAL. This time saving 
book includes programs for curve fitting, fast Fourier 
transform, approximations, random number genera- 
tion, integrals, statistical techniques and more. 
250 pp., 80 illustr., Ref. P340 □ $1 6.95 paper, □ $25.00 cloth 



YOUR FIRST COMPUTER by Rodnay Zaks 
280 pp., 150 illustr., 2nd Edition, Ref. C200A, $7.95 

MICROPROCESSORS: FROM CHIPS 
TO SYSTEMS by Rodnay Zaks 
420 pp., 250 illustr., 3rd Edition, Ref. C201, $12.95 

MICROPROCESSOR INTERFACING 
TECHNIQUES by Rodnay Zaks & Austin Lesea 
464 pp., 400 illustr., 3rd Edition, Ref. C207, $15.95 

PROGRAMMING THE 6502 by Rodnay Zaks 
392 pp., 160 illustr., 3rd Edition, Ref. C202, $12.95 

6502 APPLICATIONS by Rodnay Zaks 
288 pp., 207 illustr., Ref. D302, $1-2.95 

B502 GAMES by Rodnay Zaks 

304 pp., 140 illustr., Ref. C402, $12.95 

PROGRAMMING THE Z80 by Rodnay Zaks 
620 pp., 200 illustr., 2nd Edition, Ref. C280, $14.95 

PROGRAMMING THE Z8000 

by Richard Mateosian 

312 pp., 124 illlustr., Ref. C281, $15.95 

THE CP/M HANDBOOK (With MP/M) 

by Rodnay Zaks 

336 pp., 100 illustr., Ref. C300, $14.95 

* ___ D SEND ME YOUR FREE CATALOG 




STATE 



ZIP 



ADD D$1.50/book UPS or D75<t/book 4th class mail or D$8/book overseas airmail 
(CA add tax) Total Amt. Enclosed_____ OR CHARGE MY CJVISA DMC QAM EX. 

CARD NO . EXP. DATE__ ___ , 

SIGNATURE _____ . . 



ft) ACCOUNTANT 



ed a copy immediately. 

Within a week, I received a 60-plus page 
manual, an eight inch disk, and a refer- 
ence card. Compared to some, the manual 
is a model of clarity. It contains four color- 
coded sections. The first contains step by 
step instructions on how to use the sys- 
tem and an index. The second section 
contains specifications for the version of 
Target supplied. 

In a special section are models which il- 
lustrate the features of the Target system. 
(These models were thoughtfully repro- 
duced on the system disk furnished.) The 
remaining section highlights enhance- 
ments added to the version of Target sup- 
plied, which have not been included in the 
first section of the manual. 

The manual suggests reading the sec- 
ond section on specifications before try- 
ing to use Target. This recommendation 
should be observed, especially if the user 
has never used a CP/M (Control Program 
Microcomputer) operating system before. 
Attempting to boot up a CP/M disk with- 
out that operating system results in an RS 
error rather than a No System message. 

The Target, version 2.1 supplied to me is 
designed to work with Lifeboat Associ- 
ates, New York, NY CP/M version 2.2 or 
greater. It consists of five programs and 
three files. Each program is a machine 
language compilation of a BASIC pro- 
gram. Therefore, you will be unable to list 
the source code. 

One major advantage of a compiled BA- 
SIC program is that its execution speed is 
considerably greater than that of an inter- 
preted program. Target runs considerably 
faster than the T/Maker system I reviewed 
previously. Another major advantage, or 
disadvantage depending on your point of 
view, is that you cannot tinker with the 
source code. Therefore, you will be com- 
pletely dependent on the vendor for pro- 
gram enhancements or corrections 
should bugs occur. 

Compared to VisiCalc 

Advanced Management Strategies 
takes their obligation to support their cus- 
tomers seriously. During the evaluation 
phase, when I had difficulty with a pro- 
gram, their program support director had 
a copy of the system disk sent to me. To- 
gether we worked on and resolved the 
problem. 

Once up and running, Target bears a 
strong resemblance to VisiCalc. Like Visi- 
Calc, data is presented in tabular form. 
Calculations can be made to sum lines, 
generate data, create percentage relation- 
ships and sum columns. However, Target 
goes beyond VisiCalc by allowing logical 



tests of these calculations. IF tests, for 
example, can be made by the computer 
and the calculation of data altered 
dynamically. 

To illustrate this, let's consider calcu- 
lating an income tax. Typically, income 
taxes are calculated using a table of val- 
ues, with the tax bite getting progressively 
greater at each table break. Target's 
logical tests can identify a step point and 
use a higher tax rate should projected in- 
come increase. This feature will be par- 
ticularly handy projecting purchases 
where volume discounts are a factor. 

Unlike VisiCalc, data and resulting cal- 
culations are not entered directly on a 
worksheet. Target treats this information 



. . . "you will be 
completely dependent 

on the vendor. . . 
should bugs occur. " 



as a separate file. To place a display file of 
information in a format suitable for print- 
ing, the file must be run. After a display 
file is created, it can be examined at any 
time by hitting the ESC key. 

After becoming accustomed to Visi- 
Calc, data entry to a file seems archaic, 
however, there are significant advan- 
tages. The most important advantage is 
that all calculations and information are 
obvious in reviewing the file. With Visi- 
Calc, it is easy to lose track of which fig- 
ures are input and which are calculated. 
Target gets around the forgetfulness fac- 
tor by requiring row labels be used as 
descriptors when defining calculations. 

Row labels are limited to eleven charac- 
ters; any more are ignored. If more than 
one word is used as a label, an apostrophe 
(') must be entered in place of the space. 
The apostrophe is printed as a space. 
While this does not result in very descrip- 
tive row titles, careful abbreviations gen- 
erate acceptable reports. 

Target is loaded from the CP/M by sim- 
ply typing "TARGET". The initial display 
prompts you to enter the code of the data 
disk. In a CP/M system the drives are cod- 
ed A,B,C,D, corresponding to the TRSDOS 
0,1 ,2,3. Once the disk is named, Target re- 
quests the number of columns desired. If 
the return key is depressed, a default of 
three is selected. 

The system next prompts you for the 
number of decimals to be displayed on the 
output reports. If return is selected, the 



system will default to an integer output. 
Finally, you are asked to specify the out- 
put report date. Selecting return sup- 
presses the date and displays the main 
menu. 

Change Command Available 

From the menu, the user can create a 
new model, or recall a previously saved 
model. To facilitate recall, a directory 
command is available which displays file 
names of models stored on the disk. The 
menu also allows the operator to save a 
memory file or erase a previously saved 
disk file. Should you decide to alter a mod- 
el's size or number of decimal places in 
the output report, a change command is 
available on the menu. 

Once an option is selected, the system 
displays the data entry screen. Its chief 
feature is the guideline displayed on line 
one that uses the reverse print highlight- 
ing feature of the Model II. Within the 
guideline is exhibited the model name, 
number of characters available for model 
storage, column counter, decimal indica- 
tor and mode indicator. 

Target uses historical data to calculate 
initial model values. These historical 
values are entered in parentheses. The 
historical values do not appear on the out- 
put reports. 

Line commands can contain data, arith- 
metical operations <*,*,/, + ,-), logical 
statements (IF. . .THEN. . .ELSE) or func- 
tions. Like VisiCalc, Target supports line 
summing functions, MIN, MAX, and AVE. 
Unlike VisiCalc, there is no present value 
function. Target has the unique functions 
of CUM, GREATER OF, LESSER OF and 
GROW BY. 

The CUM function enters the cumula- 
tive total of all the lines to that point into 
the current column. GREATER OF and 
LESSER OF allow a choice of values to be 
entered into the report and subsequent 
calculations. GROW BY allows a pro- 
grammed growth factor to be applied to 
each value calculated for a column within 
the row. 

Target has column commands which 
are applied to the entire column vector. 
Arithmetic, logical and some functional 
operations are permitted. 

To further dress up your report, head- 
ing, skip, underline and overline com- 
mands are accepted. The heading can 
contain up to 252 characters. After for- 
matting is complete and the model is run, 
the report can be saved or printed. You 
can print the entire report or sections. 

With its advanced features and quick 
execution time, Target is worth a good 
long look at your nearest computer 
store. ■ 
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jft APPLICATIONS 

%^^^ by Dennis Kitsz 



Hmmmmm, let's see. S-Y-S-T-E-M. 
Okay, enter that. Good, there's the 
prompt. Now, what was that address? 
Aha, here it is. Type the slash, then 
2-0-4-8-0. Now enter that. Gone. Damn! 
Electronic never-never land again! Where 
is it? What's it doing? Just locked 
up. . .maybe I'll hit reset. Seems to. . .- 
Arrgh! MEMORY SIZE? 

If you've been entering machine lan- 
guage programs— your own, or those 
from 80 Microcomputing or elsewhere 
—chances are you have experienced 
maddening moments like these. Posi- 
tive the coding is correct, you direct 



"The micro front panel 
is simple to build, 

and can be completed 
in an evening. 



the computer to execute the routine, and 
it promptly hangs up. If you're skilled at 
using machine language monitors and 
breakpoints, it's possible (very painstak- 
ingly) to trace the course of the program 
until you find a flawed area. The process 
is time-consuming and unrewarding. 

Certain machine language monitor pro- 
grams offer a kind of window into the com- 
puter's operation by emulating a program 
rather than letting it run under its own 
control. It seems like the program is run- 
ning, but it is actually being run by the em- 
ulator. Instructions appear slowly disas- 
sembled on the screen and, if you've got 
the time, the program will eventually 
reach the trouble spot. 

Earlier microcomputers had few of 
these software comforts. Programs were 
entered a byte at a time by selecting ad- 
dresses through a bank of 16 switches, 
and entering data using eight other 
switches. It was all binary. But that 
method did provide a hardware 
"window"— each address and data bit 
was displayed on a row of LEDs which 



"This month's column 

presents a miniature window 

similar to those in 

early microcomputers 

and minicomputers." 



winked and blinked as the computer per- 
formed its operations. This switch-laden 
window was called the front panel. 

If the computer happened to hang up, 
the address area would be flashing away 
before your eyes. With a quick calcula- 
tion, the binary digits could be converted 
to hexadecimal (or octal in those misty 
past days), the computer recalled from its 
locked up state, and the incorrect code 
changed. 

This month's column presents a minia- 
ture window similar to those in early mi- 
crocomputers and minicomputers. You 
may watch the address and data change 
while the CPU reads from memory, writes 
to memory, inputs from a port, or outputs 
to a port. The entire project fits on a one- 
inch by four-inch piece of perfboard, 
which plugs into the edge card connector 
of the TRS-80 (Photo 1). 

For this project, you will need four inte- 
grated circuits (one 74LS20 and three 
74LS373), twenty-four 270-ohm resistors, 
four "IK-ohm resistors, one four-position 
DIP switch, and a 5-volt power source. A 
transistor battery and a 7805 (also known 
as a 340T-5) voltage regulator will do for 
the 5-volt source or a 9-volt battery elim- 
inator together with the voltage regulator. 
The display will also require 24 micro 
LEDs (sold in packs of four for 88 cents at 
Radio Shack, catalog number 276-032) or 
three 10-step LED bar displays (also at 
Radio Shack, $3.79 each, catalog number 
276-081). 

Fig. 1 presents the complete circuit for 
the micro front panel, and Fig. 2 shows 
two power supply options for it. The six- 




Photo 1. Micro front panel connected to 
the TRS-80. It is slightly wider than the nu- 
meric keypad. 



teen address lines and eight data lines are 
fed to the inputs of the 74LS373s. These 
integrated circuits contain eight latched 
flip-flops in each; when a rising clock 
pulse is sent to pin 1 1 of these circuits, the 
data present at their inputs is latched to 
the outputs. 

The read (RD), write (WR), input (IN), and 
output (OUT) lines lead through a switch 
to the input of a 74LS20 four-input NAND 
gate (Z4). When the switches are open, the 
inputs to Z4 are all high, holding its output 
low. When a switch is closed, the output 
of Z4 remains low until the respective in- 
put line is activated. A read signal, for ex- 



l 7n any case, enjoy. 

Just watching those 

LEDs is a delight." 



ample, switches the RD line from its nor- 
mal high (one) state to a low (zero) state. 
The presence of a low on any input of the 
NAND gate causes its output to swing 
high, latching data and address into the 
74LS373S, Z1 to Z3. 

The outputs of Z1, Z2 and Z3 should not 
normally be expected to light LEDs. But 
that is their only function in this circuit, so 
the current demanded by the LEDs does 
not overexert the 74LS373S. 

The micro front panel is simple to build, 
and can be completed in an evening using 
wire-wrapping technique. The individual 
LEDs can be inserted into integrated cir- 
cuit sockets to avoid soldering them or 
wire-wrapping their smooth, round leads. 
When ten-segment bar displays are used, 
they can be inserted into sockets; two 
segments of each package are left uncon- 
nected, breaking the display into three 
groups of eight digits. 

To have the displays read properly in bi- 
nary, the least significant bit of the ad- 
dress bus should be on the right, and the 
most significant bit on the left. The pat- 



48 • 80 Microcomputing, May 1981 



RUN YOUR OWN 
COMPUTER BULLETIN 
BOARD! 

Become o CONNECTION-80 SYSOP! with on Auto- 
Connection Modem, Message-80 DBS Software 
(by Richard Taylor) and CONNECTION-80 Enhance 
ments (by Tom Vande-Stouwe) all for only $389.00 
($90 off regular price!!) 

-OR- 

Run a mini Bulletin Board with an Autoconnection 
Modem and Superhost (by Clay Schneider) for 
only $279.00 ($30.00 off regular price!!) 

Autoconnection (See Below) $279.00 

Message-80 BBS (by Richard Taylor) .... 149.95 

CONNECTION-80 Enhancements $49.95 

(by Tom Vande-Stouwe) 

SuperHost (by Clay Schneider) $29.95 

Other Bulletin Board and Electronic Mail Packages 

available. 

Call for more info. ^60 



TIC-T0C 80 

Micro-Clock 
FOR THE TRS-80 

MODEL I 6 



i 



-6; 



for 
Kitu 



Ke yb 



Put a wrist watch on your Computer. Gives Time, 
Date, and day of week, without the need of 
operator input! Runs on Batteries, so it never 
needs to be reset. When used with devices such 
as the auto dial connection, it provides a message 
center that will send messages WHILE YOU ARE 
NOT EVEN THERE! Gives you the ability to enter 
data with the knowledge that the date and time 
is correct, without having to set the clock! Includes 
complete instructions, and sample routines. 

Complete Package. (Model I TRS-80). . . $99.00 
Complete Package. (Model III TRS-80) $109.00 
Special! if purchased ^122 
with BBS package, deduct $20.00 



ELECTRONIC ORDERING IS HERE Mi 

CONNECTION-80 CDDS (516) 588-5836 mm 



MICROCONNECTION- $249.00 
For Model I or III, decodes the TRS-80 buss and 
creates an RS-232 port. Eliminates need for ex- 
pansion box and/or RS-232 board. Provides serial 
printer output. Requires software written for port 
208. Requires adapter cable for Model III. 
RS232CONNECTION- $199.96 
Works with virtually any computer or terminal 
having an RS-232 serial I/O port. Replaces obso- 
lete acoustic coupled modems. Compatible with 
all TRS-80 terminal software. Requires RS-232 
cable. 

COLORCONNEQION- $199.95 
Converts Radio Shack Color Computer into a 
communications terminal. Provides serial printer 
output. Does not require any additional memory 
or extended basic. Complete with cables. 
AUTOCONNECTION- $79.95 (option) 
This option permits CONNECTIONS (except Color) 
to answer the telephone and/or dial numbers 
automatically. Supplied with a dialer demonstra- 
tion program. 

EUROPEANCONNECTION- $20.00 (option) 
This option modifies the above units for European 
Standards. 

MODEL III ADAPTER- $29.00 

Cable converts Model III 50 pin buss to 40 pins 

used by Model I peripherals. 

RS-232 CABLE- $24.00 

Four-foot ribbon cable terminated with 25 pin 

male DB25 plugs. 



COMMUNICATE!! 

SMART-80 and SMART 
By Dick Balcom 



•380 

Smart Terminal Programs for the TRS-80+ Model 
I and Model III Computers! This is the ONLY Smart 
Terminal Program available for the Model III as of 
this printing! These programs ore available in 
either cassette or disk versions for the Mod I and 
Mod III. these programs allow you to up AND 
down text and programs to your TRS-80+ from 
other users, Timeshare Systems (source, MicroNET), 
and free public DBS (CONNECTION-80, etc.). This 
software represents the State Of the Art in terminal 
software for the TRS-80 +. 

Smart-80(C), Smart lll(C) automatically converts 
basic programs saved on Tokens to ASCII code, 
and back again. EDTASM tapes con also be 
loaded thru the terminal! 

Smart-80(D) is the Disk based version of Smart- 
80 with the ability to transfer diskfiles to another 
user over both phone and radio with the use of a 
modem. These programs support Auto Log-on, as 
well as other features not found in other programs. 

Smart-80(C) Modell $79.00 

Smart III (C) Model III $99.00 

(1500 Baud Tape) 

Smart-80 (D) Model I $79.00 

Smart III (D) Model III $99.00 



D.T. Enterprises ^ n Dealer Inquiries Welcome (516) 981-8568 (Voice) 

1 71 Hawkins Road Add $2 oo s & h (516) 588-5836 (Data) 

Centereach, New York 1 1 720 nys res. add a PP r. tax MNET-70331 , 1 05 
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. . . and saves you hours of typing and aggravation. 

LOAD-80 is a monthly dump of the major program listings in 80 Microcomputing on cassette. 
Publisher Wayne Green tells you more . . . 



"Frankly, after hundreds of hours of 
frustration, I seldom even try to keyboard a 
published program. Even if the magazine 
manages to get the program typeset correctly 
(which seems rare), 1 inevitably screw it up 
when I keyboard it. Who needs the aggrava- 
tion? 

"This is why I've started a new series of 
cassettes called Load 80. Each cassette will 
have program dumps of the listings in an 
issue of 80 Microcomputing. These listings 
are direct from the authors and tested by the 
80 staff. All but the very short program 
listings will be on these Load 80 cassettes. 
Thus you will be able to save hours of input- 
ting programs and even more of debugging 
your keyboarding errors. 



"Though the authors of these programs 
will share the royalties from the sale of the 
cassettes, this will not preclude the better 
programs from being issued separately by In- 
stant Software (with royalties) with full 
documentation and associated hoopla. The 
documentation for the Load 80 programs 
will be entirely in 80 Microcomputing. 

"I originally was holding out for "Trash 
Dump" as a name for the cassettes, but cooler 
heads prevailed. If there turns out to be 
enough interest in Load 80, we'll set up a 
monthly subscription arrangement." 

Wayne Green, Publisher 



Send in the attached card and you 
will receive the cassette for the major 


□ Yes . .send my LOAD 80 Cassette for only $9.95 
| □ Check Enclosed Bill my □ AE □ MC □ VISA 

NAMF. 




I 


programs in this issue (May 1981). 
Ii the card is gone, photocopy the 
coupon. 


ADDRFSS 






CITY STATF. ZIP 
| CARD* FXPIRFDATF 






Please note Ihcrc is no warranty expressed or implied thai this program 
is going lo do anything oihei ihan save you typing. 


' SICNATURF INTFRRANK# 


315B8 






H ' Please allow 4-6 weeks for delivery 
H 1 SO Microcomputing Pine Street Peterborough NH 03458 

Attn: Debra L. Boudrieau 
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^APPLICATIONS 



tern applies to the data bus as well. 

An Experiment 

When the micro front panel is complete, 
plug it into the edge card of the computer, 
apply power, and turn the WR switch on. 
The LEDs will probably come on random- 
ly, but as soon as the TRS-80 receives 
power they will stabilize into a discernible 
flicker surrounding one area of memory. 
Disk users, make sure you are in Level II 
BASIC, and press enter in response to 
MEMORY SIZE? 

The addresses will read straight up 
through available memory, incrementing 
rapidly in binary. The effect will be most 
dramatic if you have a full 48K system. 

Disk users can power up the system 
with no disk in place, watch the disk be 
commanded to spin, and the computer 
hang up. The address line will probably 
read 0100001000000001— that is 4201 hex, 



where the program expects to find the 
disk boot program. 

From Level II BASIC, try this short rou- 
tine: 



POKE 20480,24 : POKE 20481 ,254 <ENTER> 
SYSTEM <ENTER> 

/20480 <ENTER> 



The system, as expected, hangs up. This 
program is the simple endless loop JR 
FE— that is, jump back to itself. Switch 
the WR line off and the RD line on. The ad- 
dress display will flicker in one area, but 
will mainly read 0110000000000000, which 
is 5000 hex (20480 decimal— see box). The 
least significant bit will be dim, meaning 
both 5000 and 5001 are being accessed al- 
ternately. 

Press the reset button to get out of this 
loop, and put this routine in place: 



I 

is 



A8 


3 


A9 


4 


AIO 


7 


All 


8 


AI2 


13 


AI3 


14 


AI4 


17 


AI5 


18 



A6 



A7 



1 



(24) MICRO LEDS (24) 
27011 



DO 


3 


01 


4 


02 


7 


D3 


8 


D4 


13 


D5 


14 


D6 


17 


D7 


18 



+ 5V 



-^o. 



-<s» 




RIGHT 



LEFT 



74LS20 



POKE 20480,60 : POKE 20481,50 <ENTER> 
POKE 20482,0 : POKE 20483,60 <ENTER> 
POKE 20484,24 : POKE 20485,250 <ENTER> 
SYSTEM <ENTER> 

/20480 <ENTER> 

The video screen will jitter and shake, and 
at the top left corner a rapidly changing 
character will appear. With the RD line 
still switched in place, the display will 
flicker around 0110000000000000 (5000 to 
5005 hex). Now switch the RD line off and 
the WR back on. 

The display should show 
001 1 1 10000000000, which is 3C00 hex, the 
first location of the video screen. In other 
words, the program is reading from 5000 
to 5005 hex, but writing to the screen at 
3C00 hex. The program in assembly lan- 
guage reads: 



INC A 

LD (3C00),A 

JR FA 



Again, it is an endless loop, each time in- 
crementing the value of A and writing it to 
the top left corner of the screen. 

For the third demonstration, insert a 
cassette into the player as if you were go- 
ing to load a program. Actually, the cas- 
sette may be any cassette, so long as 
something is recorded on it. Now enter 
this program: 



POKE 20480,58 


POKE 20481,61 


<ENTER> 


POKE 20482,64 


POKE 20483,211 


<ENTER> 


POKE 20484,255 


POKE 20485,219 


<ENTER> 


POKE 20486,255 


POKE 20487,50 


<ENTER> 


POKE 20488,0 


POKE 20489,60 


<ENTER> 


POKE 20490,24 


POKE 20491,244 


<ENTER> 


SYSTEM 




<ENTER> 


/20480 




<ENTER> 



In assembly language, this translates to: 



Fig. 1. Micro Monitor 



LD A,(403D) 

OUT (FF),A 

IN A,(FF) 

LD (3CO0),A 

JR F4 



An explanation is in order here. At loca- 
tion 403D hex (16445 decimal), the status 
of port FF (255 decimal) is stored for use 
by BASIC during CHR$ (23), CLOAD, and 
SYSTEM. This program reads that status 
and sends it to port FF. When this infor- 
mation is written to that port, it resets the 
data input flip-flop without disturbing the 
cassette relay or screen character size. 

In other words, when data comes into 
the cassette port it sets the flip-flop trig- 
ger. To read the presence of data, the 
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BRIDGE RECTIFIER 



1 17V 



6.3V I 



I 

X 



7805 
(LM340T-5) 



2200 M F 






+ 5V 



x-T-v ^C r /-TN 



9 VOLT BATTERY 

OR 

BATTERY ELIMINATOR 



1 



7805 

(LM340T-5) 



IO M F 



m 



!r 



+ 5V 



lO^F ?f;.l/iF 



^rsiu/tr ,-Ts 



"3- 



F/'g. 2. Power Supplies for Micro Front Panel 





SIGNAL 


P/N 


NAME 


1 


RAS* 


2 


SYSRES 


3 


CAS' 


4 


A10 


5 


A12 


6 


A13 


7 


A15 


8 


GND 


9 


A11 


10 


A14 


11 


A8 


12 


OUT* 


13 


WR* 


14 


INTAK* 


15 


RD* 


16 


MUX 


17 


A9 


18 


D4 


19 


IN* 


20 


D7 


21 


INT* 


22 


D1 


23 


TEST" 


24 


D6 


25 


AO 


26 


D3 


27 


A1 


28 


D5 


29 


GND 


30 


DO 


31 


A4 


32 


D2 


33 


WAIT* 


34 


A3 


35 


A5 


36 


A7 


37 


GND 


38 


A6 


39 


+ 5V 


40 


A2 



DESCRIPTION 

Row Address Strobe Output for 16-Pin Dynamic Rams 

System Reset Output, Low During Power Up Initialize or Reset Depressed 

Column Address Strobe Output for 16-Pin Dynamic Rams 

Address Output 

Address Output 

Address Output 

Address Output 

Signal Ground 

Address Output 

Address Output 

Address Output 

Peripheral Write Strobe Output 

Memory Write Strobe Output 

Interrupt Acknowledge Output 

Memory Read Strobe Output 

Multiplexor Control Output for 16-Pin Dynamic Rams 

Address Output 

Bidirectional Data Bus 

Peripheral Read Strobe Output 

Bidirectional Data Bus 

Interrupt Input (Maskable) 

Bidirectional Data Bus 

A Logic "0" on TEST* Input Tri-States A0-A15, D0-D7, WR*, RD*, IN*, OUT*, RAS*, CAS*, 

MUX* 

Bidirectional Data Bus 

Address Output 

Bidirectional Data Bus 

Address Output 

Bidirectional Data Bus 

Signal Ground 

Bidirectional Data Bus 

Address Bus 

Bidirectional Data Bus 

Processor Wait Input, to Allow for Slow Memory 

Address Output 

Address Output 

Address Output 

Signal Ground 

Address Output 

5 Volt Output (Limited Current) 

Address Output 

NOTE: * means Negative (Logical "0") True Input or Output 

! 3 5 7 9 11 13 15 17 19 21 23 25 27 29 31 33 35 37 39 

1 l_l LJ LJ LJ LJ U U C3 □ □ □ □ □ O □ □ □ C3 □ □ ' 

2 4 6 8 10 12 14 16 18 20 22 24 26 28 30 32 34 36 38 40 

Mates with AMP P/N 88103-1 Card 
Edge Connector or Equivalent 

Fig. 3. Edge card connector, from the TRS-80 Technical Reference Handbook 



computer must first reset the trigger with- 
out messing up the screen or turning off 
the cassette motor. The first two instruc- 
tions perform that function. The com- 
mand IN A,(FF) reads that information in- 
to the accumulator, from where it is sub- 
sequently written to the screen. 

Flip off the RD and WR lines of the 
micro front panel, and turn on the IN line. 
Start the cassette moving, and watch as 
the cassette data bit flickers in concert 
with the incoming audio signal. Try RD 
and WR in turn as well, which will show 
the program being read from the 5000 area 
and data being written to 3C00. 

Finally, turn off all three lines and flip 
the switch to OUT. You can now see the 
steady data from 403D that is being out- 
put to port FF. 

What Earthly Use? 

Naturally, a front panel is not for every- 



Reading the Binary 

Looking at 24 blinking LEDs is a 
treat. It also gives you a feeling that 
you've got a real computer there. 
But to use the little flasher, you 
have to read the binary information. 

When the LED is on, count that 
as a one; when it's off, you've got a 
zero. Break the string of ones and 
zeros into blocks of four, and use 
this table to convert the binary 
number to hexadecimal. 



0000 





0001 


1 


0010 


2 


0011 


3 


0100 


3 


0101 


5 


0110 


6 


0111 


7 


1000 


8 


1001 


9 


1010 


A 


1011 


B 


1100 


C 


1101 


D 


1110 


E 


1111 


F 



Easy as can be. 

1001011011010101 breaks into 1001 
01 10 1 101 0101 , which you can con- 
vert quickly to 9 6 D 5. To determine 
the decimal equivalent of this num- 
ber, if you need it, refer to my "Ap- 
plications" column in the March 80 
Microcomputing. 
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COLLEGE BOARDS 



for TRS-80 
PET, APPLE 

The best way to sharpen your skills for the College Boards is to work on actual examinations. 
Each of these program sets confronts the user with a virtually limitless series of questions and answers 
Each program is based on past exams and presents material of the same level of difficulty and in the 
same form as used in the College Board examination. Scoring is provided in accordance with the 
formula used by College Boards. 

SAT, PSAT, N.M.S.Q.T., set includes 7 programs covering Vocabulary, Word Relationships, and 
Mathematics. p r j ce $79.95 

EDUCATOR EDITION - SAT, PSAT Includes all of the above programs plus detailed solutions and 
explainations for each problem plus drill exercises. SAT set includes 14 programs. $149.95 

GRADUATE RECORD EXAMINATION set includes 10 programs covering Vocabulary, Word Rela- 
tionships, Mathematics, Logical Diagrams, Analytical Reasoning. $139.95 
E DUCATOR EDITION - Graduate Record Exam Set includes 20 programs. $1 99.95 

SWORD OF ZEDEK 

Fight to overthrow Ra, The Master of Evil. In this incredible adventure game, you 
must confront a host of creatures, natural and supernatural. To liberate the King- 
dom, alliances must be forged and treasures sought. Treachery, deceit and witch- 
craft must be faced in your struggles as you encounter wolves, dwarves, elves, 
dragons, bears, owls, ores, giant bats, trolls, etc. Each of the 12 treasures will en- 
hance your power, by making invisible, invulnable, more eloquent, more skillful in 
combat etc., etc., as you explore the realms of geography both on the surface and 
underground. Dungeons, temples, castles, mountains etc., are all a part of the 
fantastic world of Ra. Each game is unique in this spectacular and complex world 
of fantasy. $24.95 




KRELLGAMEPAK 
Incredible bargain, 15 unique 
and challenging games!!! 



SUPER STAR BASEBALL 



Hostage 
Prime Time 
The Black Death 
Star Clipper 
Bulls & Bears 
Banzai 
Banzai II 



Primary Fight 

Black Gold 

Wordsworth 

Hard Scrabble 

Bible Quode 

Shakespeare Quode 

Bill of Rights Quode 



ALL TIME 

SUPER STAR BASEBALL 

Sample Lineup 



SUPER STAR BASEBALL 
Sample Lineup 



8. Ruth 


T.Williams 


D. Parker 


J. Rice 


L. Gehrig 


J. Foxx 


W. Stargell 


H. Aaron 


J. OiMaggio 


H. Greenberg 


W. Mays 


L. Brock 


). Jackson 


R. Hornsby 


P. Rose 


R. Carew 


C. Sisler 


H. Wilson 


O. Cepeda 


H. Ki Hebrew 


S. Musial 


B. Terry 


C. Yazstremsk 


R. Allen 


T. Cobb 


M. Mantle 


W. McCovey 


R. Leflore 


W. Mays 


H. Aaron 


R. Jackson 


R. Zisk 


C. Young-P 


W. )ohnson-p 


G. Brett 


B. Madlock 






R.Guidry-P 


T. Seaver-p 



Super Banzai TRS-80 only, $39.95 



TIME TRAVELER 

The best of the adventure games. Confronts player with complex decision situa- 
tions and the demand for real time action. Using the Time Machine, players must 
face a challenging series of enviornments that include; the Athens of Pericles, 
Imperial Rome, Nebuchadnezzar's Babylon, Ikhnaton's Egypt, Jerusalem at the 
time of the crucifixion, The Crusades, Machiavelli's Italy, the French Revolution, 
the American Revolution, and the English Civil War. Deal with Hitler's Third Reich, 
Vikings, etc. At the start of each game players may choose a level of difficulty... 
the more difficult, the greater the time pressure. To succeed you must build 
alliances and struggle with the ruiing powers. Each game is unique. $24.95 



Performance is based on the inter- 
action of actual batting and pitching 
data. Game can be played by one 
or two players with the computer 
acting as a second player when de- 
sired. Players select rosters and line- 
ups and exercise strategic choices in- 
cluding hit and run, base stealing, 
pinch hitting, intentional walk, etc. 
Highly realistic, there are two 
versions, ALL TIME SUPER STAR 
BASEBALL, and SUPER STAR BASE- 
BALL featuring players of the current 
decade. Each includes about 50 
players allowing nearly an infinite 
number of roster and lineup possi- 
bilities. 

$14.95 



#bk 




• 375 



*ALL PROGRAMS AVAILABLE FOR 
TRS-80, APPLE II & PET 

* Programs for APPLE or TRS-80 are on 
disk or cassett, please specify. 

All programs require I6K« TRS-80 programs require LEVEL II BASIC* APPLE programs require Applesoft BASIC 



KRELL SOFTWARE 

Send check or money order to 
21 Milbrook Drive, Stony Brook, NY 1 1 790 

(516) 751-5139 



• See List of Advertisers on page 306 
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one. If your forte is BASIC, chances are 
you'll hardly ever need it. But then, it's re- 
assuring to be able to see BASIC working 
when it pauses for one of those seemingly 
interminable string sorts. 

In any case, enjoy. Just watching those 
LEDs is a delight. If there is enough inter- 
est, a printed circuit board will be made 
available for this project. Please write to 
me at Roxbury, VT 05669. Enclose a self- 
addressed, stamped envelope. 



Reminder The Edge Connector 

I've recommended that you all purchase 
and read the TRS-80 Technical Reference 
Handbook, which contains the pin assign- 
ments of the edge card connector. But 
just as a yearly reminder, it's presented in 
Fig. 3. 

High-Speed Update: I am still receiving 
many letters about the speed-up modifica- 
tion which appeared in the February 1980 
issue of this magazine. This speed-up 
works well for all versions of the TRS-80 
Model I, but some expansion interfaces 
(those manufactured since the spring of 
1980) may need a few changes. These are 
the expansion boxes that don't need the 
buffered cable. 

The changes involve the way memory is 
selected in the expansion box, because 
these interfaces were fixed to run at 1.77 
MHz and no faster. First of all, be sure you 
have RAMs rated at 300 nS or better, 
which is usual for newer expansion inter- 
faces. 

There are seven steps: 

1. Find Z37 and Z38. 

2. Cut the trace leading from Z38, pin 
9. Call the end furthest from Z38 "loose 
end A". 

3. Cut the trace leading from Z38, pin 
8. Call the end furthest from Z38 "loose 
end B". 

4. Cut the trace leading from Z37, pin 
4. Call the end furthest from Z37 "loose 
end C". 

5. Attach loose end A to Z38, pin 11. 

6. Attach loose end B to Z37, pin 4. 

7. Attach loose end C to Z38, pin 9. 

With these changes in place, memory will 
be selected faster and asked to produce 
valid data from the computer much faster. 
Technically, the Radio Shack design 
slowed the Row Address Strobe (RAS) 
from the computer by a few nanoseconds 
to produce a special signal for the expan- 
sion box, MRAS. By using an inductance 
network, the design also produced de- 
layed signals which were used for select 
multiplex (MMUX) and column address 
strobe (MCAS). 
These alterations retain the original 



RAS, and the delayed MMUX and MCAS 
follow that. Normal speed on the comput- 
er is unaffected by these changes. 

Survey Results 

Well, the votes have been cast, few of 
them though there were (23 out of 50,000 
readers!), and here are the results: 
Everything's okay: 15 

More hardware: 3 

More software: 3 

More of both: 1 

Five page complaint: 1 

Among all the software presented, only 
KBEEPFIX is in regular use; two readers 
built the real-time clock, one the small in- 
terface, and two performed a few suggest- 
ed modifications. To the readers who re- 
sponded, many thanks. To the 49,997 



others. . .where did I go wrong? 

Memory Sidecar Update: Apparently, 
initial shipments of this device from The 
Peripheral People have been delayed, but 
should be in your hands by the time you 
read this. Also, another company has 
developed an inexpensive ROM add-on, 
and several utilities to go with it. Write to 
Computer Accessory Technology, Frank 
Kwong, 1307 Bagley Dr., Kokomo, Indiana 
46901. 

Interview with Dr. Lirpa: Thanks and 
credit were inadvertently omitted last 
month. Appreciation to Audio Magazine 
for greasing the path to Dr. Lirpa's villa. 

Next month (with luck): 384x192 high- 
resolution graphics add-on. Plug it in, turn 
it on. 



EDUCATION g0 

by Earl R. Savage %S\r 



Savagt 



I have long maintained that teachers can 
learn to write instructional programs 
much easier than programmers can learn 
to instruct. That's another way of saying it 
is much easier to make a programmer out 
of a teacher than a teacher out of a pro- 
grammer! I don't mean to sell program- 
mers short— it's simply that extensive 
training and experience are necessary be- 
fore anyone can become a teacher, and 
therein lies the problem with much of to- 
day's instructional programming. 

It is a rare stroke of luck when a pro- 
grammer turns out a good CAI (Computer 
Assisted Instruction) program. This is true 
even when he knows the subject well— he 
just doesn't know enough about how peo- 
ple learn or the most effective ways to pre- 
sent material to various types of students. 

There is a very real shortage of teacher- 
programmers. When you considerthat the 
best CAI writer is a combination of master 
teacher and expert programmer, where do 
you find one? 

A second reason for scarcity of good 
CAI is financial. Writing a good program 
from scratch requires many hours; to be 
worthwhile, the writer must be able to an- 
ticipate a reasonable number of sales at a 
fair price. Schools, however, are increas- 
ingly short of funds: As they buy less, writ- 
ers produce less. 

The solution is to find some method by 
which teachers can write programs quick- 
ly without knowing anything about pro- 



gramming. Fortunately, such a solution is 
as close as your mailbox. There are 
writer's programs available which will 
take care of all the "computer stuff" and 
let you concentrate on the learning mate- 
rial. 

Instructional Goals 

Let's have a quick review of the funda- 
mentals of planning an instructional les- 
son or topic. This is.nothing new — it's the 
same process you've been using for years 
when planning instruction. Planning for 
computer instruction is exactly like plan- 
ning for regular classroom instruction. 
The only difference is that it is easier to 
accomplish some important objectives 
with CAI. 

After setting goals and performance 
objectives for student achievement, se- 
lect the instructional materials and pro- 
cesses which you expect will lead to at- 
tainment of those objectives. From a prac- 
tical standpoint, you end up with a "plan 
of attack" (on ignorance) suited to the stu- 
dents, the material and the situation. 

CAI Organization 

The simplest type of CAI programming 
is organized in a linear manner. It is 
similar to the pattern used in the lec- 
ture/discussion presentation of material 
by the classroom teacher. Linear pro- 
gramming is represented by the diagram 
in Fig. 1. 
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Toll Free Order Line 

1-800-525-7674 
(Except CA, AL, HI) 

For Technical Service 

303-741-1778 



405 K/ bytes of storage. Apparat has com 

bined its Newdos/80 operating system and 

a dual-sided 80 track minifloppy drive to 

give you 405,000 bytes of storage in a 

single volume. Modification patches to 

Newdos/80 expands the capability of 

single density drives, so you'll have 

greater applications for your TRS-80 

model 1.® 

Drives plug directly into an expan- 
sion interface with no modification 
required so you can now have over 
1 megabyte of storage on-line with 
standard mini-floppy diskettes. Each 
drive has 316 free grans, for a total 
of 948, on a maximum of three 80 
track drives, which can be added to 
a TRS-80. 

Upgrading to double density is 
possible by running under most dou- 
ble density controllers, (e.g. Percom's 
Doubler). 
These drives can "read" standard 35 
or 40 track diskettes with special soft- 
ware that skips every other track. 
Drives come 
complete with 
case, power sup- 
ply, interface cable 
and documentation 
including patches 
to Newdos/80. The drive mechanism is priced 
at only $699 (Cat. Mo. 1-705, specify I or 111), 
ow, at 579 bytes per buck, it just might be the 
iswer to your storage problems. 

Ami Apparat, Inc. 

4401 So. Tamarac Parkway, Denver, CO 80257 (303) 741-1778 




Now available for model III, 728K bytes of storage. 



Apparat, Inc. 
introduces 
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TOWUVOOV 



For the 80s — 

an enhanced NEWDOi 

for your TRS-80™ 






HP 



|i^iU|B|| 




Apparat, Inc., announces the most 
powerful Disk Operating System for the 
TRS-80®. It has been designed for the 
sophisticated user and professional 
programmer who demands the ultimate 
in disk operating systems. 

NEWDOS/80 is not meant to replace 
the present version of NEWDOS 2.1 
which satisfies most users, but is a 
carefully planned upward enhance- 
ment, which significantly extends 
NEWDOS 2.1's capabilities. This new 
member to the Apparat NEWDOS' 
family is upward compatible with 
present NEWDOS 2.1 and is supplied 
on Diskette, complete with enhanced 
NEWDOS + utility programs and 
documentation. Some of the 
NEWDOS/80 features are: 

• New BASIC commands that 
supports files with variable record 
lengths up to 4095 Bytes long. 

• Mix or match disk drives. Supports 
any track count from 18 to 80. Use 



35, 40 or 77 track 5" mini disks drives 
or 8" disk drives, or any combination. 

• A security boot-up for BASIC or 
machine code application programs. 
User never sees "DOS READY" or 
">READY" and is unable to 
"BREAK", clear screen, or issue 
any direct BASIC statement 
including "LIST". 

• New editing commands that allow 
program lines to be deleted from one 
location and moved to another or to 
allow the duplication of a program 
line with the deletion of the original. 

• Enhanced and improved 
RENUMBER that allows relocation 
of subroutines. 

• Powerful chaining commands. 

• Print Spooler. 

• DFG function; simultaneous striking 
of the D, F and G keys will allow 
the user to enter a mini-DOS 

to perform some DOS commands 
without disturbing the resident 
program, (e.g. dir while in scripsit.) 



• Upward compatible with NEWDOS 
2.1andTRSDOS2.3. 

• Includes machine language 
Superzap/80 and all Apparat 2.1 
utilities. 

• Enter debug any time by pressing 
123 keys. Also allows disk I/O. 

• Diskette "Purge" command. 

• Specifiable system options (limited 
sysgen type commands). 

• Increased directory capacity. 

• Copy by file commands. 

NEWDOS/80 with all of the 
NEWDOS + utility programs, many of 
which have been enhanced, is priced at 
just $149.00 and is available at most 
TRS-80 dealers. 

As with 2.1, NEWDOS/80 relies on 
the TRSDOSand Disk Basic Reference 
Manual published by Radio Shack. 
NEWDOS/80 documentation supports 
its enhancements and upgrades only. 
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Apparatlnc. 



NOW AVAILABLE 
FOR MODEL III 



TO PURCHASE NEWDOS/80, COMPLETE AND MAIL TO: 

«__-..« i— Order Desk 

Apparat, Inc. 

4401 S. Tamarac Parkway - OR - 800-525-7674 

Denver, CO 80237 Technical Service 

303-741-1778 

D Money Order □ Master Charge D Visa 
Expiration Date 



D Check 

Card No. 

Colo, residents add 6.5% sales tax Cal residents add 6% sales tax 

Add $10.00 postage and handling (or outside North American continent. 

Please rush NEWDOS/80 @ $149 EACH TO: 



Name 



Address 
City 



State . 



Zip. 



j Phone 

I 

I 
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TOPIC/LESSON IDENTIFICATION 

I 

OVERVIEW 

\ 

LESSON MATERIAL 

I 
.... 

LESSON MATERIAL 

i 

TEST 

I 

STUDENT SCORES 

I 

NEXT TOPIC/LESSON 

Fig. 1. A Linear Instructional Program 



The program (or teacher) presents a ser- 
ies of informational frames which may or 
may not include a significant amount of 
student interaction. All students are ex- 
posed to the same material in the same 
sequence. 

A more advanced type of CAI program- 
ming is called branching. In branching 
programs, all students are not presented 
the same material. They get only that 
which, by some criterion, they seem to 
need. 

Fig. 2 shows one example of an almost 
infinite variety of branching possibilities. 
In this case, each student takes a "pre- 
test" and then receives material which is 
appropriate in detail and scope to his 
demonstrated knowledge of the subject. 
A typical branching program contains 
frames of instructional material which are 
skipped by students in various categories. 
There may be as many levels as the teach- 
er believes necessary, though seldom 
does one find more than four levels in a 
program. 

The better your plans, the better your in- 
struction. We will leave the subject of 
planning with the well known axiom that 
an effective instructional activity requires 
careful planning regardless of the means 
used to present that activity. 

Easy Programmer 

So, there you are with your lesson plan 
in hand, ready to write your CAI program. 
Even if your plan is linear, you must know 
something about programming that com- 
puter. If it is branching, you must know 
much more— unless. .. unless you have 
an "author" program to take care of the 
nuts and bolts of putting your plan into 
the computer. 

Programs called CAIware and Super- 
CAI will handle those nuts and bolts for 
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you. They are available from Micrognome, 
Fireside Computing, Inc., 5843 Montgom- 
ery Road, Elkridge, MD 21227. As amazing 
as it may seem, all the teacher has to be 
able to do is load the author program and 
follow simple instructions. 

CAIware consists of three parts: an 
author program, a student program and a 
detailed manual. The author program is a 
manager-formatter, used by the teacher to 
create lesson tapes according to his own 
specifications. The student program is 
used by the student to call up the lessons. 
Both programs are re-used as often as de- 
sired; they are unchanged by the lesson 
presentation. 

You, the teacher, need know absolutely 
nothing about programming to create top 
quality CAI lessons. The author program 
takes care of that automatically. You sim- 
ply answer questions and fill in the blanks 
on pre-formatted screens. 

I'm aware that this sounds like a 
straight-jacket, allowing little variation in 



lesson format. Nothing could be further 
from the truth. The CAIware author gives 
you a large number of choices through- 
out, allowing you great variety and lati- 
tude formatting each lesson to match the 
requirements of the subject and the needs 
of the students. 

Those of you who are beginning or even 
advanced programmers should not over- 
look the value of CAIware and Super-CAI: 
you should consider the time and effort an 
author program can save you. If you don't 
have to slow down to figure out the nuts 
and bolts for each of your lessons, you 
can spend more time on the essential 
planning and end up with more good CAI 
programs for your students. 

Don't wait for someone else to write 
CAI programs suitable for your students. 
You have already done most of the work- 
look at all those lesson plans in your file 
cabinet! I bet that with a little plan modifi- 
cation and some nuts and bolts assis- 
tance, you can be on the way. ■ 
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THE EXCLUSIVE ORACLE 



by Dennis Kitsz 



Q: I have built your interface (April, May and June "Applica- 
tions") and it works fine. How about another couple of chips 
that would decode seven of the data-out pins as a peripheral 
device's address. Then you could use the eighth address bit 
as your logic high or low signal. That way, couldn't one port 
control two to seven devices on or off? 

Also, a disturbing thing with the interface so far is that with 
the ribbon cable connected to either the computer or the ex- 
pansion interface, I get some kind of noise that appears on 
letters displayed from the keyboard. Would this disappear if I 
enclosed it in a metal case? Do I need to shield the ribbon? 

Lenny Greenberg 
Toledo, OH 

A: The idea of controlling peripheral devices that way is a 
good one that I never considered. There's an old psychology 
term called "functional fixedness," and lots of us fall into that 
trap. Using data lines as an address is in that category. So 
here's part of a circuit you might use: 

The 74LS154s select one of 16 devices when given a binary 
input; the three other lines can select one of eight 154s, giving 
a total of 128 options. (What are you running, Lenny, all the 
traffic lights in town?) The on-off signals can be run to the 
5-volt relays as shown, or to optical isolators where you are 
working with higher voltage. (Maybe a train set?) 

As for your noise problems, you might consider a shorter 
cable, braided cable, or shielding, but first check the clean- 
ness of the wiring or soldering on the small interface. Also, if 
your expansion box does not use the buffered cable, any pe- 
ripheral devices that connect directly to the edge-card bus in- 
crease the overall system noise. Tandy's technical handbook 
only rates the TRS-80's fan-out (the ability to drive additional 
circuits) as "one"! So clean the edge-card contacts, keep the 
TRS-80 away from noisy electrical equipment (fluorescent 
desk lamps are notorious), and connect peripheral devices 
only when you need them. 



Q: Well, here I am, sitting at the good old TRS-80 using the 
Word Processor from May's 80 Microcomputing. Getting the 
LNW Research Interface up and running has given me a prob- 
lem. The real-time clock won't work, I have all chips in the 
board except for the disk controller. Any ideas? 

John W. Schrage 
Chester, New Jersey 

A: Oddly, the disk controller is an integral part of the real-time 
clock in the LNW board. The chip can be obtained from Ad- 
vanced Computer Products in Irvine, California, for about $17. 



Q: Single-stepping a BASIC program (September "Applica- 
tions") intrigued me, as it seems to be an excellent way to de- 
bug a program. I have a 48K TRS-80 with two disk drives, and 
use either TRSDOS 2.3 or NEWDOS + . I thought I would give 
the BASIC version of the single-stepper program a try. I can- 
not get beyond line 30, at which point my screen reads IL- 
LEGAL FUNCTION CALL AT 30. Could you make some sug- 
gestions? 

30 POKE 16526,228 : POKE 16527,127 : M% = USR(O) 

Dr. George L. Haller 
Naples, FL 

A: Your disk operating systems provide you with ten USR op- 
tions rather than just one we Level II users are allowed. That 
means you must define the entry points for each of these USR 
calls. In this case, the line would read: 

30DEFUSR1 = &H7FE4:M% = USR1(0) 

By the way, since you have a 48K machine, you might wish 
to relocate the single-stepper to higher memory. 

Q: I'm having a lot of trouble with my TRS-80. First, when my 
computer scrolls, it prints spaces as zeros, Gs as Ws, and so 
on. It is very regular, and this does not occur until the comput- 
er gets to the bottom of the screen and scrolls. The last line is 
unchanged. Second, the computer is ignoring some cas- 
settes, most of which I've loaded many times successfully. 
Either I get a stuck asterisk or no asterisk at all. Third, 
I've been getting some arbitrary characters on the screen, and 
often the computer will unexpectedly lock up. Other times the 
screen will fill with garbage and begin printing, from the bot- 
tom to the top, a pair of alphabetic or numeric characters. 
What's happening? 

Dave Hildebrandt 
Walnut Creek, CA 



A: As you know by now, we solved these problems together. 
Here's what happened. Some solder hairs you left when you 
put in a lower-case mod were causing part of the random gar- 
bage and most of the lockups. Moving the CPU away from 
some nearby electrical equipment cleared them up com- 
pletely. 

The scrolling problem was more subtle. Bit 4 of the video 
memory seemed stuck high all the time, which would account 
for the very regular change in letters. Yet, since the screen 
data was printed correctly the first time (before scrolling), it 
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would seem that the video memory itself was fine. What could 
this mean? We need to know something about the scrolling 
routine itself, which works like this: 



LD 


HL,3C40H 


LD 


DE.3C41H 


LD 


BC.37FH 


LDIR 





In other words, it transfers what it reads from the bottom 15 
lines of the screen to the top 15 lines. Simple. But the secret is 
the statement, "what it reads from." This means bit 4 is fine 
going into the video RAM, but messing up on the way out. It 
could indicate a bad read line on the video RAM, a blown buf- 
fer, or a broken trace on the line (causing it to "float" high). In 
your case, the trace was torn during your modifications, and 
the problems cleared up when the trace was repaired. 

Finally, your cassettes load now that you've replaced the 
ones damaged by your CTR-80 tape recorder. Radio Shack 
still offers the free fix to early CTR-80s, which could record a 
glitch onto tapes, even in the play mode. 



Q: I am having a great deal of trouble communicating using 
my CAT modem. It works great with other TRS-80s, and in fact 
I've exchanged info from Spokane to Chicago. There is a Com- 
puterland store in my neighborhood that is left up all night. 
The employees swear other TRS-80 users are on the system, 
but I can't seem to get going. Are there any tricks to interfac- 
ing a TRS-80 and Apple? Baud rate? Stop bits? 

Paul Knechtel 
Hinsdale, IL 

A: Since you've been successful on line, I won't suggest 
you've been putting the phone receiver in backwards! I did 
that myself the first time. Your question is one that plagues 
computer users from the home user to the systems engineer: 
what communications protocol to use? 

For hobbyist use, you would normally be sending your data 
at 300 baud, 8 bits, with parity disabled. Use full duplex, and 
set your modem to the "originate" position. After you dial the 
number and the host computer answers, you should hear a 
whine pitched approximately a seventh higher than yours (like 
the distance between C and B on the piano). When it hears 
your answer tone, it may send some requesting signal, such 
as a question mark, but don't count on it. Hit ENTER a few 
times, and wait. Keep trying that, but if -here's still no 
response, or the carrier tone disappears, dial up again. Go 
through the same process, but listen in on an extension. 
Listen for a variation or jitter in the pitch at the far end. It may 
not be sending data at all, or your local phone lines may be 
weak. As a last resort, ask for a list of those "other TRS-80 
users," and give one of them a call. 

There are no tricks to interfacing an Apple and a TRS-80. 
The reason we use ASCII, standard modem frequencies, and 
so forth, is to provide compatibility. 

Q: I would like to leave the small Radio Shack amplifier/speak- 
er connected to the second cassette cable and not have to do 
a lot of unplugging, etc., for music and sound effects. Is there 



a POKE that would direct the output to the second cassette 
jack? 

Joe Sholes 
South Boston, MA 

A: The switching relay for cassettes in the expansion box is 
mapped to address 37E4. To switch to cassette #1 (from 
cassette #0), 

POKE 14308,1 

Get back by POKEing a zero into that location. If this 
doesn't seem to work, check the cables attached to your ex- 
pansion box. Radio Shack didn't mark their positions, and the 
order isn't logical. Check the installation manual. 

Q: All I want is a routine to have the computer tell me how 
many digits there are after a decimal point for any given value. 
My simple program doesn't do the job: 



10 


FOR I = TO S 




20 


Y = ABS(A - FIX(A)) 




30 


|FY<=0THEN60 




40 


Y=A.10: A = Y 




50 


NEXT 




60 

utic 


PRINT"I = ";I:END 

n? 


Dick Blayney 
Mission Viejo, CA 



A: There are a few problems that come up when using decimal 
positions. First of all, single-precision numbers have fifteen. 
Try this routine, which will work in most cases: 

10 DEFDBLA 

20 INPUT A 

30 A$ = STR$(A) 

40 B = LEN(A$) 

50 FOR X = 1 TO B 

60 B$ = MID$(A$,X,1) 

70 IF B$ = "." THEN 90 ELSE NEXT X 

80 X = X - 1 

90 Y = B - X : PRINT Y 

100 GOTO 20 

Defining A as a double-precision number will give you fif- 
teen decimal places before going into scientific notation. 
Following zeros will not be counted by this program. 



Q: There are several things I do not understand about ma- 
chine language programs written as BASIC POKE 
statements. For example, in the BASIC single-stepper 
(September "Applications"), you say key it in and run it 
separately. Do you mean RUN the program in Listing 2? 

When you say delete the program, do you mean delete the 
program in Listing 2? Is it necessary to protect memory if no 
other system programs are in memory? And if so should it not 
be done at power up? 

If you say, "always protect memory," I still will not know 
what you may be trying to communicate. Also, how can an 
assembly language program be converted to a BASIC listing? 
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I always see POKE, FOR. . .NEXT, READ, DATA, which can 
presumably be read by BASIC. Where is it put in a BASIC pro- 
gram? How do I get to it? How do I get back to the BASIC pro- 
gram? I hope my questions are not too much! 

George Dosa 
Gardena, CA 



A: You've asked all the right questions. . . almost enough for 
a book! There is a key to understanding how these programs 
work: a computer contains memory, which holds whatever 
you tell it to hold. When you load a BASIC program, memory 
holds human-oriented words like PRINT, INPUT, READ, etc., 
which cannot be used by the computer to do anything. In- 
stead, a large block of permanently programmed memory in- 
terprets these words and symbols into the electrical impulses 
the computer can understand. In this case we call the perma- 
nent memory "Level II BASIC." 

Machine language programs merely avoid the roundabout 
and time-consuming process of interpretation. When you 
load and run a SYSTEM tape, you're avoiding that interpreta- 
tion process. But remember this: when you load that SYSTEM 
tape, it doesn't disappear. It is held somewhere in memory, 
where it can do its work. 



TRS-80 users with programs like T-Bug and Editor/Assem- 
bler can build their own SYSTEM tapes. You may not have 
these programs, or you may find it is more convenient to load 
a single BASIC program with a machine language subroutine. 
That forces us to use BASIC, clumsy as it can be, to simulate 
loading a machine language program into memory! 

The process is surprisingly arbitrary. To start with, high 
memory is chosen because Radio Shack lets us set Memory 
Size, which is the amount of space allocated to a BASIC pro- 
gram. So when program authors tell you to set memory size to 
32739, they mean "let BASIC use all the space up to but not in- 
cluding memory cell number 32739." You might think that a 
short BASIC program wouldn't necessarily need all that 
memory, would you? Well, the fact is that Level II BASIC 
always keeps an electronic scratchpad just below that 
Memory Size boundary. We've got to prevent BASIC from us- 
ing our machine language program as its scratchpad! 

Once space has been set aside in high memory, a FOR- 
NEXT loop can be created which POKEs the machine 
language program (READ from the lines of DATA statements) 
into that reserved block of memory. When the work of POKE- 
ing the data is finished, the machine language program is 
ready to be used; from then on it will be unaffected by any 
BASIC command because we have protected it. RUN, CLEAR, 
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NEW, and all the rest leave it untouched. 

Consequently, DELETE also leaves the machine language 
program untouched. Once the work of the FOR-NEXT, READ, 
DATA and POKE lines has been completed, they are no longer 
necessary. They may be removed from the program (they need 
not be, but a long BASIC program might need the space when 
it executes). 

On to your last question: how is a machine language pro- 
gram converted to BASIC statements, and how do you use it? 
The process is not complicated, but you can run into trouble. 
First of all, it's best to try to convert only those programs 
which are intended to work with BASIC, but for which the 
author has neglected to provide a BASIC version. 

Next you must determine three things: where the program 
starts, where the program ends, and where it is entered. The 
starting point is usually marked ORG (origin) in an assembly 
language program. In a hex dump, it is the address presented 
at the upper left in the block of hex numbers. 

Finding the ending point can be a bit tricky. In an assembly 
language listing, the last address presented is the location of 
the start of the final machine language instruction. . . which 
may or may not be the last byte of the program. Since that 
final instruction might be one, two, three, or four bytes long, 
look at the listing carefully. 

The start and end points thus represent the two bounds of 
your BASIC FOR-NEXT loop. Naturally, you will have to con- 
vert the boundary information to decimal; check back issues 
of 80 Microcomputing to learn how to accomplish this task. 
The machine language program you will be converting is then 
found either in the block-memory dump or the second column 
of the assembly listing. Each of the two-character hex bytes 
must be converted to decimal; these become the long list of 
DATA statements that are POKEd into place in the above 
FOR-NEXT loop. 

Finally, the entry address must be found and put into place. 
The entry point is usually described in a program's accom- 
panying text, or will be notated as an END statement in an as- 
sembly listing. An address is two bytes long, so it can't be 
squeezed into a single POKE. Instead, the address is split into 
two halves, and each of those converted to decimal. For ex- 
ample: 

7F00 is split into 7F 00 

7F and 00 are converted to decimal 127 and 

These values are POKEd into the USR entry locations, 
16527 and 16526. The high byte(7F or 127 in this case) goes in- 
to 16527, and the low byte into 16526. Whenever a statement 
containing USR is executed (M% = USR(0)) or PRINTUSR(5), 
for example), the BASIC program jumps to the machine lan- 
guage program. If the program has been well written, it will 
automatically come back to BASIC when it is finished. 

George, there are many ways of making machine language 
programs work with BASIC. Some use fancy tricks, but this is 
the most direct. Good luck. ■ 



Address your questions about the TRS-80 to Dennis Kitsz, 
Roxbury, Vermont 05669. 
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(800) 824-7888 

ASK FOR OPERATOR 203 

California (800) 852-7777 

Hawaii & Alaska (800) 824-7919 

For more information call (214) 233-3998 

(Requires min 32K single disk drive) 

FOR THE MODEL I & III 

SPECIAL DELIVERY $125 

XTRA SPECIAL DELIVERY ..$199 

FOR THE MODEL II 
SPECIAL DELIVERY $199 

(Requires Mod II DOS version 2.0) 

TRS-80 is d reqislered Irailemark ol Tandy Corp. 



software concepts 

13534 Preston Rd. Suite 142 
Dallas, Texas 75240 

Visit us at the San Francisco Computer Faire April 3-5 
Dealer Inquiries invited ^299 



-See List of Advertisers on page 306 
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SO NEWS 

^^ ^^ edited by Bert Latamore 



"Three major files of the 

Dow Jones Information 

service have been reformatted 

for compatibility with all TRSSOs." 



Dow Jones Offers Videotex Tie-In 



Up to the second business news and 
continuously updated stock quotes 
can now come directly from Dow Jones to 
you through your TRS-80 or Videotex. 

Under an agreement with Tandy, the na- 
tion's largest publisher of business news 
is making three data bases of its electron- 
ic news service, the Dow Jones Informa- 
tion Service, available for all models of the 
TRS-80, including the new color computer 
and the Videotex monitor. 

For Dow this represents a major step in 
making the Dow Jones Information Ser- 
vice, originally designed for brokers, se- 
curities analists and others in the finan- 
cial field, available to the general public. 

For Tandy it is a second major step in a 
move to make the TRS-80 a major source 
of news and information, a process which 
saw its first success in the introduction of 
the CompuServe service to the TRS-80. 

Dow is so confident it is making avail- 
able a free hour to all present owners and 
purchasers of Videotex. 

Direct Pipeline 

Dow has reason for its confidence. The 
package gives what is in many ways an in- 



vestor's and businessman's dream, a 
pipeline directly into the heart of Dow 
Jones, publishers of The Wall Street Jour- 
nal and Barron's National Business and 
Financial Weekly. 

Three major files of the Dow Jones In- 
formation Service have been reformatted 
for compatibility withal I TRS-80s. The first 
contains most items on the Dow Jones 
News Service, the nation's largest busi- 
ness news wire service, from 90 seconds 
ago to 90 days ago. 

The second is a constantly updated list- 
ing of stock quotes for more than 6,000 
businesses from the New York, American, 
Midwest and Pacific stock exchanges and 
the NASDAQ over-the-counter market. 

The third is a file of detailed financial 
statistics on the 3,200 companies. 

All these are arranged for access by 
company or by 60 subjects areas so you 
can see what is happening with any par- 
ticular firm or get a view of overall activity 
in a particular market. 

News stories hit the electronic news 
service 90 seconds after they go over the 
Dow wire, according to Tim L Turner, di- 
rector of marketing information services 
for Dow. 



Journal Not Going Electronic 

The publishers of the prestigious business press, The Wall Street Journal and 
Barron's among others have joined a growing number of newpapers entering 
electronic publishing. 

Dow Jones Spokesman Tim L Turner said Dow's recent agreement with Tandy 
Corporation which puts the Dow Jones Information Service on Videotex is a move 
to make the service more available to the general investing public. 

This public will be able to read many Wall Street Journal stories over their 
TRS-80s before The Journal, itself, can print them. 

However, Turner said Dow Jones does not expect this to have a major impact 
on The Journal's circulation. He said Dow has no plans to turn The Wall Street 
Journal into an electronic newspaper. 

Rather, he said, the two news services are seen as serving different, although 
complementary, needs. 

"People use the electronic service and still like to read The Journal," he said. ■ 



For instance, Turner said, two minutes 
after the story on the Dow-Tandy agree- 
ment was announced over the Dow Jones 
wire he read the story off his computer ter- 
minal. 

That day Tandy stock rose several 
points, a clear demonstrations of just how 
sensitive today's market is to such news. 

Because of the speed of the service, a 
TRS-80/Videotex user is essentially read- 
ing over the shoulders of the reporters and 
editors of the Wall Street Journal as they 
write tomorrow's front page. 

The news wire maintains a record of 
stories for 90 days, so you don't read a 
story in a vacuum. Instead, you can review 
what has happened to this company and 
its industry by summoning a menu of 
headlines by firm or subject area and 
scanning them to find stories that relate 
to your present interest. 

The stock quotation files are delayed 15 
minutes because of rules imposed by the 
stock exchanges. The 80/Videotex user 
can get these by company or subject area 
and can specify from which exchange he 
wants the quote. 

He can also get the full financial picture 
of any of 3,200 firms in the Dow list. This 
file is updated weekly. 

Early Electronic Publishers 

Turner said Dow started electronic pub- 
lishing in 1974 as a service for profession- 
als in the investment field. 

In 1977 they started a time-sharing ser- 
vice on a dial-up basis, but it wasn't until 
1978 that they tried marketing it to the 
general public through the Apple micro- 
computer. 

By means of the agreement with Tandy, 
which, sells more than 50 percent of the 
total microcomputers sold in the United 
States and Canada, Dow is trying to reach 
a much larger market with services that 
have proven to be popular, Turner said. 

Tandy spokesman John Shirley, on the 
other hand, said Tandy's interest in the 
non-exclusive agreement is to make a new 
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and unique information service available 
to owners of TRS-80s. 

Tandy-Radio Shack is basically a hard- 
ware producer in this area, he said. The 
firm hopes to promote its microcomput- 
ers and Videotex terminals by making 
their service more valuable. 

Turner said the Videotex version of the 
Dow service is intended mostly for the 
small businessman who uses a micro- 
computer and for the individual investor. 

He said in many cases the costs in- 
volved are tax deductable, and he said 
that the service is low cost. 

The Dow service is compatible with the 
Videotex without any change in hardware. 
The major change to the three databases 
involved fitting them to the 32 characters 
across format on the Color Computer. 



v y\ TRSWA/ideotex 

use is essentially 

reading over the 

shoulders of the 

reporters . . . of the 

Wall Street Journal." 



Instructions and Costs 

All the investor needs is the instruction 
books and his password. The books and a 
special password good for an evening 
hour's free time on the service are being 
included in the $29 Videotex package. 
Passwords and instructions are to be 
made available to those already owning 
Videotex at no cost. 

To use the system, you simply call your 
nearest Tymnet telephone number. Sever- 
al pages of these numbers, covering cities 
across the US and Canada ranging from 
Los Angeles to Moose Jaw, Saskatche- 
wan, are listed in the Dow instructions. 
For most users the wire service is a local 
call. 

You identify yourself, your equipment 
and the information you want by a series 
of codes detailed in the instructions and 
by a password. 

The instructions contain all the codes 
you need including more than 100 pages 
of codes for individual firms, mutual 
funds, private and government bonds and 
foreign bonds. 

The service is being offered to the gener- 
al public at a different rate than that given 



to major investment firms. The $2.50 mini- 
mum charge those firms must pay has al- 
so been dropped. 

The cost of the service depends on the 
database used and the time of day. Costs 
for non-prime time use, after 8 pm local 
time at the locale of the user, is much 
lower than prime time use except for the 
statistical and financial information, 
which costs a dollar a minute at all times. 

The news service costs a dollar a min- 
ute during prime time and 20 cents a min- 
ute after 8 pm. Stock quotations cost 75 
cents a minute during prime time and 15 
cents at night. The cost of the Tymnet 
telephone system is included in these 
charges. 

There is no start-up charge or minimum 
charge imposed, Turner said. 

The service is available on weekdays 
from 6 am to 3 am EST daily. On holidays 
and weekends, which count as non-prime 
time all day, the system operates from 7 
am to 3 pm EST, Turner said. 

Dow does not charge extra for the priv- 
ilege of making private copies of any infor- 
mation available in the databases, so you 
can store or print anything that interests 
you. 

Turner said the costs, which may ap- 
pear high at first glance, are actually very 
reasonable for the kind of service Dow is 
offering when compared to other electron- 
ic news services such as CompuServe or 
The Source. 

This, he said, is because these other 
services are not designed to give you in- 
formation by company or by stock or by 



business subject. To get such information 
from these sources you have to spend a 
great deal of time searching for it, and 
since the cost of the information is your 
search time, times the rate per minute, the 
charges increase. 

Even at that, some of the information, 
such as the most recent market quotes, 
may not be available from the other ser- 
vices at all, he said. 



"As you read this, 

someone may well be 

checking his stock 

portfolio from his study or 

office over his TRS-80. " 



As of press time the service was nearly 
ready for release to the general public. 
The only holdup seemed to be final print- 
ing of the special users guide for owners 
ofTRS-80s and distribution of the guideto 
Radio Shack stores. 

Officially both firms have promised the 
service to be available sometime in the 
"second quarter." Turner said he expect- 
ed it to be available this month. So, as you 
read this, someone may well be checking 
his stock portfolio from his study or office 
over his TRS-80. ■ 

Bert Latamore 
80 Staff 



Coleco Patents Football Game, 
Seeks Court Block against Tandy 



Coleco Industries, Hartford, CT, re- 
cently granted a patent on their hand- 
held version of electronic football, is now 
instigating suits for infringement against 
Tandy-Radio Shack Corporation, Fort 
Worth, TX; Mattel, Inc., New York, NY; and 
several other electronic game manufac- 
turers and distributors. 

Coleco's attorney, Michael Schwefel, 
said the suit is a straightforward action 
and does not set a precedent in the area of 
protecting software. He said the Coleco 
patent is for a physical device, not for a 
program. 

Coleco is seeking an order stopping the 
game companies from what it says is an 
infringement of its patent and is seeking 
monetary damages based on a percent- 
age of the total sales of football games by 
each offending firm. He said he did not 



know the exact amount sought against 
Tandy-Radio Shack. 

Coleco maintains that aspects of its 
game allowing passing and blocking and 
allowing two people to play it interactively 
are being infringed on by other products in 
the field. 

Schwefel said, however, that Coleco's 
patent does not prevent other firms from 
producing electronic football games. 

This is not the first patent for an elec- 
tronic game to be granted, Schwefel said. 
In fact Coleco is suing Mattel over a previ- 
ous patent Mattel holds, arguing that that 
patent is invalid. 

Attorney Gary Pat of Tandy's legal of- 
fice declined to comment of the suit be- 
yond acknowledging that Tandy-Radio 
Shack was named as a defendant. ■ 
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Students to Work for Computer 



Elementary school children across the 
country will have the opportunity to 
do something to improve their own educa- 
tional opportunities this fall thanks to a 
link-up between Tandy Corp. and the QSP 
division of Readers Digest. 

Under the new agreement children will 
sell magazine subscriptions to their par- 
ents to earn credits their school can use 
to buy TRS-80 hard and software. 



7/ / could dream up 12 

good programs like this 

today, we'd put them 

into effect tonight." 



QSP, Inc., Vice President William E. 
Drake emphasized that children would not 
be selling door-to-door and that the list of 
more than 300 magazines QSP offered 
would all be in "good taste." 

"We aren't selling Playboy or Hustler," 
he said. 

The sales effort will be sponsored local- 
ly by PTAs or similar groups, Drake said. 
The school systems who go for the pro- 
gram will distribute QSP literature and 
subscription forms to the students' 
homes through the children. 



Credits for Hardware 

QSP would return 50 percent of the 
gross magazine sales to the schools in 
the form of credits which could be used to 
buy any TRS-80 hardware or educational 
software at a discount. 

"Basically, we're hoping the parents 
will buy their magazines through us in- 
stead of from someone else," Drake said. 

Charles Phillips, vice president for spe- 
cial markets forTandy, called the program 
"a dynamite idea. 

"These people (QSP) have been in the 
business a long time, and they recognize 
the interest schools have in computers 
and the funding problems many schools 
have," he said. 

Phillips said the program was not tar- 
geted at any particular portion of the edu- 
cational market but was "another way for 
schools to get computers." 

He said he hears daily from school sys- 
tems who are interested in putting 
TRS-80s in their classrooms but lack the 
necessary funds. 

"The schools are hard pressed," he 
said. "We have no way to help them find 
funds." 

Drake said this was a general market- 
ing program not connected to Tandy's ed- 
ucational department. 

"We're always open to marketing op- 
portunities," he said. "If I could dream up 
12 good programs like this today, we'd put 
them into effect tonight." 



Tandy Sues Personal Micro, 
Alleges Patent Infringements 



Tandy-Radio Shack Corporation, Fort 
Worth, TX, is suing a rival microcom- 
puter hardware distributor for patent in- 
fringement. 

The suit, against Personal Microcom- 
puters of Mountain View, CA., and five 
manufacturing and distributing firms, 
alleges the input/output programming of 
the PMC-80 microcomputer is copied from 
the TRS-80 and that the PMC name is con- 
fusingly similar to the TRS-80 registered 
trademark owned by Tandy. 

Tandy is asking for unspecified dam- 
ages and permanent injunctions against 
Personal Microcomputers, Eaca Electron- 
ics Corp. of America, Compumart, Con- 
sumer Computers Mailorder and Robitaille 



& Sons Enterprises, Inc. (The Software Ex- 
change), and the Hong Kong based Eaca 
International Ltd., apparently the manu- 
facturer of the product. 

The PMC-80 is also being sold in 
Europe, and Australia under the names 
Video Genie and TRZ-80. 

The PMC-80 is fully compatible with vir- 
tually all software designed for the 
TRS-80. 

Officials for both Tandy and Personal 
Microcomputers declined to comment on 
the suit, which is entered in U.S. District 
Court in San Francisco, CA, although the 
spokeswoman for Personal Microcom- 
puters said a statement might be released 
soon. ■ 



Phillips said Radio Shack was giving 
the program "a standard volume dis- 
count" on products, but declined to give 
specific figures. They were determined in 
an agreement signed between Tandy and 
QSP. 

Drake, however, indicated the dis- 
counts were substantial. Asked how many 
magazine sales a school would need to 
earn one computer, he said it would take 
about $1,200 in gross sales or about 120 
subscriptions. 

This would price the computer at about 
$480 in sales credits. 



"Basically, we're 

hoping the parents 

will buy . . , from us.' 



Pilot Program 

Drake said a pilot program was starting 
now in the midwest but that the "big roll 
out won't be until next fall." 

QSP is the largest fund raising maga- 
zine subscription sales organization in the 
country and often works with middle 
school and high school students earning 
funds for class trips and other projects 
through magazine sales. 

Both Drake and Phillips said the QSP 
agreement does not involve any other divi- 
sion of Readers Digest, and both specifi- 
cally denied any involvement between 
Tandy and "The Source," A Readers Di- 
gest division that distributes information 
via a computer network to microcomput- 
ers. 

However, Phillips said the present 
agreement came out of a meeting be- 
tween himself and representatives of 
eight Readers Digest Divisions. 

"They have a big educational depart- 
ment, also, which was our main interest in 
that meeting, I think," he said. 

Readers Digest also has been involved 
heavily in market research for a variety of 
corporations for many years and has 
maintained a large installation of main- 
frame computers for this and other busi- 
ness and financial research for more than 
a decade. ■ 

by Bert Latamore 
80 Staff 
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Mini-Disk Storage Systems for TRS-80* Computers 





Offers More. 
Charges less. 




Check this line-by-line com- 
parison of Access 5-inch 
mini-disk systems for Mod- 
el I and Model III computers. 
Nobody offers more ben- 
efits, better service or lower 
prices. 



TOLL-FREE ORDER NO. 
1-800-527-4196t 

(orders and literature only) 





1 


1 


Formatted Diskette 










Company Drive Model 


Price 
1 


Flippy 


Storage 


Capacity 


100% 

Tested 


48 hr. 
Burn-In 


Warranty 


Trial 
Period 


Dbl-Density 


Sgl-Density 


40-TRACK DRIVES 


















Access Unlimited 
AFD- 100' 
AID-100F 1 


$295.00 
329 00 


'10 

yes 


180 Kbytes 
360 Kbytes 


102 Kbytes 
204 Kbytes 


yes 
yes 


yes 
yes 


yes 
yes 


yes 
yes 


MTI 
Tl- 5 


3&9 00 


no 


? 


? 


? 


? 


? 


no 


Midwest Comp. & Per. 
MPI/B-51 


321.00 


no 


7 


1 02 Kbytes 


? 


? 


yes 


no 


Aerocomp 
Mdl 40-1 


349.95 


yes 


? 


■> 


yes 


? 


yes 


yes 


CPU Shop 

CCI-100 


314.00 


no 


? 


102 Kbytes 


? 


? 


yes 


no 


AMI 

40-track 


325 00 


no 


? 


? 


? 


9 


? 


no 


80-TRACK DRIVES 


















Access Unlimited 
At D-200 : 
AFD200F' 


429 95 
449.95 


no 
yes 


368 Kbytes 
736 Kbytes 


205 Kbytes 
410 Kbytes 


yes 
yes 


yes 
yes 


yes 
yes 


yes 
yes 


MTI 
T-8 


639 00 


no 


? 


200 Kbytes 


? 


9 


? 


no 


Aerocomp 
80-tk mdl 


459.95 


yes 


9 


? 


yes 


9 


yes 


yes 


CPU Shop 
CCI-280 


429 00 


no 


? 


204 Koytes 


? 


9 


yes 


no 


AMI 

80-liack 


560 00 


no 


■> 


' 


| ' 


9 


7 


no 
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Free trial offer 

Use your brand new AFD drive system for up to 15 days. If you're not 
completely satisfied, pack it in the original shipping container and send it 
back to Access. We'll refund the price of the system (less shipping 
charges), no questions asked. (No refund for misuse or improper 
handling.) 

Operating burn-in test — too 

Every drive that leaves Access is not only 100% electrically tested and 
double-checked for mechanical alignment, but it is also given a full 48- 
hour operating burn-in test. You'll find a test list - checked and signed by 



one of our competent technicians — in the drive carton. If a drive has latent 
defects, the burn-in life test will weed them out The drives we ship just 
keep on running. And running. And running. 

About our warranty 

Venus de Milo has about the right number of fingers to count our warranty 
returns. Nevertheless, /our new drive system is covered by our compre- 
hensive 90-day limited warranty. The details are spelled out in the illus- 
trated users manual included with each AFD drive system. 



Software galore! 

Games. Business programs. System software. We sell many of 
the best TRS-80* Model I and Model III programs, ana at com- 
petitive prices. Make Access Unlimited your one-stop shopping 
center for all of your TRS-80* software, hardware and accesso- 
ries. Save big! Call our toll-free order number, 1-800-527-4196t 
for free descriptive literature. 



USE YOUR CREDIT CARD AND SAVE! VISA AND 

► MASTER CARD CHARGES ARE NOT DEPOSITED UN-^ 
TIL THE DAY YOUR ORDER IS SHIPPED. CALL NOVV^ 



TOLL-FREE, 1 -800-527-41 96f- 



the DOUBLER™ 

Percom's new plug-in adapter for your Expansion 
Interface stores almost twice the data on a diskette 
track as a single-density system. You can store up to 
four times more data depending on the type of 
drive — on one side of a diskette than you can store 
using a standard Model I mini-disk drive. Other 
features: Reads, writes and formats either single or 
double density minidiskettes. • Runs TRSDOS*, 
NEWDOS+* Percom OS-80™ or other single-density software without 
changing either software or hardware. Switch to double-density when 
convenient. • Includes DBLDOS™, a TRSDOS* compatible double- 
density operating system. • Includes on card, high-performance data 
separator circuit. • Installs without rewiring or trace cutting • Introductory 
price, including DBLDOS and format conversion utility, only $219.95. 
^ Permits Model III software to be read on Model I computers. ^ 




DATA SEPARATOR™ 

This PC board plug-in adapter for the TRS- 
80* virtually eliminates data read errors 
(CRC error — Track locked out!) which 
occur on high-density inner disk tracks, a | 
problem that has plagued TRS-80* sys- 
tems. The Percom Data Separator 1 '"' is in- 
stalled in the Expansion Interface without modifying the host 
system. Caution: Opening the TRS-80* Expansion Interface may 
void the limited 90-day warranty: $29.95. 




Disk System Interconnecting Cables 

Improvement over RS cable design places drive 0, which includes the 
cable termination, at the end of the cable to eliminate the reflected noise 
of an unterminated cable. Better data integrity. Prices: 

Two-Drive Cable $24.95 

Four-Drive Cable 34.95 

Power Line Filter 

115/250 V. 50-400 Hz Instructions included for easy installation in stan- 
dard mini-box chassis: $19,95 
Minidiskettes (Double-Density rated) 

10 Disks in a convenient plastic organizer box $34.90 

Single Disk • 3.49 

Disk Drive ID Tabs 

1" x 1 Va" self-adhering plastic drive identification tabs. Compatible silver 
with engraved black drive number Two tabs (Nos 0, 1 ): $2.50; three tabs 
(Nos. 0.1.2): $3.25, four tabs (0.1.2, 3): $4 50. 



How to Order Order by calling Access Unlimited toll-free on 1 -800-527-41 96t 

Mail orders also accepted. Orders may be charged to a VISA or MasterCard account or pa.d by a 
cashier's checK. certified check or money order. We accept COD orders with 25% deposit. Sorry, 
we cannot accept personal checks We pay shipping and insurance charges on orders over 
$1,000.00. Add approximate insurance and shipping charges for under $1,000.00. If in doubt 
about these charges, ask when you call in your order. Texas residents include 5% sales tax 
Minimum order $20.00 Allow 2 to 4 weeks for delivery. ffexas residents call (214) 494-0206. 



ACCESS UNLIMITED 



• 229 



315 N. Shiloh ■ Ste..D1 ■ Garland, TX 75042 

(214) 494-0206 



T trademark of Access Unlimited Company. -RADIO SHACK and I RS-80 are trademarks of Tandy Corporation. ™trademark of Percom Data Company. Inc. trademark of Apparat Corporation. 
ALL PRICES AND SPECIFICATIONS SUBJECT TO CHANGE AND ALL OFFERS SUBJECT TO WITHDRAWAL WITHOUT NOTICE. 



Author to Make New Microcomputer 



In a change-of-state typical of today's 
micro industry entrepreneur, author/pub- 
lisher Adam Osborne has become a com- 
puter hardware manufacturer. His meta- 
morphosis has resulted in the Osborne 
Computer Corporation, headquartered in 
Hayward, CA. 

Osborne will manufacture a portable, 
Z-80A based microcomputer called, pre- 
dictably, the Osborne 1. The unit will sell 
for approximately $1600. 

This single board midget micro con- 
forms to airline carry-on baggage require- 
ments and weighs only 28 pounds, includ- 
ing monitor. It offers a fast Z-80A proces- 
sor from Zilog, 60K bytes of usable RAM, 
both IEEE-488 and RS-232 interfaces, 
modem electronics and a CP/M operating 
system. Two single density, 5 1 /4-inch on- 
board drives are standard and double den- 
sity drives usable with double sided disks 
optional. 

A five-inch monitor with a 24-line by 
50-character display format is also stan- 
dard. A nine-inch monitor is optional. The 
character set of the Osborne 1 supports 
both upper and lower case as well as char- 
acter underlining. The video display uses 
4K bytes of RAM. 

Author Osborn has not ventured into 
hardware manufacturing totally on his 
own. His corporate board of directors is 
made up of industry veterans, who have 
bought into the action. They include: Jack 
Melchor, a venture capitalist; Gary Kin- 



dall, designer of CP/M; Gordon Eubanks, 
designer of CBASIC; and Seymore Ruben- 
stein, designer of Wordstar. 

It is no coincidence that the above prod- 
ucts are included in the Osborn 1 pack- 
age. At the time of purchase the machine 
is supplied with a CP/M operating system, 
CBASIC, a Wordstar word processing pro- 
gram and two business programs, Mail 
Merge and a spread sheet program similar 
to Visicalc. 

No In-House Programming 

At present, software support for the 
Osborne 1 is limited to the programs sup- 
plied. Osborne Computer has no in-house 
programming staff and no plans to create 
one. Additional software support is ex- 
pected from outside vendors who will be 
encouraged to write for the Osborne 1 sys- 
tem by an incentive program, the details 
of which were not available at press time. 

In an interview with 80 Microcomputing, 
Barbara Burdick, a marketing representa- 
tive for Osborne Computer, indicated that 
several authors were already in touch with 
the company in hopes of writing software 
for the machine. In her opinion there will 
soon be no shortage of software. 

Burdick was reluctant to comment on 
other aspects of the operation, however. 
When asked about the physical plant, she 
would say only that the final assembly is 
performed at the Hayward facility. Com- 
ponent level construction and chassis wir- 



ing may take place elsewhere, possibly 
the far east. When asked how many em- 
ployees the facility had, she offered, "no 
comment," as she did when queried about 
the projected first year production run. 
She did say that McGraw-Hill, owners of 
Osborne's publishing operation, was not 
involved in the hardware venture. 

The Osborne 1 will be required to meet 
the new RFI specifications the Federal 
Communication Commission has adopt- 
ed for all microcomputing devices. Since 
it is being marketed for business environ- 
ments, however, it will fall under class A 
limits for power-line conducted and radi- 
ated emissions. Certification is expected 
by mid-April. 

While not an immediate threat to 
Radio Shack, the Osborne 1 microcom- 
puter will have a measurable impact on 
the Shack's market. It is a carefully 
thought out machine that brings a level 
of sophistication to the micro market- 
place that is unavailable from other man- 
ufacturers in the under $2000 price 
range. 

But will the software, essential to its 
success be written in time to ensure the 
survival of the Osborne 1, or, like the 
Onyx, Sharp and Texas Instruments ma- 
chines, will it fall victim to software star- 
vation? 

by Chris Brown 
80 Staff 




HOMES for TRS-80 

(Cuifom furnilura f« MODELS I, II. and III) 






Homes for TRS-80, is the unique custom 
furniture line that converts the Radio Shack 
modular computer system into one homo- 
genious unit. Available in a high quality, com- 
mercial and economy series, the basic custom 
corner desk consoles provide total built-in 
capabilities for the TRS-80 keyboard, inter- 
face, monitor, and cassette. Options are 
available for building in accessories such as: 
Stringy Floppy's, Disk Drives, Screen Prin- 
ters, and Line Printers. 



FEATURES 

One Homogeneous Unit 
Built-in Accessories 
Arm Rest Cushion 
Copy Shelf 
Typewriter Height 



i\/£2 AUDIO- VIDEO 

wfW m3 *«* SYSTEMS 

2485 Aufumnval* Dr. Son Jos* , CA. 95132 




ContoUt Irom* r2B.«, Standi iromtOO.OO 



FOR 24 HOUR INFORMATION 

PHONE 408-946-1265 




68 • 80 Microcomputing, May 1981 




SOFT SECTOR MARKETING, ^495 

INCO RPORATED 

& Victor Andrews 

present 

Quality Products That Will 
Make A Believer Out Of You! 





PMC-80/ 
MODEL I 



W 



MISSILE ATTACK 

By the Cornsoft Group. New for the PMC-80. 
This program is a machine language imita- 
tion of the arcade game called Missile Com- 
mand. This real-time machine language game 
(with sound effects) pits your twin silos of 
ABM's against a barrage of enemy missiles 
trying to destroy your cities. As your skill 
increases so does the difficulty of this ever 
popular arcade game! Watch the skies and 
may your aim be true. TRS or PMC-80, 

cassette, 16K $14.95 

TRS, disk, 32K $20.95 

TAPE COPY 1 

®1981 S.S.M., Inc. New for the PMC-80. 
This program solves the problems that have 
plagued all PMC-80 owners. Problem: A 
machine language program will not load in 
the cassette player provided in the machine 
and you can't load a machine language pro- 
gram on the second cassette port. This is a 
problem no more!: This program will load a 
machine language program from the second 
cassette player and saves it to the built-in 
cassette player. Loads and saves most TRS- 
80 readable tapes that load at 500 baud (the 
standard speed). MOD I or PMC-80. 
Cassette only $14.95 

CONQUEST 

®1981 by Lake Front Software. This program 
is based on the popular board game called 
"Risk" (The names have been changed to 
protect the innocent.) This game is for one or 
more people. It is a game that demands 
attack strategy and, if yours is the best, you 
will be the 'Lord and Master' of the planet. 
MOD I, III or PMC-80. Requires 16 K 
memory, cassette $14.95 

FLIPPY ■ Ver. 1.3 

®1981 by J. Limkemann. This is a machine 
language program that plays "the best game 
of Othello on the TRS-80 that I have seen, 
and I play a lot of Othello" (Victor Andrews) 
MOD I or III. Requires 16K memory. 
Cassette $14.95 



COLOR 



w 



ANIMATED HANGMAN 

Color. ®1981 S.S.M., Inc. This outstanding 
new program will thrill you for hours. He 
moves, groans and makes sounds. 16K. 
$12.95 

DISASSEMBLER 

Color. ®1981 S.S.M., Inc. This program dis- 
plays hex on left side of screen and ASCII on 
right side of screen. For screen or printer. 
16K $14.95 



J r ust because I can sell 
something is not a 
reason for a product to 
appear in my ad; I must 
believe in it myself. 

The following pages 
contain new items that I 
believe in. I am not after 
only one sale; I want return 
business, and that means I 
must give you quality 
products every time. 

I believe I sell only quality 
products. If you have a 
problem, send your 
comments addressed to me. 
We support every product 
we sell 

Victor Andrews 




MODEL III/ 
BOOK 



i 



MOD III ROM COMMENTED 

For the programmer that needs those answers 
about the MOD III ROM . . . Now! This is a 
complete list of locations in MOD III ROM 
and comments on each. All 14K of the ROM. 
There is no other book that gives you the 
detail this book has. Don't miss it. In order to 
respect Tandy's copyright the actual disas- 
sembled code is not printed, but the book is 
in a 3 ring binder format so you can put your 
own listing in between the pages for easy 
reading. 
only $22.50 



MODEL III 




TAPE COPY 2 

New for the TRS MOD III. This program will 
load most TRS-80, 500 baud system tapes 
(standard MOD I speed) into memory then 
save it at 1500 baud on the MOD IDL No 
knowledge of machine language needed. Now 
a way to backup programs that load at the 
slower speed. Makes cassette loading on your 
new MOD III a much faster and more reliable 
process. MOD III only, cassette $14.95 




MODEL I 




TRS SUPER INVADERS 

198O S.S.M., Inc. The closest TRS version 
of "Space Invaders" arcade game. MOD I 
with mono sound, 

Cassette $19.95 

MOD I with stereo sound, disk only $24.95 

HYRES 

®1981 by D. Lewandowski. This is a patch 
program for the programs called: Invaders 
Plus and TRS Super Invaders; so they can be 
run on the Programma Graphix-80 board. 
MOD I, cassette programs only .... $9.95 



CHAIN MAKER 

® 1981 Steve Skindell. This program makes 
writing chain files on NEWDOS-80 a breeze. 
This is not only a program that creates chain 
files but it also is an editor of the file. A file 
can be removed from the disk and edited and 
saved back to the disk quick and easy. An 
outstanding program and a must for every 
NEWDOS-80 owner. Comes with complete 
easy to read manual. Purchaser must own 
NEWDOS-80 $14.95 

BUG + 

Written by J. Limkemann. ®1 98 1 S.S.M., Inc. 
Bug + is a powerful machine language monitor. 
The one point most improved over other 
monitors, is the tape write. Bug + has the 
ability to write a "clean" tape (at 500 baud) 
this tape will read into the TRS-80 under the 
system command, without the problems pre- 
viously associated with the volume setting. 
Regardless what version basic you have or 
whether or not you have a Radio Shack 
cassette fix, this monitor will improve the 
reliability of your cassette by 100%. There is 
also a verify command that works the same as 
also a verify command. 
Finally a break point that works! When a 
break point is reached, there is a blinking 
astrick in the bottom right hand corner, you 
are able to see what is on the screen before 
the monitor takes control. Press the enter key 
the screen clears and the monitor comes to 
life. When you continue from a break point, 
the monitor will restore the screen first then 
load the CPU registers and return to your 
program. You do not lose your program or 
display, and it does work! 
Bug + also has all the commands of T-Bug, 
they just work better. Bug + loads into low 
memory, then relocates itself. 
Model I version plus it gives you the ability of 
reading or writing 1500 baud or 500 baud or 
500 baud tapes, you can read at on rate and 
write at another. MOD I or III. 4K. both on 
same tape $ 14.95 



See last page of ad for ordering information. 
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POSTMAN DATA HANDLER 

By Alger Software. ®1980 S.S.M., Inc. A 
machine language mailing list program that 
will do the following: 



- 650 labels on a 35 track disk drive 

- 750 labels on a 40 track disk drive 

- 1534 labels on an 80 track disk drive 

- 10 fields (2 user defined) 

- Fast sorts (500 records in 30 seconds) 

- Written for (1) drive system (capacities 
shown are for a single drive system) 

- Most any label stock that is one up can be 

used (you save no money buying labels that 
are more than one up anyway) 

- Print one label at a time or a sequence of 

labels 

- Purge duplicates with or without user as- 

sistance 

- 9 digit zip code 



- Super fast search on any field - 3 second 

average 

- Easy screen editing 

Now Postman Data Handler has been upgrad- 
ed with many new features. Now this very 
popular mailing package is not just the best 
way for most people and small businesses to 
do their mailing lists, but now we give you a 
way to uncramp, convert and formletter your 
mailing list. You need this package if one of 
the following is true: If your mailing package 
is memory dependent. This means that you 
must have more memory to handle more 
names in your machine; If you need a way to 
get rid of duplicate names in your mailing list; 
If you want to sort on more than just name or 
zip. (our package can sort on any or all 10 
fields at once.); If you are waiting more than 
one minute for your sort to finish, (our pack- 
age is in machine language so it runs very 
fast); If your present program will not handle 



the 9 digit zip code; If your program doesn't 
have full screen editing. This package is a 
machine language program, this is the reason 
for the super fast speed of all functions! 
This is a random access disk based program 
and any name can be called to read, write, 
print or update in 3 seconds or less. Now 
along with it you get utilities that permit you 
to do the following: CONVERT 1; takes all 
the files from your old mailing list and con- 
verts them to our system. (Why should you 
change to our system if we made the change 
hard?) CONVERT 2; convert from our pack- 
age back to ASCII files if you want to do 
something with them (like send them to 
another computer over the phone). MOD I 
(coming soon for the MOD III). This program 
runs on all quality operating systems. Requi- 
res 1 disk drive ad 32K memory. 

only $125.00 

Coming soon - MOD ZZ7 version 



MAILING LABLES 5000 $14.95 

Plus $2.00 shipping 



1 



POSTWRITER 

®1981 S.S.M., Inc. Now there is, at extra cost, 
a formletter package that permits inserting 
any of the 10 fields of information from 
"Postman Data Handler" into any part of a 
letter, (yes even in the body of the letter), and 
right and left justify the letter. This program 
is made to be used only with the Postman 
program and one of the following word proces- 
sing packages: Lazy Writer or Electric Pencil. 
$49.95 



MINI POSTMAN 

Sample Package. For you people who have a 
small mailing list (max. 26 names! and/or you 
can't believe that Postman is the best package 
and we must be overstating how well this 
program runs; try our sample package called 
Mini Postman. It comes as an up and running 
program and shows you how good our package 
really is. This package can be upgraded to the 
full package within 30 days of purchase by 
calling and saying "I want the full package", 
and paying the difference between the mini 
and the full package. Note: Mini Postman 
does not include the convert utilities. If not 
everything you expect, return sample disk for 
full refund (less shipping). You can't lose. 
$25.00 




i 



If you purchase both Postman and Lazy 
Writer at the same time, at list price, (or if you 
already own one of the packages above and 
now want to purchase the other), we will at no 
extra cost include the Postwriter package 
FREE. There are 2 ways to purchase this 
package. The first way is to say "I want the 
best package on the market so send me the 
full system at one time". This includes the 
Postman Data Handler, Conveit 1 and Con- 
vert 2. The package works on all quality 
operating systems based on the Tandy disk 
format (TRSDOS, VTOS, NE WDOS, NEW- 
DOS-80, etc.) 



$250.00 



This price is only good till June 1, 1981. 
Save $49.95 

If purchased separately $299.95 



GRAPHX 

By Steve Skindell. ® 1 98 1. This is a program 
that is for the person who does reports or 
requires some sort of plotted output to show 
gains or losses, or any type of output that 
needs graphs. This program puts to the 
screen or to a printer the plotted points in bar 
graph format and plots the mean, and aver- 
ages of input. This is a very important pro- 
gram for accountants, CPA's and the average 
businessman to evaluate, at a moments glance 
where he is, was, or where he is going. Files 
saved to disk can be recalled at any time to be 
reexamined, modified, or just reprinted. An 
extra feature: if you have the Microline 80 
printer, by Okidata or Epson MX-80, your 
output is in true graphics. Information is 
supplied for the user so he can modify this 
program for other printers. Comes complete 
and ready to run. Requires MOD I or MOD 

III, 48 K disk. Printer optional (132 col.) 

only $49.95 

SPECIAL - Receive this program for only 
$25.00 if you purchase an Okidata Microline 
80 or 82 this month from us. Call for our low, 
low price. 



HARDWARE 



¥ 



MOD III Disk Drive Installation Kit 



This is the complete kit to install your OWN 

Disk Drive into your own MOD III, with 

household tools. Complete installation 

manual. 

The only thing you provide is your MOD III, your disk 

drives, and any MOD III operating system. About one 

hour installation time. Shipping included. 



$442.00 

m 



See last page of ad for ordering information. 



An 
innovative 

word 

processing 

system 

for 

TRS-80* 

MODI 

& 
MOD III 




M wore 

/Word 



is time to put your 
word processing program 
away and use a 

Processing System 



Now accepting 

orders for MOD III 

version 



©1980 

by 
David 
Welsh 



MOD I -$125 
MOD III -$175 

♦Requires 2 drives for 
conversion only. 



'Lazy Writer is the product of ABC Sales 

LAZY WRITER Takes on Scripsil® by Radio Shack® and Electric Pencil®® 

Has all the things that other word processing programs should have. Easy to use. written all in macnine code. / It permits the inserting and deleting 
by characters, words, sentences, and paragraphs/ Page scrolling up and down/ Search ahead of the cursor or behind the cursor for any character/ 
The cursor can be moved up. down, left and right / You can seek top of file and bottom of file / Block move of text, block delete of text/ Search and 
replace or search delete / Unlimited insert (to the limit of your machines memory) / Permits use with lower case / 

Has things that other programs should have, but don't. Upper and lower case output to your printer (if your printer accepts lower case) without 
having your computer modified. ON UPPER CASE ONLY MACHINES This program marks the capital letters so you can see which letters areCAPITALS and 
which are not / Will change all upper characters text to lower case or all lower case to upper. A SINGLE COMMAND /Will capitalize the first letter of all 
sentences and all proper noun I's, WITH A SNGLE COMMAND / LOADS ANY ELECTRIC PENCIL/ FILE. ASCII SAVED FILES. EDTASM FILES or BASIC PROGRAMS 
SAVED ASCII / Permits installing special control characters in your text for your printers special features, like double wide or condensed print/ Definable 
screen length and definable print length to 255 characters wide / Screen editing that is not final till your command. This means that you can edit your 
file on the screen and if you don't like how it readsyou can cancel and leave itthe way itwas/Youcan append files(which means thatyoucan put one 
file to the end of another file) / No lost characters at the end of the line, even for the fastest typist / A directory of all your files is available to the user 
without leaving the program / Saving programs to disk easy enough for the non-computer user / To save memory, not all the program modules are in 
memory at one time but are called from the disk as needed / You can set tab positions like on a typewriter / 10 CUSTOM COMMAND KEYS for the 
experienced user there is a command file that permits many special functions that are all user defined ( not enough space for better explanation in ad. 
send for complete overview) / Program has HELP file that is a short review of the commands that are available / 

Standard Printer Module. This printer module is provided for the user as a standard feature. Optional special printer routines for custom printer will be 
available in the near future. In this original release, it has the following printer drivers and will support the following printing devices: RS232. TRS232 and 
PARALLEL printer ports. You have the following format commands Justifies Text. Centers Text, Centers Title, Line Spacing. Line Length from 3-255 
characters and Set Margins / Also send any ASCII 

code to any printer from the text / Save formatted 

text to the disk for spooling later / Information for 
customer to load his own special printer driver / 
Printing can be stopped and started by the user at 
any time and then restarted where you left off/ You 
can print entire file or just print to bottom of the page / 
Communication Package. RS232 COMMUNICA- 
TION TERMINAL PROGRAM permits you to communi- 
cate with other computers. Transfer files from one 
machine to another. Permits dumping memory a- 
cross the phone lines. Receive files from other TRS- 
80's and "Shake Hands" with larger computers. This is 
the complete system called LAZY WRITER. There is no 
package written for the TRS-80* that is as compre- 
hensive. This package is available for the 
TRS-80* MOD I, 32K or larger with at least 
a single disk drive. List price is from 

mmm $125.00 

rJ££x l Dealer Inquiries Invited 



■OFmOTOBMABKiTINa, ^-434 
INCORPORATED 

6250 Middlebelt • Garden City, Ml 48135 
(313) 425-4020 

C.O.D - Certified Check. MO. or Cash only. Sorry, no C.O.D. over 
S150.00! Most orders shipped next ddy All orders must have snipping 
included. Please aOd 2% or S2.50, which ever is higher for shipping. 
Michigan resiaents. please add 4% tax. Add extra S1 50 for C.O.D. 
Personal checks take 3 weeKs to clear. Send S1 .00 for catalog - get 
$2.00 credit on next order. 



NEW FEATURES in Lazy Writer 
"The People Request, and David Welsh Delivers" 

The system permits embedding ASCII commands into the text of 

the program. NOW you can do SUPERSCRIPT and SUBSCRIPT(if your 

printer can handle it). Underlining and boldface, printing of a single 

word in a paragraph, is now possible, at no extra cost. 

A key that remembers the cursor position. 

User definable special character. For use with printers that have 

printable characters that the TRS-80 keyboard does not normally 

support. 

Margin control trom within text. This means that you can change 

the margins of your printed text without stopping the printer routine 

and changing it. 

Page offset with odd/ even headers & footers. This means that 

you can print one page offset to the left of center and the next page 

offset to the right. This is very nice when you are writing a book. 

Printing chaining feature. This permits having more than one file 

on disk and create one printed letter, contract, or book without 

having to reset the printer commands. 

Mandatory space command. This is necessary when you are 

writing letters or papers that have certain words that are not to be 

broken-up. eg. John P. Andhouser. This name can be made to be 

unbreakable to justify routines in the program. 

Disk catalog. Now you can load your disk directory into memory 

and create a file of this informqtion. 

Now loads Machine Language extention programs that are 

writer) for Lazy Writer. 
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SUPER UTILITY 

®1980 by Kim Watt of Breeze Computing, 
Inc. Sold on protected media only. 

Main Program list: 

Zap Utility; display sector (disk, file), dis- 
play memory, compare disk sectors, copy 
disk sectors, verify disk sectors, zero disk 
sectors, string search, sector search, single 
or double density diskettes (if your machine 
works normally with double density). 

Purge Utility; kill selected files, get disk 
directory, zero unused directory entries, 
zero unused granules, remove system files, 
kill by category, change name, date, pass- 
word, auto command, change file parameters, 
remove passwords. 

Disk Format Utility; standard format, 
format without erase, special format, read 
address marks. 

Disk Copy Utility; standard copy with for- 
mat, standard copy without format, special 
copy (to back up many protected disks) - 
purchaser use - only for his own personal 
disks. 

Tape Copy Utility; this program is to make 
backup of many TRS-80 tapes, no matter 
how it is recorded (note again this program 
is for the use of the original purchaser for his 

own programs only). 

Disk Repair Utility; repair gat table, repair 
hit table, repair boot, read protect directory 
track, recover killed files, check directory. 

Memory Utility; move memory, exchange 
memory, compare memory, zero memory, 
test memory, input byte from port, output 
byte to port, memory to disk disk to memory. 



MOD I, protected disk only 
Back up copy available! 



$49.95 



QUICK FIX 

®1981 by Kim Watt of Breeze Computing, 
Inc. The sister program to Super Utility "the 
Grand Master" of utility programs, and has 
the ability to do all the things that have made 
Super Utility great, except: it does not have 
the following features; it doesn't have the 
Special Copy that backs up most TRS-80 
readable protected diskettes, it does not 
have Tape Copy feature that copies many 
TRS-80 MOD I readable tapes, the Zap 
program does not go to double density disket- 
tes, it does not have the Special Format 
feature. 

Main Program List: 

Quick Zap; display sector (disk, file), dis- 
play memory, compare disk sectors, copy 
disk sectors, verify disk sectors, zero disk 
sectors, string search, sector search, examine 
address marks. 

Quick Purge; kill selected files, get disk 
director, zero unused directory entries, zero 
unused granules, remove unused system 
files, kill by category, change name, date, 
password, auto command, change file par- 
ameters, remove passwords. 

Quick Format; standard format, format with- 
out erase. 

Quick Backup; standard copy with format, 
standard copy without format. 

Quick Repair; repair gat table, repair hit 
table, repair boot, read protect directory 
track, recover killed files, check directory. 

Quick Memstuff; move memory, exchange 
memory, compare memory, zero memory, 
zero memory, test memory, input byte from 
port, output byte to port, memory to disk, 
disk to memory. 

The one extra feature it has is: you can put 
Quick Fix on all your diskettes. MOD I. On 
nonprotected diskete only $34.95 



1 



MX-80 Package Special! 



¥ 






Month of May Only 

Hurry - Supply Limited! 



MX-80 - New 

And At No Extra Cost To You: 



*59 9 



1 Box of Paper (2700 sheets.20# white) 

2 Extra Ribbons 

1 Extra Print Head 

and Shipping Included for all UPS in U.S. 

*Compared to all items at list price! 

Sorry, No C.O.D. on this special. To receive this discount you must prepay. 

If you don't require all these extra items, call for price. 



OTHER THINGS from Kim Watt 
of Breeze Computing, Inc.: 

MAKE 80 

®1980 AM Electronics. Written by Kim Watt 
This program is for people who have 80 track 
disk drives and do not wish to keep that old 
40 track drive just to load their 80 track 
system. Make 80 is loaded into your machine 
when it is placed in your 80 track drive, and 
the reset button is pressed. It loads automa- 
tically and asks for 35 or 40 track diskette. 
When you insert your diskette in the drive the 
program reformats the diskette so your 80 
track disk system can read all of the informa- 
tion from the diskette without having to have 
a 40 track drive. This program works on 
standard NEWDOS, TRSDOS, NEWDOS- 
80 diskettes. Does not work on any disk that 
has any funny sectors (VTOS) or with the 
LOBO interface. 80 track disk only. $14.95 

SPACE COLONY 

by Kim Watt. Space Colony is a space inva- 
ders type game for TRS 80 MOD I and with 
Programma Graphix 80 board. One level of 
play single player, with sound. MOD I, 16K 
Cassette , $14.95 



CAPTURE/SYMON 

By Breeze Computing, Inc. Capture is a 2 
person game of Blockade for the MOD I. 
With sound this game comes alive with fast 

action. MOD I, 16K Cassette $12.95 

Disk $17.95 
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HOW TO 
ORDER 



i 




SOFT SECTOR MARKETING, 
INCORPORATED 

6250 Middlebelt 
Garden City, Mi 48135 

1 (313) 425-4020 



Dealer inquiries invited. 

C.O.D. - certified check. M.O. or cash only. Sorry, no 
C.O.D. over $150.00! Most orders shipped next day. All 
orders must have shipping included. Please add 29< or 
$2.50 whichever is higher for shipping (unless otherwise 
stated) Michigan residents, please add 4% tax. Add 
extra $1.50 for C.O.D. Personal checks take 3 weeks to 
clear. All hardware must be prepaid. No hardware 
shipped collect. 
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NEW PRODUCTS 



edited by Bert Latamore 



Read the Stars 
By Computer 



Three new programs for TRS-80s will 
read the future according to astrology. 

The Astro-Scope gives individual astro- 
logical readings of 1 ,500 words or more for 
$30 for the screen version or $200 for a 
printout version which includes a license 
to reproduce textual material commercial- 
ly. 

The Sex-O-Scope also does a full astro- 
logical readout, but it interprets it from a 
sexual viewpoint. Cost is $30 for screen or 
$200 for a printout version with commer- 
cial license. 

The AGS-1 Natal Horoscope gives a 
complete calculation of a natal horoscope 
for use by professional astrologers. Priced 
at $125, it must be special ordered as the 
supplier tailors the program to the buyer's 
system. 

Also available is the AGS Machine Lan- 
guage Sort which sorts 1,000 items in 
about four seconds at a cost of $50 for end 
users and $300 with commercial license. 

All are available from AGS Software, 
Box 28, Orleans, MA 02653. 

Reader Service ^172 




Media mix Interface 



Teach Your Micro to Type 

The ETI 2 is a new, sophisticated inter- 
face that will connect any IBM Electronic 



Typewriter Model 50, 60 or 75 to any com- 
puter with a standard parallel printer port. 

The Z-80 controlled interface has 2000 
bytes of RAM and total access to all the 
typewriter's automatic functions. It al- 
lows you to adapt most word processing 
programs to the typewriter without modi- 
fying the program. 

Information and prices are available 
from Mediamix, PO Box 67B57, Los An- 
geles, CA 90067. 

Reader Service ^342. 



Education Catalog Printed 

Queue Catalog IVB lists educational 
software from 70 publishers for the 
TRS-80 and Pet organized by computer, 
subject area and grade level. Catalog IVA 
will list the same information for Apple, 
Atari and Compucolor. 

The catalogs are $8.95 each from 
Queue, Inc., 5 Chapel Hill Dr., Fairfield, CT 
06432. 

Reader Service ^350 



Guide Lists 100 Commands 

A 10-page quick reference guide to the 
Oasis software system lists more than 
100 commands derived from the 1000 
page user's manual. 

The guide lists major commands for 
single and multi-user systems, EXEC in- 
teractive job control language, a general 
purpose Text Editor and others. It is avail- 
able for $1 from Phase One Systems, 7700 
Edgewater Dr., Suite 830, Oakland, CA 
94621. 

Reader Service ^346 



New TRS-80 Line Printer 
Designed for Business Use 

The new high speed TRS-80 Line Printer 
V from Radio Shack is designed for heavy 
business use. 

It has a bidirectional, logic seeking, dot 




TRS-80 Line Printer V 



matrix head that prints 7x9 upper and 
lowercase characters 132 columns wide. 
It handles 5, 7.5, 10 or 15 characters per 
inch, 26 European characters and 30 
graphics patterns. Print speed is 160 char- 
acters per second, 60 lines per minute. 

The printer is priced at $1,860 and is 
available exclusively at Radio Shack 
stores. 

Reader Service ^174 



Program Teaches 
Fractions 



Fractional Sound is a new program for 
TRS-80 Models I and III that teaches frac- 
tions to students in Grades 4 through 10. 

It features seven parameters in either 
study or test mode, a self-relocating im- 
bedded machine language sound routine, 
high speed graphics and the character 
Marley Mole. It requires 15K RAM bytes. 

This and two other teaching programs 
are available on cassette for $14.95 each 
and on diskette for $18.95 for one, $24.95 
for two and $29.95 for all three from Inno- 
vative Penquin, 2320 Hampton Dr., Har- 
vey, LA 70058. 

Reader Service ^348 



Cables, Programs Offered 

E.B.G. & Assoc, have announced two 
new video connectors for the TRS-80 Mod- 
el I and two new programs. 

The Video Y Connector at $19.95 allows 
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one computer to run two videos, and the 
Video Extender Cable at $23.95 allows the 
TRS-80 video monitor to be moved to a re- 
mote position. 

The Program of Lists at $19.95 stores 
up to 20 different lists, and the Pentad 
Disk Library at $19.95 maintains a library 
file of up to 100 diskettes. 

Information is available from E.B.G. & 
Assoc, 203 N. Wabash, Suite 1510, Chica- 
go, I L 60601. 

Reader Service ^168 



Mod-ll Demo 
Package Offered 

The Small Busines Systems Group 
(SBSG) is offering a demonstration pack- 
age of TRS-80 Model II software including 
a catalog, demo diskette and a manual in- 
cluding system reports for dealers and 
customers. 

The demo diskette provides visual ex- 
amples of various SBSG business pro- 
grams with a variable speed capability to 
allow the salesperson time to discuss 
each example. 

The package lists for $50 and the man- 
ual is available separately for $25 from 
Small Business Systems Group, Inc., 6 
Carlisle Road, Westford, MA 01886. 

Reader Service ^330 



Dirindex Indexes User Files 

Programs Unlimited's Dirindex will in- 
dex your programs, keep track of the size 
of your file in grans and show the space 
left on the diskette by side using a Model I 
disk system. 

Dirindex does not rely on any particular 
DOS system and offers easy deletion of 
individual files or entire diskettes and full 
search capability. It will list files to screen 
or line printer organized in alphabetical or 
numerical order. 

It is available for $19.95 from Programs 
Unlimited, Inc., 125 South Service Road, 
Jericho, NY 11753. 

Reader Service ^-328 



New Disk Drive Announced 

A new disk drive for the TRS-80 Model III 
priced 29 percent below the Tandy-Radio 
Shack drive is being sold by VR Data. 

The new drive plugs in and comes with 
a 90 day, 100 percent parts and labor 



guarantee and an extended warranty. 

The unit, with one mini-disk drive, power 
supply, controller and mounting hard- 
ware, retails at $599 from VR Data Corp., 
777 Henderson Blvd., Folcroft, PA 19032. 



Get Data Input 
At Low Price 



A new input interface allows a TRS-80 
to read temperature light levels, pressure 
and voltages and generate a microMAC 
bus for low cost. 

The module allows remote control of 
lamps, motors, pumps, heaters, appli- 
ances, communications devices, etc. 

Offered by Connecticut Microcomputer 
Inc., 34 Del Mar Drive, Brookfield, CT 
06804, the TRS-80 mod retails at $59.50 by 
itself or with a 16 channel AIM16 Analog 
Input Module, cables and power supply 
for $295. 

Reader Service ^327 



Soundproof Quiets Printer 

Dataroyal is offering optional sound- 
proofing for its IPS-5000 intelligent matrix 
printers that, in an independent test, re- 
duces the noise level of the machines to 
63 decibels from the 66 decibels achieved 
with the standard package. 

The option is available at $25 from Data- 
royal Inc., 235 Main Dunstable Road, 
Nashua, NH 03060. 

Reader Service ^161 

Medic Package Fills Forms 



A new medical office program sorts and 
keeps patient and master files, maintains 
billing records, prints reports on Medicare 
and Blue Shield forms and office invoices, 
maintains a daily patient list, prints on 
Medicare and Blue Shield forms, prints a 
mailing list and even performs word pro- 
cessing. 

Compatible with the TRS-80 Model I and 
II, the system also creates and maintains 
a literature reference system and keeps 
track of bank checks. 

It is available under an introductory of- 
fer at $550 from LaSalle Computing Inc., 
1547 DeKalb St., Norristown, PA 19401 un- 
til May 15. After that the price will go to 
$5,500. 

Reader Service ^-333 
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Modems Give 
Phone Linkup 



Microconnection modems will connect 
TRS-80 Model III and Color Computers 
with any time sharing system through the 
public telephone system, according to Mi- 
croperipheral Corp. 

The firm is also offering a new Autodial/ 
Autoanswer Module for the Model III mo- 
dem to allow unattended data transfer 
and remote access of the host computer 
for $79.95. 

Both modems can transcribe and play 
back data communications on a cassette 
recorder at 300 baud. 

The modems cost $199.50 each. Infor- 
mation is available from Micropheripheral 
Corp., 2643 151st Place N.E., Redmond, 
WA 98052. 

Reader Service ^325 

MYCH ESS Wins Tourney 

Mychess is a new chess program for 
32K TRS-80s which has won several com- 
puter chess tournaments. 

Choose nine different levels with My- 
chess, and change levels or sides during 
the game. It will allow time limits for 
moves and save up to six games for later 
play or study, will predict the upcoming 
line of play after any move and take a turn 
or skip one. 

It is available at $34.95 from Program- 
ma International Inc., 2908 N. Naomi St., 
Burbank, CA 91504. 

Reader Service ^160 

Buffer Increases Efficiency 

The new Microcompatible Print Buffer 
allows printers, plotters and other slow 
peripherals to work independently of your 
TRS-80, increasing efficiency by avoiding 
tying up the computer. 
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HIGH SPEED CASSETTE SYSTEM 



Now the widely acclaimed 
JPC Cassette System is available 
for your TRS-80* computer. 
The price is only $90.00 

TC-8 Cassette System 
JPC Products 

Albuquerque, NM 
Kit: $90 
Assembled: $120 

by Carl A. Kollar 

1 guess I don't have to tell any TRS-80 owners 
how frustrating the cassette system that 
comes with the computer can be. Even with the 
factory mod that's available, the annoyance of 
loading and checking programs becomes just 
barely tolerable. 

If you're like me, after you've just plunked 
down a chunk of money for a Level II 16K ma- 
chine, "you ain't got nuttin left" for even one 
disk drive at 500 bucks apiece. So you suffer. 

A reasonable alternative is the Exatron 
Stringy Floppy (ESF). This will cost you about 
250 bucks and totally eliminates your loading 
and saving problems, automatically and fast. 
I've had one of these for about six months and 
love it! 

But, if the price is still too steep, have I got a 
device for you! 

The Device 

The February 1980 issue of Microcomputing 
had an ad that intrigued the hell out of me. It 
was a high-speed cassette system by JPC Prod- 
ucts acclaimed as a "poor man's floppy." It 
made all sorts of seemingly ridiculous claims 
such as "loads five times faster," "stores 50,000 
bytes on a 10-minute cassette," "less than one 
bad load in a million bytes with the volume con- 
trol anywhere between one and eight." 

All this for a measly [90] bucks? How could 
this be? A call to Albuquerque answered a few 
questions: Yes, it had its own power supply, 
and, it stored programs five times faster be- 
cause it utilized higher density data. The com- 
puter outputs the information at a higher rate 
out of the rear keyboard connector. 

The ad had even claimed anyone could build 
it even if you have never soldered before. JPC 
would make it work, if you couldn't— for free. 
I was sold. I placed my order, and it arrived 
about two months later (parts shortage). 

I work in electronics, so I found the unit, ex- 
ceptionally easy to build. It took about an 
hour. The manual is superb. (That's better than 
great.) It was clear, concise and exact with no 
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ambiguities. Important parts placements are 
stressed (polarity markings on electrolytics, 
bands on diodes, etc.). 

JPC was right! With these instructions, you 
couldn't go wrong. The board quality is excel- 
lent. It is double-sided and parts locations are 
clearly marked on the component side of the 
board. There are no jumper wires to install. 
JPC utilizes PC traces and plated-through 
holes for connections to traces on the other side 
of the board. 

Also, there are absolutely no adjustments or 
settings to bother with. 

The documentation is a sheaf of 8 Vi x 1 1 pa- 
pers stapled together. It is written in the nicest 
format I've seen in a while. Each command 
and/or subjects is covered on its own sheet in 
large type. All explanations are in easy to read 
English — not computerese. 

Commands and Features 
SAVE"filename": Saves your BASIC pro- 
gram on cassette. 

LOAD: Reads the next BASIC program from 
the cassette. 

LOAD"filename": Searches for and loads the 
specified file from cassette. 
LOAD? and LOAD? "filename": Reads file 
from cassette, and compares contents to mem- 
ory. 

LOADN: Prints a list of all the programs on a 
cassette, until interrupted by the "break" key. 
LOADN"filename": Same as above except the 
tape will stop at the end of the program named. 
KILL: Removes the file manager program 
from memory so that the extra memory can be 
used by large programs. 
RSET: Allows the operator to rewind and posi- 
tion the tape on tape recorders that have these 
functions tied to the motor control jack. 
RUN" filename": TC-8 searches for a specified 
program and runs it immediately. 
PUT" filename": Same as SAVE "filename", 
except it is for use with system tapes. 
GET: Same as LOAD, except it is for use with 
system tapes. 

GET"filename": Same as LOAD "filename", 
except it is for use with system tapes. 
GET? and GET? "filename": Same as LOAD? 
and LOAD? "filename", except it is for use 
with system tapes. 
GETN and GETN"filename": Same as 



LOADN and LOADN" filename", except it is 
for use with system tapes. 
OPEN: Required before cassette input or out- 
put of a data file can be attempted. 
CLOSE: Required to end a cassette data file. 
PRINT#: Allows numerical or string data to be 
output to a cassette file. 

INPUTS: Allows numerical or string data to be 
input from a cassette file. 

I haven't counted them, so I don't know 
about the "one load in a million bytes" claim, 
but my son, Anthony (age 11), loaded about 30 
of his programs from his Radio Shack format 
tape to a new TC-8 format tape. He's run them 
all and found no bad loads. 

Unlike the standard tape system, you can po- 
sition your tape anywhere before the program 
you want and not have to look for a blank spot 
between programs. The TC-8 patiently waits 
for the program you want and then starts load- 
ing without getting confused by the portion of 
the previous program you just fed it. 

Try that on your regular cassette system; 
you'll wear out the reset button. ■ 

ORDER NOW 

To order your TC-8 kit, send your check or 
money order for $90.00 plus $3.50 postage 
and handling to JPC PRODUCTS CO., 12021 
Paisano Ct., Albuquerque, NM 87112 (New 
Mexico residents add 4% sales tax). Credit card 
orders accepted by phone or mail. Personal 
checks will delay shipment. We will otherwise 
immediately ship you the TC-8 kit, the cabinet, 
the ribbon cable, the power adapter, an instruc- 
tion manual, and a cassette containing the 
software. 




^-190 



PRODUCTS CO. 
Phone (505) 294-4623 
12021 Paisano Ct. 
Albuquerque, N.M. 87112 



•^See List of Advertisers on page 306 
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The buffer comes in 16K and 32K sizes 
with a variety of I/O ports and a printer AC 
power control option. It can handle up to 
two input and two output ports with baud 
rates set separately from 110 to 9600 
baud. 

The buffers start at $299 from Micro- 
compatible Inc., PO Box 106, Scaly Moun- 
tain, NC 28775. 

Reader Service ^341. 



Wye Connects Multi-Units 

Lords Small Systems Design has pro- 
duced a wye connector to allow two print- 
ers to access the same computer or two 
computers to share one printer. 

Designed originally to allow connection 
of both a word processing and data print- 
er to the same computer, the wye is U.L 
approved and has a bat toggle switch to 
determine which printer is in use. 

The connector is available at $99.95 for 
the TRS-80 Model I, $129.95 for Model II 
and $109.95 for the Model III from Lords 
Small Systems Design, PO Box 99, Port 
Angeles, WA 98362. 

Reader Service ^334 



Color Computer Speaks 

"The Speaker" is a totally program- 
mable phonetic voice synthesizer for the 
TRS-80 Color Computer which plugs into 
the ROM Pack slot and talks through the 
monitor television. 

The Speaker with demonstration and 
utility programs in both machine lan- 
guage and Color BASIC is $1 79.95 from Al- 
ford & Assoc, PO Box 6745, Richmond, 
VA 23230. 

Reader Service ^169 



New Program Analyzes 
Complex Structural Models 

The ST10M Finite Element (Space 
Frame) MCt2, allows engineers and archi- 
tects to analyze almost any structure from 
airplanes to bridges on any model of the 
TRS-80. 

The program models beam, truss, mem- 
brane and plate elements and three-di- 
mensional volumes and generates 
stresses on individual structural members 
and deflections of points throughout the 
structure. 

Information on the new program, which 
fits into only 32K of RAM capacity, is avail- 



able from McClintock Corp., 7000 SW 
62nd Ave., Box 430980, Miami, FL 33143. 
Reader Service ^338 



Software 
Security Enhanced 

A new, reversible software enhance- 
ment package gives security against un- 
authorized program modification and pla- 
giarism without changing the program in 
any way. 

The Locker by The Management re- 
quires no additional RAM, disk space, as- 
sembly language coding or user calls, is 
permanent and installs easily. The only 
visible change is that LIST and LLIST will 
not work. 

The Locker is available for $24.95 from 
The Management, PO Box T, Aledo, TX 
76008. 

Reader Service ^331 



Fortran Converter Available 

The Management's Fortranslator, de- 
signed to help translate BASIC programs 
into FORTRAN, is now available for Model 
II and III TRS-80S. An enhanced version of 
theiroriginal Model I program isalsoavail- 
able. 

The program translates BASIC pro- 
grams into FORTRAN template including 
subroutine calls and "goto" forms. It is de- 
signed to do 60 to 85 percent of the con- 
version work. 

The Model I and III versions are priced 
at $29.95 and the Model II at $34.95 and 
are available from The Management, Box 
T, Aledo, TX 76008. 

Reader Service ^332 



Mod III Terminal 
Gets Smart 

A smart terminal program for the 
TRS-80 Model III is available on 1500 baud 
cassette and double density disk. 

SMARTIII allows transfer of BASIC pro- 
grams between computer and cassette or 
disk, off-line text preparation with Electric 
Pencil or Scripsit for on-line transmission 
and, with an additional program, file, per- 
mits generation and storage of text. 

The program, with many other applica- 
tions, is available for $99.50 from The Mi- 
croPeripheral Corp., 2643 151st Place 
N.E., Redmond, WA 98052. 

Reader Service ^336 



RSM Patch Your Model III 

A new patch program allows you to use 
Small Systems Software's RSM with the 
TRS-80 Model III to provide you a machine 
code monitor. 

The patch operates at both 500 and 
1500 baud rates. 

The RSM Patch is available from Re- 
markable Software, PO Box 1192, Muske- 
gon, Ml 49443. 

Reader Service ^345 



Analyze 
Investment Property 

The Income Propery Analysis System 
allows analysis of before and after tax 
cash flows of income properties including 
rent rates, expenses, and rates of return. 

Compatible with the TRS-80 Model I or 
Model III with at least one disk drive and 
32K of memory, it is available from Ad- 
vanced Business Microsystems, 5801 
Marvin D. Love Freeway, Suite 103, Dallas, 
TX 75237. 

Reader Service ^164 



Games Challenge Operator 

Challengem is offering five games for 
the TRS-80 16K Level II or Model III. Sub- 
jects are Roman Conquest, Attack of the 
Yeti, Disaster at Sealab, Time for the 
Sheriff, and Fighter Run. 

They are available for $9.95 each from 
Anthony Targonski, 106 Fifth St., Cam- 
bridge, MA 02141. 

Reader Service ^165 



Radio Log, 
Billing Computed 



Radio stations can now keep track of 
their logs and billing electronically using 
two new programs for the TRS-80 Model I. 

The Electronic Log and The Electronic 
Bill are available from The Management, 
Box 111, Aledo, Texas 76008. 

Reader Service ^173 



New Printer Costs Less 

The Sidewinder is a new low-cost print- 
er for all TRS-80 printer interfaces that 
prints 12 lines at once on 2-inch wide pap- 
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er rolls. 

Totally LPRINT and LLIST compatible, 
it prints 30 characters per second with a 
stationary thermal printing element. 

The printer, software driver and a roll of 
paper sell for $199. An interface cable for 
the TRS-80 expansion interface is $19 and 
an interface cable for the TRS-80 key- 
board is $49, all from Printel, Inc., Box 
21094, Oklahoma City, OK 73156. 

Reader Service ^335 



Double Your 
Memory Easily 

Holmes Engineering's Internal Memory 
is designed to double the memory of the 
standard TRS-80 Model I to 32K bytes eas- 
ily and inexpensively. 

The device attaches to the RAM sock- 
ets inside the keyboard unit without modi- 
fication or soldering of the unit, and the 
10-page instruction booklet makes instal- 
lation easy for those with little or no tech- 
nical knowledge. 

The unit is available at $47.50 without 
RAM from Holmes Engineering, 6246W. 
3705S. SLC, UT 84120. 

Reader Service ^343 



SGL Cuts Electric Pollution 

SGL Waber Electric is bringing out a 
new line of power filters that protect semi- 
conductors from electrical power surges, 
drops and other forms of damaging "elec- 
tric pollution." 

The new line of Power Master Line Mon- 
itor Power Conditioners range from plug- 
in units to a very sophisticated console or 
rack-mounted unit. All are designed to 
smooth out power fluctuations that can 
damage semiconductors or cause false 
data input and output. 

Information is available from SGL 
Waber Electric, 300 Harvard Ave., West- 
ville, NJ 08093. 

Reader Service ^337 



Model III Gets 
The Business 



The Small Business Systems Group 
(SBSG) is converting its business soft- 
ware, designed originally for the TRS-80 
Model I and II, for use with the Model III. 

Out presently are accounts receivable, 
accounts payable, general ledger and 
payroll programs and SBSG is working on 



conversion of their inventory and invoic- 
ing systems programs. 

The programs are available for $195 
each from Small Business Systems 
Group, 6 Carlisle Road, Westford, MA 
01886. 

Reader Service ^329 



Printer Driver Is Versatile 

The RS-232 is a versatile and flexible 
new printer driver that offers many param- 
eters and options and works with many 
printers, using the TRS-80 RS-232-C board. 

It is available on cassette at $35 from 
Micro Systems Software, 3235 Kifer Road, 
Suite 32, Santa Clara, CA 95051. 

Reader Service ^162 




V300-25 Printer 

Printer Has Many Features 

A new series of daisy wheel printers of- 
fers seven- and eight-bit character lengths, 
single- and double-stop bits, odd and even 
parity, and 300, 600, 1200 and 2400 baud 
transmission speeds. A programmable 
vertical format unit gives you a 66-line 
maximum form length with top-of-form 
and VT justification. 

The V300-25 printer is priced at $1,895 
and the V300-45 and $2,195 from Vista 
Computer Co., 1317 E. Edinger Ave., Santa 
Ana, CA 92705. 

Reader Service ^340 



Battery Power for TRS-80s 

The DC-80 direct connect power con- 
verter allows operation for a TRS-80 or ex- 
pansion interface from a 12 volt battery. 

The system gives an uninterruptable 
power source, 30 percent cooler computer 
operation and unlimited portability. 

It is available for $49 Canadian from 
Digital Concepts Inc., 116 Moccasin Dr., 
Waterloo, Ontario, Canada N2L 4C3. 

Reader Service ^167 



Computer Plays Blackjack 

Casino Blackjack/Counter allows the 
player to simply play the game, try out 
playing strategies or learn and practice 
card counting with between one and four 
decks. The player has the center hand of 
five hands and sees all cards as they fall. 

Compatible with TRS-80 Models I and 
III, it comes in cassette for $14.95 or disk 
for $19.95 from Manhattan Software, PO 
Box 32, Pacific Palisades, CA 90272. 

Reader Service ^166 



EPROM Programs Model I 

The EP-2A-79 EPROM Programmer will 
now interface with the TRS-80 Model I 
with a TR-24 module. Eleven EPROMs are 
offered on disk or cassette, all entirely 
self-prompting. The user can create and 
edit a program in memory, read an object 
code from disk or tape, or read and dupli- 
cate an existing programmed memory. 

The Programmer is available from $169 
and the TR-24 interface for $85 from Opti- 
mal Technology Inc., Blue Wood 127, 
Earlysville, VA 22936. 

Reader Service ^347 



Reader Interfaces Scanner 

Reader interfaces all model TRS-80s 
with Scan-Tron Model 2012 allowing the 
computer to read pencil-marked forms for 
test scoring and. analysis, student regis- 
tration, surveys, inventory and labor ac- 
counting and many other applications. 

Using less than 1K of RAM, Reader is 
available on diskette for $175 from Desert 
Sound, Inc., 16268 Main St., Hesperia, CA 
92345. 

Reader Service ^349 



Program Tabulates Polls 

A new program for tabulating political, 
public opinion, sociological or market re- 
search polls has grown out of the latest 
U.S. Senate race. 

The new program was originally devel- 
oped for a successful senate campaign 
and is extremely flexible, even tabulating 
open-ended questions. Compatible with 
any model TRS-80 with 32K and one disk 
drive, it costs $99.95 from M, M, & S Soft- 
ware, 3 Seabrook Court, Stony Brook, NY 
11790. 

Reader Service ^170 
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LUNAR LANDER 



By Wall £ Moncrief from Adventure Int. 
Calling this program simply "LUNAR 

LANDER" is like calling the Space Shuttle an 
"AIRPLANE" they are so much more than 

the names imply! And like the Space Shuttle, 
this great simulation will get used again, and 
again, and again... 

Moving across your screen is a vast lunar 
landscape, graphically depicted in both long 
range and close up, with many choices for 
landing sites. Choose a more difficult site and 
get more points if you can land success 

fully. You have complete control of your LEM 
via main engines and small side thrusters, 
and a successful landing is heralded with a 
flag raising ceremony. Great graphics and 
sound add to the realtime challenge and fun. 

16K tape...S1i).95 32K disk. . . S20. 95 

!* (STARCRUIsfe 

From Stratagems "" 

A unique and challenging space game that 
uses the computer, playing boards, tokens, 
and two players to manage galactic empires. 
You must travel through space, seeking 
alliance with friendly planets, while knowing 
that your opponent is competing for the same 
planets and may wage war at any time. Add to 
this the "normal" pratfalls of interstellar 
travel and you have a most exciting game, in- 
deed. 

16K, includes 2 Starmaps, 308 tokens, rule 
book, program listing and tape. . . $11. 95 



& 




By Hogue & Konyu from Big-Five 
"The rage of the arcades" is now available for 
TRS-80! Exciting sound effects add to the 
action as the invaders swoop down to destroy 
your base. Even while you have your hands 
full battling the aliens, you have to watch out 
for the Flagship! Super graphics, super 
action, super fun! 



TRS-80 Level 

unless otherwise 
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IVORD 1VAHS 

By Hernhuter $ Taylor from Acorn 
This two game package combines sound and 
graphics to provide hours of fun for all ages. 
Both games can be played against the com 
puter or as two person games. 

WORD CHALLENGE depicts the length of a 
phrase. The phrases are either computer 
generated or typed in by your opponent. The 
player's challenge is to figure out the phrase, 
based on the letters guessed. 

WORD GAME allows many levels of strategy as 
you try to guess the letters of a mystery 
word. The strategy comes in because each 
letter has points based on its frequency of 
use in English language, and you are told 
how many points the mystery word contains. 

16K protected tape. . .$14.95 
32K protected disk. . .$20.95 

Unbelievable Realtime 3-D Graphics! 




FLIGHT SIMULATION 

From Sub-Logic 

The wait is over! If 3-D graphics seem im- 
possible on the low resolution TRS-80, you 
haven't seen this brilliant program. During 
FLIGHT SIMULATION, you instantly select 
instrument flight, radar, or a breathtaking 
pilot's-eye-view. But be sure to strap your- 
self in — you're liable to get dizzy! 

Once you put in some air time learning to fly 
your TRS-80, head for enemy territory and 
try to bomb the fuel depot and airstrip while 
fighting off five enemy warplanes. Good luck! 

Level I or II protected tape. . . $25. 00 



LOST 
SHIP 




^ 



ADVENTURE 



Level I or II, tape. . .$14.95 



From Programmer's Guild 
Imagine finding an old sailing vessel not on 
the ocean floor, but floating silently on calm 
seas. What would you do? The options are all 
yours in the fascinating new adventure that 
combines excitement, suspense and terror on 
the high seas. Does your fortune run to 
buried treasure — or a watery death? 

16K tape... $14. 95 

Or try these other P. G . Adventures: 

Death Dreadnaught $14.95 

Thunder Road $14.95 

Dragonquest $15. 95 



. . . we run into the same problems you do. 
With so many good programs available, it is 
hard to choose among them. Our solution is to 
try to stock them all, but that doesn't solve 
your dilemma. So, we will regularly offer this 
column of straightforward comparisons of sim 
ilar products. Since everyone has different 
needs, we hope to give enough information to 
help fill yours. We strive to present factual 
comparisons of features; the opinions offered 
are purely subjective, however. !f our 
opinions offend any authors or publishers... 

% BLACKJACK 

AMAZING BLACKJACK MACHINE 

By Richard Ramm from Adventure lot. 
Not a blackjack playing game, this program uses 
your playing and betting strategies to play hands auto- 
matically — at up to 2000 hands per hour! It also al- 
ting yourself on the playing of difficult hands, 
ing strategies, both built-in and user defined, 
d on point count systems developed by Edward 



The be 



Thorp and refined by Lawre 

tables seem to be based on Revere's book, 

Blackjack as a Business"). 

The program works well, and while it doei 
such subtleties as "insurance" and "surrender, 1 
fair leeway in defining various "house rules" « 
of decks (up to six). The documentation is sc; 
you are new to serious blackjack playing and 
some outside reading is essential to'get the i 
thiB program. 

16K Tape. ..$19. 95 
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be a problem fo 
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sort: 


M is one of the best 


'one- 


n-one" 
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t dea! 


era w 


e 1 ve 


seen. It allows spli 
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ance 


and 
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let yo 
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betting and playing 


stra 




but do i 


•t Sill 




at-e 


unting. Insurance i 


id su 
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are noi 
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n these high speed nodes 


. The com- 




ays the 


cho 


en number of hands and 


repor 


s the 




The "i 


it or 


drills you playing dec: 


none 


based 


on the < 


ealers 




:ard 








The 




m should 


aid in developing 




basic 


skills i 




al b 


ack. 


ck playing. The 60 




manual 


is usefi 


. to hi 


/ire 


thro 


gh expert. 

55 32K Disk... $29. 








16K Tape. 


.$24 


95 





CASINO BLACKJACK/COUNTER 

From Manhattan Software 
This program comes closest to being a pure blackjack 
dealing game, but with useful differences. You choose 
the number of decks (1,2 or 4) and the dealer's speed 

point-counting). Cards are dealt to five players. The 
computer plays four hands; you play the hand in the 
middle. Splitting, doubling, and insurance are sup- 
ported, but surrender is not. 

On your request, the program will tell you the cur- 
rent point count and recommended bet size. Documentation 
is adequate, but requires outside reading if you wish to 
learn point-counting. 

16K Tape. ..$14.95 32K Disk. . .$19.95 



WIN21 



Phil Pilgr 

can be used just fo> 
learning tool. It It 
(up to four), ho* 



, WIN21 is designed 
,ou define the num- 
hands you will play, 
de of 



ir of decks (up to four), how many hands you will play 
>e number of computer-played hands on either side o: 
>u, and the basic "house rules." The strength of thi 

ir betting, counting, and playing: Vou can let thl 
imputer do some of the functions while you work 01 
:hers ; the computer can instruct you in some or all o: 



.- of th 

; the comput 

ill leav 

how you bet 
[1 lowing 



ive yuu alone (but mi 
nd play) . The only weakne 



and in not supporting "surrender" (an occasionally use- 
ful, but sophisticated option). 

The package includes Dr. E. Thorp's book, "Beat the 
Dealer," which is a little dated but still quite valid. 
If you are willing to practise, the program can teach 
you to be an excellent player. 

16K Tape. ..$29. 95 



Visit Our New Store: W. Bell Plaza- 6600 Security Blvd 'Baltimore, MD 



QS m TO ORDER CALL TOLL FREE 800 424-2738 cdTpwTSff " 



ion ] 
-9797| 



^w 



THE PROGRAM STORE 

4200 Wisconsin Avenue NW, Dept. Kll Box 9609 
Washington, D.C. 20016 



MAIL ORDERS: Send check or M.O. for total purchase 
price, plus $1.00 postage & handling. D.C. residents, add 
6% tax. Charge card customers: include all embossed 
information on card. 
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Get the most from your micro with 
software and accessories from one of 
the worlds largest selections. 



The 

Irocjram 

Store 



CALL TOLL FREE 

800424-2738 




DECATHLON 

By Timothy Smith from Microsoft 
The graphics capabilities you were promised 
when you bought your computer are finally 
utilized in this marvelous series of programs. 
Just like the real Decathlon, you compete in 
10 demanding games that encompass different 
forms of running, jumping and throwing. 

Play alone or with as many as eight competi- 
tors, the gold medal will always go to the skill 
ful -- never the luckiest — because your 
score depends entirely on skillful manipul 
ation of the keyboard. 

One of our more expensive game collections 
and worth every penny! You MUST see this 
system in action. Otherwise, you simply won't 
believe the combination of truly outstanding 
graphics, fast paced action, nail biting in- 
tensity, and even a touch of comedy you'll ex 
perience with Olympic Decathlon! 

16K Tape. ..$24. 95 32K Disk. . .S24.95 



COSMIC FIGHTER 



By B. Hogue & J. Konyu from Big Five 
Terrific sound, graphics and unique chal- 
lenges mark this new space game a winner! 
While fighting off the alien convoys, each 
more skillful than the last, you must keep 
track of your rocket fuel or risk explosion as 
you maneuver toward your space station. Can 
you dock immediately, or is the station over 
run by aliens? Find out by ordering Cosmic 
Fighter today. 

16K Tape. . .$11.95 

32K Disk version. . .$17.95 



PROJECT OMEGA 



By Bob Nicholas Adventure International 
In probably the most accurate simulation ever 
produced for a microcomputer, you are res- 
ponsible for the production, finance, health 
and well being of Project Omega, the Earth's 
first deep space colony . 

Painstakingly researched. Project Omega will 
provide much enjoyment and satisfaction as 
you overcome the frustrations and obstacles 
of taming an uncharted environment. The 
tape version is for one player; the disk ver 
sion supports one or more, plus a special tour- 
nament option. 

16K Tape. ..$14. 95 32K Disk. . . $24. 95 



PINBALL 




BASKET 
BALL 



By John Allen from Acorn 

Get your flipper fingers ready for action in 

this real time, machine language game. 

Lots of sound and flashing graphics make this 
fast action game so much like the real thing 
that you'll have to remind yourself not to 
shake your TRS-80. Choose from five playing 
speeds to match your skill. Can you beat your 
friends' scores? Will you avoid the dreaded 
"Bermuda Square?" Get PINBALL today and 
find out. 

Protected tape. . .$14. 95 
Protected disk. . .$20. 95 




ATTACK 
FORCE! 



By B. Hogue 6 J. Konyu from Big Five 
Unlike the usual space "shoot-em-ups, " your 
ship is not tied to the bottom of the screen. 
In Attack Force, you use the arrow keys to 
control both speed and direction as you man 
euver all over the screen in search of the 
alien Ramships and Flagships. A realtime, 
machine language game with amazing graphics 
and sound. 

You have to be quick to avoid the enemy 
ships that warp down on you, and the Flag 
ships' lasers can fire in all directions --even 
diagonally! And don't look away for an 
instant, because one of the alien spacecraft 
might be transformed into a mirror-image of 
your own! 



16K Tape. . .$14.95 

32K Disk Version. . .$17. |95 



z 
o 

R 
K 




By Infocom from Personal Software 
In Zork, the Great Underground Empire, un- 
earthly creatures guard 20 treasures. Bring 
all the treasures back to the trophy case and 
you can leave alivef You must pick your way 
through intricate mazes, collecting objects 
that may help or hinder you in your quest. 
But keep your wits about you, because in 
Zork, they take no prisoners! 

TRS 80 or Apple II, 32K Disk. . .$39. 95 



y John Allen from Acorn 
You have to be fast to keep up with the action 
as you try to outscore your opponent in five 
minutes of one on one basketball. Compete 
against a friend or your computer. 

Steal the ball, duck around your opponent 
and slant toward the basket for a lay up! The 
graphics are based on a 3-dimensional depic- 
tion of a basketball court, and ball dribbling 
sounds add to the realism. 
Protected Tape. . .$14.95 
Protected Disk. . .$20. 95 



)S LD0S LD0S LDOS LDOS LDOS LDOS LDOS LDOS 



DOS .DO? LDOS LDOS LDOS LDOS LDOS LDOS 
LDOS LDOS LDOS _ — - ,-. j-, LDOS LDOS 
LD0> LDOS LD0 I IjQV S LDOS LDOS 
LD0fe_ LD_ *^ ^^*# os LJfls 
LDOS LDOS LDOS LDOS LDOS LDOS ll 



LDOS 

LDO 

LDl 



DOS LDOS LDOS LDOS LDOS LDOS LDOS LDOS LDOS 



JUST ANOTHER PRETTY DOS? 

If new LDOS were just another disk operating 
system (DOS), we would not recommend it to 
you. However, two differences make this sys 
tern unique and important: customer support 
and user benefits. 

When you buy any DOS, you need service for 
programming assistance, updates and tips on 
how best to use its features. This is part of 
what you buy with LDOS. First, you will be 
supported by a toll-free phone line listed on 
your registration card. Second, you will be 
promptly notified of all updates and may send 
your original diskette to a service center for 
updating. You pay only the cost of return mail 
-- you can do it every week if you like. 
Third, a regular newsletter will inform you of 
any updates and provide tips on using some of 
LDOS's many special features. 

With LDOS you get a well documented, thor- 
oughly tested, and powerful DOS. The pub- 
lisher is committed to a professionally written 
and detailed users' manual. Besides con 
trading with some of the best microcomputer 
systems houses for technical and customer 
support, a highly regarded technical writing 
firm is doing the manual. 

The power of LDOS is its ease of operation, 
its independence of hardware configuration, 
and its device independence. You can make 
selected backups, chain together a series of 
programs and operations, and operate several 
different types of drives from the computer. 
LDOS has all the features of VTOS 4.0, fully 
implemented and working. There are hun- 
dreds of features which we do not have room 
to mention, but the best features are its ease 
of use for the new disk owner combined with 
its sheer power potential for the expert. We 
will gladly send you more information on LDOS 
if you just call our toll free number. 

LDOS with Manual. ..$139 
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CONSTRUCTION 



Let 's assemble and install that interface. 



High Density 

Graphic Interface— Part Two 



Dennis Murray 
CompuTech 
1005 Chestnut Dr. 
Christiansburg, VA 24073 

Paul Fowler, Jr. 
Enable Electronics 
2103 Charlton Lane 
Radford, VA 24141 



Last month we discussed the 
theory and operation of the 
TRS-80 video section and the 
high-resolution graphics inter- 
face. This month we'll explain 
how to assemble and install the 



high-resolution interface. The 
authors felt that the cleanest ap- 
proach would be a step-by-step 
procedure with boxes to check 
off as each step is completed. 

Finally there will be a discus- 
sion and examples of a software 
driver for the graphics. 

Assembly Procedure 

Note: Installing this board or 
opening your TRS-80 in any way 
voids the manufacturer's war- 
ranty. We suggest that you wait 
until the warranty period is over 
before adding this modification. 

You will be working with com- 
ponents that are sensitive to 



static electric discharges. 
Therefore, standard CMOS han- 
dling procedures should be fol- 
lowed. 

□ Check the circuit board 
(HR1) for solder bridges. Re- 
move any that you find. 

□ Orient HR1 so that the side 
that says "video out" (on the 
right hand side of board) faces 
you. (See Fig. 1.) 

Din descending order, solder 
memory chips IC9 thru IC4 in 
place. Be sure to start with IC9 
in the upper right-hand corner. 
This ensures that all memory 
chips find their correct mount- 
ing holes. Note the location of 



Pin 1 on each IC, which is desig- 
nated by a dot or is to the left of 
the notched edge of the chip as 
viewed from the top (Fig. 1). 

□ Solder the remaining twelve 
chips in place. 

□ Double-check orientation of 
Pin 1 on each IC according to 
the diagram in Fig. 1. 

□ Solder Dip Switch DP1 in 
place. 

□ Solder the eleven 10k resis- 
tors (R1 thru R11) to the circuit 
board. 

□ Solder the nineteen .01 uF 
capacitors as shown. 

At this point, construction of 
the high-density interface board 
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Fig. 1. All Series 74 chips are 74LS (Low Power Schottky). 
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Fig. 2. 



is complete. Next we must wire 
the board in to the TRS-80. 



case bottom for mounting the 
hi-res board, but do not mount 
the board at this time. 

□ Select a convenient loca- 
tion on the case bottom (or case 
top) and mount SW5. This switch 
is for selection of the normal 
TRS-80 graphics or the high-res- 
olution graphics. 

□ If you are going to use the 
memory disable option, locate a 
convenient location and mount 
SW6 at this time (see below). 

□ Set the case aside. 

Getting Wired 

Place the hi-res circuit board 
in front of you and examine the 



various inputs. Note: SHIFT = 
SH and SHIFT/LOAD = SH/LD. 

□ Referring to Table 1 , cut the 
wires to the length indicated. 
Trim, tin, and solder them to the 
hi-res circuit board. 

□ On shift and video out use 
twisted pair with at least three 
turns per inch. An easy way to 
make twisted pair is to chuck 
two lengths of wire in a hand 
drill, anchor, or have someone 
hold the other ends of the wires 
and turn the drill. 

Use two different colors of 
wire to make it easy to deter- 
mine which wire is grounded 
and which is signal. Be sure to 



Disassembly 

Of the TRS-80 Keyboard 

□ Remove the power, video, 
cassette, and any other cables 
connected to the CPU. 

□ Turn the keyboard face 
down on a soft surface (towel, 
rug, etc.) to keep from scratch- 
ing the finish and remove the six 
screws. Note the position of the 
different size screws; the longer 
ones go toward the rear of the 
unit. 

□ Grasp the CPU by both 
ends, flip it right side up, and lift 
off the top to expose the key- 
board. 

□ Lift the keyboard from the 
back and pull it toward you, tak- 
ing care not to stress the inter- 
connecting cable going to the 
CPU board. Remove the five 
plastic spacers from the key- 
board support posts and lay the 
keyboard back down. 

□ Holding the keyboard and 
CPU board in place, turn the en- 
tire unit upside down once more. 

□ Lift the bottom off of the 
case. 

□ Set the key/CPU boards 
aside and lay the case bottom in 
front of you so that the support 
posts face you with the longest 
posts toward the rear. 

□ Locate the left rear post. 
With component side up, place 
the large 9/16" hole of the hi-res 
circuit board over the post. (See 
Fig. 2). 

□ Using the 1/8" holes in the 
upper left and lower right hand 
corners of the hi-res board as a 
guide, mark the case bottom for 
drilling. 

□ Drill two 1/8" holes in the 




NO LESS THAN 3 
TWISTS PER INCH 



Fig. 3. 
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HRI MOUNTING 


TRS-80 


TRS-80 IC 


WIRE 


PAD I.D. 


IC# 


PIN# 


LENGTH 


A3 


Z22 


13 


4 1 / 2 " 


A2 


Z22 


11 


4Vz" 


WR 


Z22 


5 


4Vi" 


A9 


Z39 


13 


4" 


A7 


Z39 


11 


4" 


A5 


Z39 


9 


4" 


A8 


Z39 


3 


4" 


A6 


Z39 


5 


4" 


A4 


Z39 


7 


4" 


A11 


Z38 


13 


4" 


A14 


Z38 


11 


5" 


A15 


Z38 


9 


5" 


A10 


Z38 


3 


4" 


A12 


Z38 


5 


5" 


A13 


Z38 


7 


5" 


A1 


Z55 


13 


4V4" 


AO 


Z55 


11 


4*4" 


D1 


Z76 


13 


6" 


DO 


Z76 


11 


6" 


D2 


Z75 


13 


6" 


D5 


Z75 


3 


6" 


D3 


Z75 


5 


6" 


D4 


Z75 


7 


6" 


SHIFT 


Z11 


7 


5"" 


SHIFT/LOAD 


Z11 


15 


5" 


VERT 


Z32 


11 


8%" 


BLANK 


Z30 


10 


SVt" 


HORZ 


Z30 


8 


9*4" 


+ 5 


Z55 


16 


5V," 


GND 


WIDE TRACE 


(See Fig. 4) 


4" 


LATCH 


Z9 


3 


10V4" 


DOT2 


Z24 


2 


9*4" 


VIDEO OUT TO 


SW5 


(See Text) 


• 




•ASTERISK DENOTES TWISTED PAIR. 




Table 1. Connect all wires in 


the order shown 


(start at top). 




EXPANSION PORT 
EDGE CONNECTOR 

SI (RESET SWITCH) 



SCRAPE OFF SOME 
OF THE GREEN IN- 
SULATION AND SOL- 
DER HR-I GROUND 
TO THIS WIDE 
GROUND STRIP 



Starting Addr. 


Hex 










In Decimal 


Value 


S4 


S3 


S2 


S1 


61440 


FOOO 


OFF 


OFF 


OFF 


OFF 


57344 


E00O 


OFF 


OFF 


OFF 


ON 


53248 


D0O0 


OFF 


OFF 


ON 


OFF 


49152 


C000 


OFF 


OFF 


ON 


ON 


45056 


B000 


OFF 


ON 


OFF 


OFF 


40960 


A000 


OFF 


ON 


OFF 


ON 


36864 


9000 


OFF 


ON 


ON 


OFF 


32768 


8000 


OFF 


ON 


ON 


ON 


28672 


7000 


ON 


OFF 


OFF 


OFF 


24576 


6000 


ON 


OFF 


OFF 


ON 


20480 


5000 


ON 


OFF 


ON 


OFF 


16384 


4000 


ON 


OFF 


ON 


ON 


12288 


3000 


ON 


ON 


OFF 


OFF 


8192 


2000 


ON 


ON 


OFF 


ON 


4096 


1000 


ON 


ON 


ON 


OFF 





0000 


ON 

Table 2. 


ON 


ON 


ON 



ground only one end of the 
grounded pair. (See Fig. 3.) Make 
the video out twisted pair long 
enough to reach one pole of 
SW5. 

□ Place the key/CPU board in 
front of you and cut the trace 
fromZ11 Pin 13 to Z30 Pin 2. This 
trace is easy to get to from the 
unpopulated side of the board. 

□ Place the keyboard upside 
down (component side up) in 
front of you. 

□ Turn HR1 component side 
down and place it on top of the 
CPU board, being careful to 
align the large hole. 

□ Starting at the top of Table 
1, solder all wires from the origi- 
nating HR1 mounting pad to the 
appropriate TRS-80 IC pin 
number. 

□ Solder GND to the wide 
trace next to SW1 on the CPU 



board. (See Fig. 4.) 

□ Referring to Fig. 3, solder 
one side of video out to one pole 
of SW5. Use twisted pair. 

□ Solder the other pole of 
SW5 to Z11 Pin 13 on the CPU 
board. Use twisted pair. 

□ Solder the throw (center 
lug) of SW5 to Z30 Pin 2. Use 
twisted pair. 

Hi-res Memory Disable Option 

The hi-res graphics interface 
is a memory-mapped device. 
Therefore it is compatible with 
only the 4K, 16K, and 32K units. 
If the hi-res memory is to use the 
same address locations as an 
existing block of RAM, the mem- 
ories will fight each other result- 
ing in erratic performance. 

If you have a system with less 
than 48K, set switches SW1 to 
SW4 to reference a range of ad- 



KEYBOARD RIBBON CABLE 

Fig. 4. The Ground Connection 



Part 


Qty. 


Part# 


Description 


IC4, 5, 6 


6 


2147 or 5257 


4Kx1 Static Ram 


7.8,9 




or 4044 




IC18 


1 


74166 


8-Bit Shift Register 


IC11 


1 


74367 


Hex Buffer Driver 


IC15 


1 


7400 


Quad Dual Input NAND Gate 


IC17 


1 


7408 


Quad Dual Input AND Gate 


IC16 


1 


CD4001 


Quad Dual Input NOR Gate (CMOS) 


IC12 


1 


7485 


4-Bit Magnitude Comparitor 


IC1 


1 


7474 


Dual D-Type Flip-Flop 


IC13 


1 


CD4520 


Dual 4-Bit Binary Counter 


IC2, 10 


2 


7493 


4-Bit Binary Counter 


IC3, 14, 19 


3 


74157 


Quad 2-lnput Multiplexer 


DP-1 


1 




Quad (SPST) Dip Switch 


R1-R11 


11 




10k Resistor 20% 1/8 or 1/4 Watt 


SW5 


1 




SPDT Miniature Switch 


SW6 


1 




SPST Miniature Switch (optional) 


HR1 


1 




Hi-Resolution Video Circuit Board 
Braided Hook-up Wire 


C1-C20 


20 


.01 uF 


Ceramic Capacitors 


Note 


AIITTL 


Logic Chips May Be of the Low Power (LS) Series. 






Table 3. 


Parts List 
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Orange micro 



^A fTlirrO " THE COMPUTER PRINTER 

^jv» ■ ■■■*■■ ^* ^ 296 SPECIALISTS" 

UP TO 25% DISCOUNTS! — SAME DA Y SHIPMENT! 



CENTRONICS 73T(£SS&) 





Word Processing Print Quality 



• 18 x 9 dot matrix; suitable for word 
processing • Underlining • proportional 
spacing • right margin justification • serif 
typeface • 50/80 CPS • 9 1 /2" Pin 
Feed/Friction feed • Reverse Platen • 
80/132 columns 



CENTRONICS 737-1 (Parallel) (List $995) $765 

CENTRONICS 737-3 (Serial) (List $1045) $815 

*%*^ EPSON MX80/MX70 

Low- Priced 
Professional Print Quality 

• 9 x 9 dot matrix • Lower case descenders 
in • 80 CPS • Bidirectional, Logic seeking • 
40, 66, 80, 132 columns per line • 64 special 
graphic characters: TRS-80 Compatible • 
Forms handling • Multi-pass printing • Ad- 
justable tractors 

EPSON MX80 (List $645) SCall 

EPSON MX 70 Dot graphics, 5x7 matrix (List $450) SCall 



OKIDATA MICROLINE SERIES 

TRS-80 Graphics Compatibility, 
Friction Feed 



• 9 x 7 dot matrix • 80 CPS • 80, 132 
columns — 64 shapes for charts, graphs & 
diagrams • Double wide characters • 6/8 
lines per inch • Up to 3 part copy • Friction 
& pin feed • 200 M character head warranty 

OKIDATA MICROLINE 80 (List $800) $520 

OKIDATA M82 Bidirectional, Forms handling (List $960) $750 

OKIDATA M83Wide carriage. 9x9dot matrix (List $1260) $1050 



IDS PAPER TIGERS 

Dot Resolution Graphics, quality print, speed 



• 7 wire printhead (445); 9 wire printhead 
(460) with lower case descenders • Over 
150 CPS • bi-directional, logic seeking 
(460) • 8 character sizes; 80-132 columns 

• Adjustable tractors • High-resolution dot 
graphics • Proportional spacing & text 
justification (460). 






IDS 445G 7 wire printhead, graphics (List $895) 

IDS 460G 9 wire printhead, graphics (List $1394) 

IDS 560G 9 wire, wide carriage, graphics (List $1794) 



$ 750 

$1150 
$1590 



CALL FOR FREE CATALOG 

(800) 854-8275 

CA,AK, HI (714) 630-3322 

At Orange Micro, we try to fit the right printer to your application. 
Call our printer specialists for free consultation. 





VISTA — C. ITOH 



Daisy Wheel Letter Quality 

• 25 CPS (Optional 45 CPS) • Typewriter 
quality • Centronics parallel • RS 232 
Serial (Optional) • Proportional spacing • 
Bidirectional • Programmable VFU • Self 
test • Diablo compatible • Friction feed 
(Optional tractors) • 136 printable 
columns. • Manufactured byC. ITOH. 



VISTA V300 (C. ITOH) (List $1895) $ Call 

ANACOM ^^^^~ 

Low Cost, High Speed, Wide Carriage 

•9x9 dot matrix • Lower case descenders • Wide carriage • 
Adjustable tractors to 16" • 150 CPS, Bidirectional, Logic Seeking 

ANACOM 150 (List$1350) SCall 

ANADEX 

Dot Graphics, Wide Carriage 

• 11 x 9 dot matrix; lower case descenders • Dot resolution graphics 

• Bi-directional, logic seeking • Up to 200 CPS • RS 232 Serial & 
Parallel • Forms control • X-ON/X-OFF • Up to 6 part copy. 

ANADEX 9501 (List $1650) $1350 

NEC SPINWRITER 

High Speed Letter Quality 

• 55 CPS • Typewriter quality • Bidirectional • Plotting • pro- 
portional spacing. 

5510-5 RO, Serial, w/tractors (List $2995) S2625 

5530-5 RO, Parallel, w/tractors (List $2970) S2599 




TELEVI DEO CRT'S 

AT DISCOUNT PRICES! 




TVI912C 
TVI 920C 

QUANTITY PRICING AVAILABLE ' » I &U\J 



} 



Please Call Toll Free 
Prices are too low to 
advertise 



PRINTERS 

MALIBU 165 wide carriage, graphics, letter quality .. (List S2495) $1975 
QUME 5/45 typewriter quality (List $2905) $ 2559 

INTERFACE EQUIPMENT 

CCS APPLE PARALLEL Interface & cable $ 150 

APPLE II - EPSON MX80 

parallel interface board & cable $ 100 

SSM AIO BOARD Apple Serial/parallel interface (List $225) $ 175 

MICROTRONICS Atari parallel interface $ 69 

ATARI 850 Interface module, serial/parallel $ 199 

TRS-80 CABLES to keyboard or Exp. interface $ Call 

NOVATION D-CAT direct connect modem $ Call 



TELEPHONE ORDERS: Mon.-Fri. 8:30 • 5:00 

The Orange Micro Printer Store (Retail): 

Mon.-Fri. 10:00 ■ 6:00, Sat. til 4:00 



-- 



Phone orders WELCOME; same 
day shipment. Free use of VISA & 
MASTERCARD. Personal checks 
require 2 weeks to clear. Manu- 
facturer's warranty included on all 
equipment. Prices subject to 
revision. 



Orange 

flllCrO, Inc. 

3150 E. La Palma, Suite I 
Anaheim, CA 92806 



6000 
6010 
6020 
6030 
6040 
6050 
6100 
6110 
6120 
6130 
6140 
6150 
6160 
6200 
6220 
6230 
6240 
6250 
6300 
6310 
6320 
6330 
6340 
6350 
6360 
6370 
6380 

6390 
6400 



'THIS SECTION WILL "SET" SCREEN FOR GRAPHICS 
FOR W=15360 TO 16383 
POKE W,128 
NEXT W:RETURN 



1 TO "CLEAR" HI-RES SCREEN 

Z=0 

FOR W=-32768 TO -29696 

POKE W,Z 

NEXT W: RETURN 



'TO "SET" HI-RES SCREEN 
Z=191:GOSUB 6120 
RETURN 



' THIS SECTION "PUTS" XI, Yl TO SCREEN 

IF XK0 THEN STOP 

IF Xl>191 THEN STOP 

IF YK0 THEN STOP 

IF Yl>95 THEN STOP 

Il=INT(Xl/6) 'Il=HORZ. DISPLACEMENT IN BYTES 

I2=Y1*32+I1 ' I2=DISPLACEMENT FROM FIRST LOCATION 

I3=2[ (5-Xl+Il*6) ' 13 IS THE BIT MASK 

14=12-1* (65536-3276 8) 'I4=THE ABSOLUTE MEMORY LOC 

AT I ON 

I5=PEEK(I4) ' 15= PRESENT CONTENTS OF MEMORY 

IF X0=0 THEN 6500 'IF X0=0 WE WANT A BLACK DOT; IF 



X=ANYTHING ELSE WE WANT A WHITE DOT 
6410 15=15 OR 13 "ANY BITS ON LEAVE ON; OTHERWISE, LEAV 

E OFF 
6500 POKE 14,15 
6510 RETURN 
6600 13=255-13 
6610 15=15 AND 13 
6620 GOTO 6500 'GO PUT THIS BYTE TO SCREEN 

Program Listing 1. High Resolution Drive 



dresses not used by your sys- 
tem. (See Table 2.) This range 
will become the memory ad- 
dresses used by the high-resolu- 
tion graphics interface. 

If you have a 48K system, then 
you must disable a portion of 
computer RAM and enable the 
hi-res RAM when this mode is 
desired. This may be accom- 
plished with a DPDT switch as 
shown in Fig. 5. Note: The au- 
thors have not implemented the 
circuit in Fig. 5. It is presented 
only as a suggestion. 

Learning How to Blink 

Now that the serious part is 
over and we have built this 
graphics wonder, we need some 
software to make it work. This is 
accomplished quite easily with 
the BASIC subroutines in Pro- 
gram Listing 1. Recalling that 
the hi-res interface generates 
192 dots horizontally and 96 
dots vertically, let X1 =the hori- 
zontal dots and Y1 = the vertical 
dots. Therefore, X1, Y1 will de- 
fine a single point on the moni- 
tor screen. Let X© be a flag that 
defines the color of the dot: If 
X0 = the dot will be black; if 
X0 = 1 the dot will be white. As- 
sume that the screen is ready to 



accept graphics and that it is to- 
tally blank. Also, assume that X1 
= 100, Y1 =50, X0 = 1, and that 
we have just "GOne SUB" to line 
6300. Since line 6300 is a remark 
we will do nothing. 

Lines 6310-6340 check to see 
that X1 and Y1 fall within the lim- 
its of the video graphics. Line 
6350 defines the horizontal dis- 
placement in six bit bytes (re- 
member, there are only six bits/ 
word in this interface). This value 
is called 11 and is INT (100/6) = 16 
in this case. Therefore, this point 
100,50 will be located 16 bytes 
from the left side of the screen. 
Line 6360 defines 12 which is the 
displacement in 6 bit bytes from 
location 0,0. In this case 12 = 50 
lines down x 32 bytes/line + 16 
bytes from the first location on 
the screen (or 1616 bytes from 
the first location). 

The next line (6370) tells us 
which of the 6 bits in byte #1616 
will be on. As you can see 13 = 
2(5-100 + 16x6) = 2 1 =2. This 
means that the second bit from 
the right in byte #1616 is to be 
turned on. Why the second bit? 
Because two decimal equals 
000010 binary. If X1=99 you 
would find that 13 would equal 2 2 
or 4 and that is the 3rd bit over, 



or 000100 binary. 

The absolute memory loca- 
tion is given in line 6380 by 14. 
The first screen memory loca- 
tion in this example is at 8000 
hex or 32768 decimal. Therefore, 
the absolute memory location to 
poke is 32768 plus 1616, right? 
Wrong! Since the TRS-80 uses 
ones-complement to PEEK and 
POKE addresses above 32768 
we must obtain the ones-com- 
plement of 32768 + 1616. Fortu- 
nately, a handy little formula is 
defined for us in the Level II 
Manual under the section per- 
taining to PEEKS and POKEs. 
Thus, the absolute ones-compli- 
ment of the address is— ta-da— 
1616-1 x (65536 -32768) or 
-31152 decimal. (32768 is the 
starting location of the first 
screen address. If the starting 
location were C000 hex then this 
value would be 49152 decimal.) 
Clear as mud. 

Let's review. We know that we 
want to access the 1616th byte 
from the starting location of the 
screen, that the absolute loca- 
tion is -31152 in memory, and 
that we want to load that loca- 
tion with 000010 binary. So let's 
go ahead and POKE= -31152 
(2), right? Wrong! 

What about the other five bits 
in byte - 31 152? What if they're 
all on? Then we just POKED a 
black line into our screen. How 



you say? Boy, some people 
worry about everything! Re- 
member X0? X0 gives us the op- 
tion to turn 13 = 000010 off. If 
X0 = then we would have by- 
passed 6410 and obtained the 
compliment of 000010 or 1 1 1 101 
in line 6600. ANDing this with 
whatever 15 equals would leave 
location -31152 the same as it 
was except the 2's bit would be 
off. Regardless of whether X0 = 
or 1 we end up POKEing 14, 15 
in line 6500 and returning to our 
main program. 

Now, this is all well and good 
to go POKEing around in the 
raster, but if you don't heed this 
one little rule, you won't get 
what you're after! 

The TRS-80 must have its 
screen set for graphics. This is 
accomplished by setting the 
most significant bit of memory 
locations 3C00H to 3FFFH to a 
true condition (1). Use the little 
subroutine from lines 6000 to 
6030 for this. It simply POKEs the 
1024 memory locations allocated 
to the TRS-80 normal graphics 
with 10000000 binary (128 deci- 
mal). Remember in last month's 
discussion that these bits had 
to be 1s in order for the TRS-80 
graphics to be accessed. And so 
it must be for the hi-resolution 
graphics. This method allows 
the normal alphanumerics to be 
used with the hi-res graphics. 



10 GOSUB 60 00: GOSUB 


6100 








20 Z=45: X0=1 










30 D=l 










40 V=-l 










50 FOR 1=1 TO 2 










60 FOR D=D TO D+17 9 










70 A=D*.0174 










80 Xl=INT(V*COS(A)*45)+Z 








90 Yl=INT(-SIN(A)*45)+45 








100 GOSUB 6300 










110 NEXT D 










120 Z=Z+90 










130 V=-V 










140 NEXT I 










150 FOR X1=0 TO 191: 


Yl = 45 


GOSUB 


6300 


: NEXT XI 


160 FOR Y1=0 TO 95: 


Xl=96: 


GOSUB 


6300: 


NEXT Yl 


17 INPUT Q 










Program Listing 2 


Sine Wave Plot in 


BASIC 



to get around this? Simple, 
PEEK location -31152 and re- 
turn the value as 15 in line 6390. 
Look at it and leave ON bits on, 
and if bit 100,50 is off, turn it on. 
This is what happens in lines 
6410 and 6500. 

What? What about line 6400, 



Two more little subroutines 
have been added for conve- 
nience. The Clear subroutine 
from lines 6100 to 6140 will set 
ail values in the hi-res memory 
to zero giving a black screen. 
The Set routine (6200-6730) will 
set all hi-res values to one, giv- 
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ing a white screen. Now that you have High-reso- Maybe you'll even draw a few written in assembly language win be avaii- 

Now that Program Listing 1 lution capability, new horizons graphs. ■ able in June. These routines are easily ac- 

h™ k«^„ „„,*i„:„«,j I-.*. -ii cessible from BASIC and will draw a straight 

has been explained, let s say a will open to you; great chal- line between any two points or plot indivi- 
few words about Program List- lenges, empires will rise and dual d0,s - Anyone interested in this pack- 
ing 2. It's a Sine wave. Run it. fall! A set of high-speed plotting subroutines a9e should con,act ,he authors ,or pricin 9 

and recording media available. 
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^ hould I replace my old car? Should I fix 
'iJmy old car that burns leaded gas or get 
a new one that burns unleaded? Is it worth 
$1000 to get an extra five miles per gallon? 

Interesting questions, aren't they? Espe- 
cially when you consider that the difference 
between a right and a wrong answer can be 
several hundreds of dollars. A properly pro- 
grammed computer can help you find the 
right answer. That's right, your computer 
can start earning its keep. 

The hitch, of course, is in finding a prop- 
erly programmed computer. Mine didn't 
come out of the box programmed to do any- 
thing except ask MEMORY SIZE? But, for 
me, that's the fun of owning a computer. 

All the programs I've developed follow 
the same general steps. 

1) Defining the problem. 

2) Developing the necessary relation- 
ships—generally mathematical equations. 

3) Developing the basic structure for pro- 
gram. 

4) Coding the problem in computer lan- 
guage. 

5) Typing the program. 

6) Debugging. 

7) Writing documentation. 

Problem Definition 

Your problem must be defined in a way 
that the computer can be programmed to 



answer the question. At the same time, you 
must develop the criteria for making a deci- 
sion. 

The question, "Should I get a new car?" 
is not specific enough for the computer. 

What is it that we really want to know? 

The question really is: What is the opti- 
mum way to spend my car money? The cri- 
teria are economic and this optimum is de- 
fined in economic terms. 

The problem is still a long way from well 
specified. What is this economic optimum? 
How is it calculated? 



"The concept of present 

value is used in most 

investment analyses and is 

a way of comparing cash 

flows with different timing 

on a common basis. " 



Our original question is actually an in- 
vestment problem. According to one theory 
of investment analysis, the optimum is that 
month which maximizes the net present val- 
ue of keeping the old car and replacing it at 
the end of the month, compared with the 
costs of replacing the old car now. Two 
more questions: What is the value of keep- 
ing the old car? What is it's present value? 

Take the easy one first. The value of keep- 
ing the old car, V, is the total cost of owning 
and operating the new car, TC(New), minus 
the total cost of owning and operating the 
old car, TC(Old). Or mathematically: 



V = TC(New)-TC(Old) 

If the value of keeping the old car is nega- 
tive, it's obviously time to replace it. But the 
optimum time may occur while the value of 
keeping the old car is still positive. 

The total cost of owning and operating a 
car, old or new, can be broken into separate 
items. 

• The cost of fuel, F. 

• The cost of normal maintenance, M. 

• The cost of insurance, IN. 

• The cost of special repairs, S. 

• The cost of monthly car payment, IP. 

• The cost of the down payment, Down. 
The benefit of getting a new fuel efficient 

car is that fuel costs will be less for the new 
car; maintenance costs may also be lower. 
Balanced against the fuel cost savings are 
the down payment, the monthly car pay- 
ment and, probably, the cost of insurance. 
How are the future benefits and costs 
compared so that a decision can be made? 
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REMsoft, Inc. 

Let Your TRS-80® 

Teach You 

ASSEMBLY LANGUAGE 

Tired of buying book after book on assembly 
language programming and still not knowing your 
TOP from your PUSH? 

REMsoft proudly announces a more effi- 
cient way, using your own TRS-80® , to learn the 
fundamentals of assembly language programming 
--at YOUR pace and at YOUR convenience. 
Our unique package, "INTRODUCTION TO TRS-80® 
ASSEMBLY PROGRAMMING", will provide you with 
the following: 

• Ten 45-minute lessons on audio cassettes. 

• A driver program to make your TRS-80® video 
monitor serve as a blackboard for the instructor. 

• A display program for each lesson to provide 
illustration and reinforcement for what you are 
hearing. 

• A textbook on TRS-80® Assembly Language 
Programming. 

• Step-by-step dissection of complete and useful 
routines to test memory and to gain direct control 
over the keyboard, video monitor, and printer. 

• How to access and use powerful routines in your 
Level II ROM. 

This course was developed and recorded by 
Joseph E. Willis and is based on the successful 
series of courses he has taught at Meta Technologies 
Corporation, the Radio Shack Computer Center, and 
other locations in Northern Ohio. The minimum 
system required is a Level II, 16K RAM. 

REM ASSEM-1 only $69.95 



LEARN TRS-80® 

ASSEMBLY LANGUAGE 

DISK I/O 

Your disk system and you can really step out with 
REMSOFT't Educational Module. REMDISK-1, a 

"short course" revealing the details of DISK I/O 
PROGRAMMING using assembly language. 

Using the same format as our extremely popular 
introduction to assembly language programming, 
this "ASSEMBLY LANGUAGE DISK I/O PROGRAM- 
MING" course includes: 

• Two 45-minute lessons on audio cassette. 

• A driver program to make your TRS-80" video 
monitor serve as a blackboard tor the instructor 

• A display program for each lesson to provide 
illustration and reinforcement for what you are 
hearing. 

• A booklet of comprehensive, fully-commented 
program listings illustrating sequential file I/O. 
random-access file I/O. and track and sector I/O. 

• A diskette with machine-readable source codes 
for all programs discussed, in both Radio Shack 
EDTASM and Macro formats 

• Routines to convert from one assembler format 
to the other. 

This course was developed and recorded by 
Joseph E Willis, for the student with experience 
in assembly language programming; it is an inter- 
mediate-to advanced-level course Minimum hard- 
ware required is a Model I Level II, 16 K RAM one 
disk drive system 



REMDISK-1 



only $29.95 




Dealer inquiries invited 

REMsoft, INC. 

571 E. 185 St. 

Euclid, Ohio 44119 

(216)531-1338 




^70 



Include $1 50 lor shipping and handling 
Ohio residents add 5'/;% sales tax 

TRS-80'* is a trademark ol Ihe Tandy Corp 



Timing Important 

It is incorrect to compare all these costs, 
or cash flows, unless their timing is also 
considered. The comparison is made by ad- 
justing all the individual costs to a common 
time— the present. The present value of 
keeping the old car is found by taking all the 
current and future cash flows for both the 
old and new car and adjusting them to the 
present. 

Future cash flows have to be adjusted be- 
cause a dollar is worth more now than a dol- 
lar received next year. The current dollar 
can earn interest, for example, and will be 
worth a dollar plus the interest in the future. 
This adjustment is called discounting, and 
may be looked at as the opposite of com- 
pounding interest. All these discounted 
cash flows are then totaled to give the pres- 
ent value of keeping the old car. 

The discount factors are: 

• df = 1/(1 + r)tN for a one-time cash flow 
at period N. 

• df = (1-(1/(1+r)tN))/r for a series of 
equal cash flows with r<>0, 

• df = N for a series of equal cash flows 
with r = 0. 

N is the number of periods and r is the dis- 
count rate. 

One additional complication is that costs 
escalate with time. This escalation of costs 
can be balanced by replacing the discount 



rate with an effective discount rate (the dis- 
count rate minus the escalation rate). 

What is the discount rate? A good value 
for the discount rate is the risk-free interest 
that you can earn on your money. 

It is now possible to write a complete set 
of equations for keeping the old car N more 
months and then replacing it. Or purchas- 
ing a new fuel efficient car immediately. 
These equations are given in Table 1 . These 
equations include the effects of taxes, the 
trade-in value of the old car and the salvage 
value of the new car. We are interested in 
the incremental costs. If, for example, the 
escalation rate of new car prices is the 
same as the discount rate, then no costs 
are incurred as a result of lost interest by 
purchasing the new car now. 

Running the Program 

Let's begin translating the equations in 
Table 1 into a computer program. 

The program must do the following tasks: 

• Get data from the user. 

• Calculate the present value of keeping 
the old car. 

• Display the results on the CRT. 

• Print the results on a line printer, if the 
user wants. 

Each of these tasks should be handled in 
a subroutine or program module. This 
means, for example, that data input doesn't 





Fig. 


1. Sample Problem Results 




$SSSSSSSSSSSS$SS$$SSSS$$SS$SSSSS$S$$S$SS$SSS$$SSSSSSSSS$5S$$SS$S5$$S 


DETAILED RESULTS OF 


THE CALCULATIONS 




$$$$$$$$$$ $$$$$$$$$$$$$$$$$$$$$$$$$$$s$s$$ss$s$$$$s?$s$$$$$$$$$$$$s$ 


MONTH 


VALUE 


TC(OLD) 


TC(NEW) 


FUEL (OLD) -FUEL (NEW) 


$$$$$$$$$ s$?$$$$$$ss$$$$$s$$$$s$s$$$$$$s$$$$$$$$$$$s$$$$s$$$$$$$$$$$ 


1 


5.82956 


167.801 


173.63 


94.4546 


2 


11.2439 


334.658 


345.901 


188.573 


3 


16.2542 


500.574 


516.828 


282.352 


4 


20.8556 


665.562 


686.421 


375.797 


5 


25.0681 


829.621 


854.689 


468.906 


6 


28.8856 


992.755 


1021.64 


561.677 


7 


32.3131 


1154.98 


1187.29 


654.118 


8 


35.3567 


1316.29 


1351.65 


746.224 


9 


38.0243 


1476.69 


1514.72 


837.995 


10 


40.3204 


1636.2 


1676.52 


929.431 


11 


42.2443 


17 94.81 


1837.05 


1020.54 


12 


43.8068 


1952.53 


1996.34 


1111.31 


13 


45.0054 


2109.37 


2154.38 


1201.76 


14 


45.853 


2265.33 


2311.18 


1291.87 


15 


46.3442 


2420.42 


2466.76 


1381.66 


16 


46.4934 


2574.63 


2621.13 


1471.12 


17 


46.3001 


2727.99 


2774.29 


1560.25 


18 


45.7693 


2880.48 


2926.25 


1649.05 


19 


44.9036 


3032.13 


3077.03 


1737.52 


20 


43.7097 


3182.92 


3226.63 


1825.67 


21 


42.1899 


3332.88 


337 5.07 


1913.5 


22 


40.3508 


3481.99 


3522.34 


2000.99 


23 


38.1958 


3630.27 


3668.46 


2088.17 


24 


35.729 


3777.72 


3813.45 


2175.02 


25 


32.9519 


3924.35 


3957.3 


2261.55 


26 


29.8699 


4070.16 


4100.03 


2347.76 


27 


26.4893 


4215.16 


4241.65 


2433.64 


28 


22.8115 


4359.34 


4382.16 


2519.21 


29 


18.8413 


4502.73 


4521.57 


2604.45 


30 


14.5806 


4645.31 


4659.89 


2689.38 


31 


10.0381 


47 87.1 


4797.14 


2773.99 


32 


5.21436 


4928.1 


4933.31 


2858.28 

Figure continues 
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$$$5$SSSSSSSSSSS$SSSSSS$SS$S$S$SS$SSS$$$5SSSSS$SSSS$S$S$$$$SSS5SS$SS 

DETAILED RESULTS OF THE CALCULATIONS 

$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$S$$$$$$$$s$$$S$$$$$$$$$ $$$$$$$$ 
MONTH VALUE TC(OLD) TC(NEW) FUEL (OLD) -FUEL (NEW) 

$$$$s$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$s$$$$s$$$$$$$$$$$$$$$$$$$$$$$$$$$ 



33 


.11084 


5068.31 


5068.42 


2942.25 


34 


-5.26465 


5207.75 


5202.48 




ib 


-10.9077 


5346.4 


5335.49 


3109.25 




-16.8213 


5484.29 


5467.46 


3192.28 


37 


-22.9946 


5621.4 


5598.41 


327 4.99 




-29.4287 


5757.76 


5728.33 


3357.39 




-36.1167 


5893.35 


5857.24 


3439.48 


40 


-43.0562 


6028.19 


5985.14 




41 


-50.2471 


6162.29 


6112.04 




42 


-57.6792 


6295.63 


6237.95 


3683.87 


43 


-65.3555 


6428.24 


6362.88 




44 


-73.272 


6560.11 


6486.84 




45 


-81.4209 


6691.24 


6609.82 


3925.49 




-89.8027 


6821.66 


6731.85 






-98.4126 


6951.34 


6852.93 






-107.249 


7080.31 


6973.06 


4164.33 



$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 

CAB ANALYSIS 

s$$$$$ss$$$$$$$$$s$$$$$$$$s$$$$$$$$$$?$s$$$$$$$$$$$$$$$$ss$$$$$$$s$$ 

INPUT DATA 

MILES DRIVEN PER YEAR 15000 

CURRENT PRICE OF FUEL FOR OLD CAR $/GAL 1.3 

CURRENT PRICE OF FUEL FOR NEW CAR $/GAL 1.3 

MILES PER GALLON OLD CAR 12 

MILES PER GALLON NEW CAR 4 

INSURANCE COST OLD CAR S/YR 150 

INSURANCE COST NEW CAR S/YR 350 

MAINTANENCE COST OF OLD CAR PER YEAR 2 50 

MAINTANENCE COST OF NEW CAR PER YEAR 100 

PRESENT TRADE IN VALUE OF OLD CAR 500 

SALVAGE VALUE OF OLD CAR 5 00 

SALVAGE VALUE OF NEW CAR 

ESTIMATED REMAINING LIFE OF OLD CAR YEARS 4 

ESTIMATED LIFE OF NEW CAR YEARS 10 

PURCHASE PRICE OF NEW CAR S 9000 

% NEW CAR PRICE REQUIRED DOWN PAYMENT 10 

LIFE OF LOAN, YEARS 3 

NUMBER OF LOAN PAYMENTS PER YEAR 12 

YEARLY INTEREST RATE % 14 

RISK FREE RETURN ON BEST INVESTMENT % YR lfl 

ESCLATION RATE FOR FUEL PRICE FOR OLD CAR %/YR 8 

ESCLATION RATE FOR FUEL PRICE FOR NEW CAR %/YR 8 

ESCLATION RATE FOR MAINTANENCE AND INSURANCE %/YR 4 

ESCLATION RATE FOR NEW CAR PRICE % PER YEAR 5 

yOUR MARGINAL INCOME TAX RATE 



S$$$$$S$$$$$$$$$$$$$$S$$S$$$$$S$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$s$$s$$$ 
THE TIME GO GET A NEW CAR IS 16 MONTHS 

ON THE NEXT PAGE VALUE IS THE NET PRESENT VALUE OF REPLACING THE 

OLD CAR J MONTHS FROM NOW INSTEAD OF NOW 

TC(OLD) IS THE PRESENT VALUE OF THE COST OF THE OLD CAR FOR J MONTHS 

TC(NEW) IS THE SAME FOR THE NEW CAR AND FUEL (OLD) -FUEL(NEW) IS 

THE SAVING IN FUEL THAT RESULT FROM REPLACING THE OLD CAR NOW. 



F(Old)= D.P(Old)/MPG(Old).(1 -(1/(1 +r -f)tN))/(r-f) 

F(New)= D-P(New)/MPG(Old).(1 -(1/(1 +2-f)tN))/(r-f) 

M(Old)= R(Old).(1 -(1/(1 + r-e)tN))/(r-e) 

M(New) = R(New).(1 - (1/(1 + r - e)tN))/(r - e) 

IN(Old)= l(Old).(1 -(1/(1 +r-e).N))/(r-e) 

IN(New)= l(New).(1 -(1/(1 +r -e)tN))/(r-e) 

S(Old) = S/(1 + r)tN 

C(New)= CP.(1 -(1/(1 +r-c)tN)).(1 -(1 -sv)/((1 +c)t12-L)- 1))-SV-(1 -(1/(1 + r-x)tN)) 

Down= d-C(New) 

IP(New)= (1 -d)-C(new).i/(1 -(1/(1 +1)tM))-(1 -(1/(1 +r)tM))/r 

TD(New) = T.(IP(New) - (1 - d)-C(New).(df1 - l)/((1 + 1 -df2)) 

df1= i/(1-(1/(1+i)tM)) 

df2= (r-i)/(i-(i/(i + r -i)tM)) 

V(Old) = (new) - F(Old) + IN(New) - IN(Old) + R(New) - R(Old) + Down + IP - S(Old) - TD(New) 

Where D = distance driven per month, P = price of fuel, R = monthly cost of repairs, I = monthly cost of insurance, 
S = cost of one time repairs to old car, CP = purchase price of new car, r = discount rate, f = escalation rate of fuel, 
e = escalation rate for repairs and insurance, c = escalation rate for new car price, i = interest rate for loan, M = 
number of loan payments, L = life of new car, SV = trade in value of old car, s = escalation rate of trade in value of 
old car (may be negative), d = fraction of purchase price required for down payment, sv = salvage value of new car. 

Table 1. List of Equations 



affect anything else in the program and vice 
versa. We'll also need a main program to 
keep track of things and allow the various 
subroutines to communicate with each 
other. And finally we need a module that 
lists all of the variables and tells a little bit 
about what the program is all about. This fi- 
nal module— the documentation module- 
is not a substitute for written documenta- 
tion. 

The program structure is now fixed. The 
structure is shown in Table 3. 

The documentation module is a series of 
remark statements. As a minimum this 
module should contain a list of all the vari- 
ables used in the program and what they 
are used for. 

The main program module is a series of 
GOSUB statements that transfer control to 
the other modules as needed. 

The first module that requires discussion 
is the data input module. The data we need 
are: 

• Average miles driven per month. 

• Miles per gallon for old car. 

• Miles per gallon for new car. 

• Price of fuel for old car. 

• Price of fuel for new car. 

• Escalation rate for fuel, old car. 

• Escalation rate for fuel, new car. 

• Insurance premium for old car. 

• Insurance premium for new car. 

• Escalation rate for insurance. 

• Average monthly cost of normal 
maintenance for old car. 

• Average monthly cost of maintenance for 
new car. 

• Escalation rate for repairs. 

• Estimated cost of any special repairs for 
old car. 

• Purchase price of new car. 

• Percent of purchase price required for 
down payment. 

• Yearly interest rate for new car loans. 

• Escalation rate for new car prices. 

• Number of years of loan. 

• Number of loan payments per year. 

• Discount rate. 
That's a lot of data. 

Because the data input section is the 
main interface between the user and the 
computer, we need to make sure that you 
can get your data into the computer and 
correct any errors. The program will ask for 
each piece of information needed by name 
and also indicate what the units are. The 
easiest way to do this is to set up a string ar- 
ray which contains the names of the data 
items. We will also set up a numeric array to 
hold the data. 
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At5 1 / 2 , 

she's 
reading 

and 

thinking 
at a 4th 
grade 

level. 




Is she a prodigy? Not at all! When learning is fun, your child can rapidly increase reading comprehen- 
sion and reasoning power beyond current age level. 

Now you can advance your child's educational level— without coaxing or hiring an expensive tutor. Everyone knows the best 
student-teacher ratio is 1:1. In modern classrooms, this is impossible. But in your own home, it's as easy as C.A.I. (Computer- 
Aided Instruction). Without the distractions of a crowded classroom, students can progress, without pressure, at their own 
pace. 

Computers are fun, and once the fun is introduced, studying becomes a pleasure— instead of a chore. The ability to interact 
with the computer will motivate your child to learn much more than from a book that cannot respond— a book that is too easily 
closed. These Instant Software programs will guide and teach each lesson with the infinite patience only a computer can pro- 
vide. Each of the twelve packages have been written and edited by professional educators who know what it takes to make a 
child want to learn. You can introduce your child to the world of learning by computer with Instant Software's Educational Soft- 
ware Series. All 12 packages are available now. 



ARCHIMEDES' APPRENTICE 

Archimedes Apprentice is a geometry package that will 
teach your child the formulas used to find the volume of any 
solid object, including parallelopipeds (cubes and rectangu- 
lar solids), prisms, pyramids, cylinders, cones and spheres. It 
will even quiz the student on how well the lesson was learned. 
Give your child the advantage of learning these concepts at 
home, before being faced with them in a classroom. Order No. 
0092R $9.95 

TYPING TEACHER 

A complete seven-part package that guides you from 
familiarization of the keyboard through typing words and 
phrases to mastery of touch-typing. Your video monitor be- 
comes a bottomless page for typing practice, and your own 
private TYPING TEACHER, ready to teach when you're ready 
to learn. Order No. 0099R $9.95 

TEACHER'S AIDE 

Now you can have the benefit of Computer Assisted In- 
struction (CAI) in your own home. The Teacher's Aide program 
allows you to create tailor-made lessons for your child. The 
features of this program include the ability to review material 
before taking the lesson, a provision for hints to help answer 
questions and graphic displays as a reward for answering all 
questions correctly. Once you've created a lesson, you can 
save it and create an entire sequence of lessons. 

The Teacher's Aide package is perfect for parents, teach- 
ers, and students who need the unlimited patience only a 
computer can provide. Order No. 0214RD (disk-based) $39.95 



VIDEO SPEED READING TRAINER 

With this package, students can increase their reading 
speed and comprehension. How? With practice! This three 
part program will flash characters, words and phrases onto 
the monitor screen. You must then type what you saw on the 
keyboard and enter it. You can begin at a relatively slow 
speed. As your speed and comprehension increase, the com- 
puter will automatically advance your speed. Order No. 0100R 
$9.95 

IQ TEST 

Are you smart enough to buy this package? IQ TEST will ad- 
minister and score an intelligence test in 30 minutes. There 
are three equivalent tests, each consisting of 35 questions, 
designed to test your general knowledge and problem-solving 
abilities. Most of us claim a "touch of genius"— here's your 
chance to prove it! Order No. 0157R $9.95 

VOCABULARY BUILDER 

One of the most valuable tools your child can possess is a 
comprehensive vocabulary.With Instant Software's VOCABU- 
LARY BUILDER package, you can help your child develop a 
better understanding of the English language— and the fun is 
in the learning! The crossword puzzle format of these pro- 
grams will hold the attention of the most reluctant student. 
The first program in this package is "Polonius," offering 140 
crossword puzzles. The second is "VeeBeeGee," a program 
that provides the letters and allows the student to construct a 
puzzle on the game board. The VOCABULARY BUILDER pack- 
age is educational entertainment for all ages— and it's never 
at a loss for words. Order No. 0198R $9.95 




Prices subject to change without notice. 

PETERBOROUGH, N.H. 03458 
603-924-7296 
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Now Your Child Can Learn More. . 



*« 



* 



At a Faster Pace 



GEOGRAPHY EXPLORER: U.S.A. 



«0 



^ 



This program allows your child to travel the country and 
learn vital facts about each of our 50 states. Geography Ex- 
plorer offers the most fascinating way of learning yet. Learn 
each state's name, capitol, largest city, nickname, etc. As a 
bonus, this package offers the capability of light pen use. 
Order N o. 0071 R D $49.95 



* 



0* 



MATH MASTER 



MATH MASTER is an educational package designed to 
help your child understand the mathematical concepts of 
addition, subtraction, multiplication and division through 
problem solving. This package also instructs the student in 
fraction problem solving. MATH MASTER will "walk" your 
child through the developmental concepts of mathematics 
with never-ending patience. Order No. 0257R $9.95 

WORDWATCH 

Wordwatch consists of 4 different programs, each de- 
signed to enhance your child's understanding of word rela- 
tionships—this results in an improved vocabulary. In WORD- 
RACE, the student must choose the proper definition for a 
given word. HIDE 'N SPELL asks the student to find misspell- 
ings. In SPELLING BEE, the student takes a pre-recorded quiz 
in which words are played aloud! Completing the package is 
SPELLING TUTOR, where words are jumbled, reversed or 
otherwise altered, and it's up to the student to straighten 
them out! Together, these four programs will help decrease 
dictionary dependency! Order No. 0111 R $7.95 



OMNI-CALCULATOR 

This package is a brilliant solution to the problems involv- 
ing the complex world of different units of measure. It pro- 
vides rapid means of conversion from one unit of measure to 
another in any of 10 categories: length, volume, mass, veloci- 
ty, area density, power, energy, pressure/stress and temper- 
ature. Omni Calculator will give your child a great learning ad- 
vantage, a head start in understanding the complex relation- 
ships between different units of measure. Order No. 0211RD 
$19.95 



*fi 



^ THE ELEMENTS 

This program can be used to introduce students to the 
periodic table of the elements, or for review by students and 
adults who want to refresh their memory in chemistry. It in- 
cludes each of the elements' name, atomic number, weight 
and symbol, as well as its acid/base and normal physical 
state. Enrich your child's knowledge of science with the help 
of THE ELEMENTS. Order No. 021 6R $9.95 

LIFE 

Even if you've only been involved with computers for a short 
while, you're sure to have heard of LIFE. This program is the 
computerized simulation of the life cycle of a colony of 
bacteria. It is based on a few simple concepts, but the results 
are captivating, animated graphics and an enlightening intro- 
duction into the world of biology and genetics. The LIFE pro- 
gram may be just the motivation your child needs to pursue 
an interest in the sciences. Order No. 0078R $9.95 



TO ORDER: 



For the 
TRS-80* 



See your local 

Instant Software dealer. 

If these packages are 

unavailable, order direct 

or 

CALL TOLL FREE 
1-800-258-5473 

(We ship within 48 hours) 

We Guarantee It! 

mwffimmwfiiMWWffiirQ 




2/G Guarantee ^ 



OUR PROGRAMS ARE GUARANTIED 
TO BE QUALITY PRODUCTS. IF NOT 
COMPLETELY SATISFIED YOU MAY 
RETURN Till PROGRAM WITHIN 60 
DAYS. A CREDIT OR REPLACEMENT 
WILL Bl WILLINGLY GIVEN FOR 
<^S ANY REASON. 

"TRS-80 is a trademark of the TANDY CORPORATION. 






"The microcomputer will be a power- 
ful tool in education. One of its greatest 
advantages is its interactive nature— 
the student becomes an active partici- 
pant in learning, and the computer can 
give immediate feedback. The student 
does not have to wait until the lesson is 
complete or the teacher is free to check 
his work; the computer can evaluate the 
work immediately, and reward him if it 
is correct or explain why if the work is 
incorrect. The computer can then deter- 
mine, on the basis of his work, whether 
the student is ready to go on to the next 
lesson or needs to review the present 
one. 

"Educational computer programs 
will be available for students at all 
levels— from pre-school to post-col- 
lege, from remedial to gifted— and in 
any subject. These programs can give a 
child a headstart in school; they can 
reinforce and provide practice in con- 
cepts from hand-eye coordination to 
Math to English or even Health. A com- 
puter can individualize a program to a 
child's level and pace. Programs will 
challenge the gifted child, allowing him 
to advance at his own pace. Best of all, 
educational computer programs can 
make learning fun." 



Mary Shooshan, Educational Software Editor and former teacher 





ftware 



All packages are on cassette except for 
Geography Explorer: USA, Omni-Calculator 
and Teacher's Aide which are on disk. 

PETERBOROUGH, N.H. 03458 
603-924-7296 



^See List ot Advertisers on page 306 



80 Microcomputing, May 1981 • 91 



The program will go through a loop that 
will call up the name of the item that the 
computer needs and allow the user to input 
the value. It is also a good idea to print the 
current value of the variable when we ask 
for it. This means that both the PRINT and 
INPUT statements must be used. The PRINT 
statement asks the question and displays 
the current value, and the INPUT statement 
gets the data. 

What about errors? After we have gone 
through the data input loop and obtained all 
the data, let's clear the CRT and display it 
all. Now the program asks "Are these data 




correct?" If not, then you can re-enter any 
corrections. If all data are correct control re- 
turns to the main program. Calculations 
cannot begin until you have answered "ARE 
THESE DATA CORRECT?" with "YES." 

The program uses INKEY$ to get your an- 
swer. You need only answer Y or N. Press- 
ing any other key repeats the question: 
please answer Y or N. Since there will be 
several times when we want a Y or N re- 
sponse. I built a small subroutine to get the 
Y or N response. This is a good subroutine 
to have around for other programs. 

The module that calculates our equa- 
tions is straightforward. Notice that the dis- 
count factor must be calculated for all of 
the cash flows. One way to calculate this is 
be means of the user-defined function in 
Level III or Disk BASIC. In this case we 
would write: 

100 DEFFNDF(R,N)=(1-(1/(1 + R)TN))/R 

Note that both R and N are dummy vari- 



ables. 

There are two disadvantages to using the 
user-defined function. First, we limit the 
transportability of the program to Level III 
and Disk BASIC users. Secondly, the case 
of R = cannot be handled. 

On the other hand a simple BASIC sub- 
routine can handle the problem R = and 
still be transportable to other computers. 
The subroutine would look like this: 

1000 REM DISCOUNT FACTOR SUBROUTINE 

1010 IF R = 0THEN DF = N ELSE DF = (1 -(1/(1 + R)TN))/R 

1020 RETURN: REM END OF SUBROUTINE 

To use this approach, R and N must be set 
by the calling program before the GOSUB 
instruction. 

To display the results, first clear the CRT. 
Then, print the number of months to 
keep the old car. Next, the program asks the 
user if he wants to see detailed results. If 
so, the program displays a year at a time the 
value of keeping the old car and the various 
cost items for each month. 

If you need a printed version, the CRT dis- 
plays the input data, then prints it. 

After everything is printed, or, even if you 
decline the hard copy, the program asks if 
you want to run another problem. If so con- 
trol transfers back to the data input module. 
Otherwise, the programs ends. 

Debugging 

Program debugging is straightforward. 
Debug each module as it is written. Com- 
pare the calculated discount factors with 
published tables. When the entire program 
is written (and after each module has been 
debugged) test the extremes of data input. 
If a problem comes up, look for such things 
as a variable with a three-character name, 
lowercase in the string statements, bad log- 
ic in IF statements, bad input data or failure 
to convert percent. Most of the debugging 
should be simple because of the modular 
construction of the program. 

We're done, right? Wrong! We need to 
document the program. 

Program documentation should consist 
of two parts. A part for the user and a part 
for the programmer. They need different in- 
formation about the program and it's up to 
us to provide it. 

The user doesn't care how the program 
works. He needs to know how to run the pro- 
gram, what data is required, what the re- 
sults mean and what other applications he 
has for the program— without modifying it. 

The programmer needs to know how the 



program works so he can patch it, if neces- 
sary, or so he can customize it. He must 
know what special tricks you used, so he 
can translate the program to another com- 
puter that doesn't have the same features 
as yours. 

Documentation 

Program title: Car Analysis by L. E. Sparks 

Abstract: This program calculates the op- 
timum time to keep an old car before replac- 
ing it with a new, more fuel efficient car. The 
optimum time is defined as that time which 
maximizes the present value of keeping the 
old car. The program can also be used to 
analyze the economics of purchasing other 
fuel or energy efficient appliances. 

Language: TRS-80 Level II or Disk BASIC. 

Hardware: TRS-80 Level II Microcomput- 
er with 16K RAM is minimum. Printer is op- 



Name 


Description 


F VARIABLES 


Strings used as labels 


X(1) 


Miles driven per year 


X(2)&X(3) 


Fuel price old and new 


X(4)&X(5) 


MPG old and new 


X(6)&X(7) 


Insur. old and new 


X(8)&X(9) 


Maint. old and new 


X(10) 


Trade in value old 


X(11)&X(12) 


Salvage value old and new 


X(13)&X(14) 


Life old and new 


X(15) 


Price new car 


X(16) 


Percent down required 


X(17) 


No. yrs of loan 


X(18) 


No. paymets per yr 


X(19)&X(20) 


Int. and discount rates 


X(21)&X(22) 


Excalation fuel old and new 


X(23) 


Escalation insur. and maint. 


X(24) 


Escalation new car price 


X(25) 


Income tax rate 


X1-X4 


Effective disc, rate monthly 


DR 


Monthly discount rate 


DX 


Fract. down 


YM 


Max. life old car 


JM 


Optimum life old car 


VM 


Max. present value old 


M 


No. car payments 


L 


Monthly loan rate 


V(J) 


NPV of old car for J mo. 


TL(J) 


Total cost of old for J mo. 


TH(J) 


Total cost of new for J mo. 


XL(J) 


Total fuel old for J mo. 


XH(J) 


Total fuel new for J mo. 


N&R 


Dummy variables 


IL&IH 


Monthly insur. costs 


RL&RH 


Monthly repair costs 


Functions Used 




IN KEYS 


Get single character 


LPRINT 


Line printer command 


CHR$(29) 


Print normal letters 


CHR$(28) 


Print large letters 


CHR$(140) 


Top of form 


Table 2. Symbol Table 
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tional. 

User instructions: The program will ana- 
lyze the economics of investing in a fuel effi- 
cient car as opposed to keeping your old 
car. The program calculates the present val- 
ue of keeping the old car at the end for N 
months, where N varies from one to the re- 
maining life of the old car. The time to re- 
place the old car is at the end of the month 
with the highest present value. Note that if 
the present value is always negative, the 
time to replace the car is now. 



• Documentation module 

• Main program module (used to transfer control) 

• Initialization module (used to initialize every- 
thing) 

• Data input module (used to get data from key- 
board) 

• Calculation module 

• Display module (used to display result on CRT) 

• Line printer module (used to print results on 
printer) 

Table 3. Program Structure Outline 



To use the program load it into the com- 
puter, type RUN and press ENTER. In a few 
seconds the message CAR ANALYSIS BY 
LESLIE E. SPARKS VERSION 1.0 PLEASE 
ENTER THE DATA ASKED FOR. IF YOU 
MAKE A MISTAKE DON'T WORRY. YOU 
WILL HAVE A CHANCE TO CORRECT IT 
BEFORE CALCULATIONS START, will be 
displayed on the CRT. Enter the requested 
data and press ENTER after each item. If 
you make a mistake and find it before you 
have pushed ENTER, use the back arrow to 
correct it. Otherwise, keep going; you will 
have a chance to correct the error later. 

After all of the data have been entered, 
they will be displayed in two blocks. You will 
be asked if the data are correct. If they are 
not, press N, and the program will allowyou 
to re-enter any incorrect data. When all of 
the input data are correct, press Y. You can- 
not get into the calculation portion of the 
program until you have answered the ques- 
tion ARE THESE DATA CORRECT? by press- 
ing Y. 

As soon as you press Y, the computer 
starts calculating. The calculations take 



Program Listing. Should I Buy a New Car? 



10 REM SHOULD I BUY A NEW CAR? TRS-80 LEVEL II BY L.E.S 

PARKS 
20 REM DISK FILE NAME CAR VERSION 1.0 j MAY 1980 
30 REM ALL F VARIABLES ARE STRINGS AND ARE USED FOR LAB 

ELS 
40 REM X(1)=MILES DRIVEN PER YEAR , X ( 2) =PBICE OF FUEL OL 

D CAR 
50 REM X(3)=PRICE OF FUEL NEW CAR,X(4)=MPG OLD,X(5)=MPG 

NEW 
X(6)=INSURANCE OLD, X (7 ) =INSURANCE NEW,X(8)=MA 

INT OLD, 
X(9)=MAINT NEW,X(10)=TRADE IN VALUE OLD,X 

(11)=SALVAGE VALUE OLD 
X(12)=SALVAGE VALUE NEW,X(1 

3)=REMAINING LIFE OLD, X ( 14 ) =LIFE NEW 
60 REM X(15)=PRICE NEW CAR, X(16)=%DOWN PAYMENT, X(17)= 

LIFE 
OF LOAN, X(18)=PAYMENT PER YEAR, X ( 19) =INTER 

EST RATE, X( 20) 
DISCOUNT RATE, X { 21 ) &X ( 22) =ESCLATIO 

N RATE FUEL PRICES OLD AND NEW 
X(23)=ESCLATION INS 

UR&MAINT,X(24)=ESCLATION NEW CAR 
70 REM X(25)=MARGINAL INCOME TAX RATE, X1-X4=EFFECTIVE 

MONTHLY 
ESCLATION RATE IN FRACTION ,DR=MONTHLY DISC 

OUNT RATE FRACTION, 
DX=DOWNPAYMENT AS FRACTION, YM= 

MAX LIFE OLD CAR IN MONTHS, VM= 
MAX NET PRESENT VA 

LUE OLD CAR 
80 REM JM=OPTIMUM NUMBER OF MONTHS TO KEEP OLD CAR , M=NU 

MBER 
OF CAR PAYMENTS, L=MONTHLY INTEREST RATE,TL(J 

)=TOTAL PRESENT 
VALUE OF COST OF OLD CAR FOR J MON 

THS, TH(J) SAME FOR NEW CAR 
90 REM XL(J)SXH(J) TOTAL PRESENT VALUE OF FUEL COSTS FO 

R OLD AND 

Program continues 



MORE FOR YOUR 

RADIO SHACK 
TRS-80 MODEL I ! 



* MORE SPEED 

10-20 times faster than Level II BASIC. 

* MORE ROOM 

Compiled code plus VIRTUAL MEMORY 
makes your RAM act larger. 

* MORE INSTRUCTIONS 

Add YOUR commands to its large instruc- 
tion set! 

Far more complete than most Forths: 
single & double precision, arrays, string- 
handling, more. 

* MORE EASE 

Excellent full-screen Editor, structured & 
modular programming 
Optimized for your TRS-80 with keyboard 
repeats, upper/lower case display driver, 
single- & double-width graphics, etc. 

* MORE POWER 

Forth operating system 

Interpreter AND compiler 

Internal 8080 Assembler 

(Z80 Assembler also available) 

VIRTUAL I/O for video and printer, disk 

and tape 

(10-Megabyte hard disk available) 




FORTH 



» 



THE PROFESSIONAL FORTH 
FOR TRS-80 MODEL I 

(Over 1,000 systems in use) 

MMSFORTH Disk System V1.9 (requires 1 disk 

drive S 16K RAM) just $79.95* 

MMSFORTH Cassette System V1.8 (requires 
Level II BASIC & 16K RAM) $59.95" 

AND MMS GIVES IT 
PROFESSIONAL SUPPORT 

Source code provided 
MMSFORTH Newsletter 
Many demo programs aboard 
MMSFORTH User Groups 
Programming staff can provide advise, 
modifications and custom programs, 
to fit YOUR needs. 

THE DATAHANDLER V1.1, a very sophisticated 
database management system operable by non- 
programmers (requires Disk MMSFORTH, 1 drive 
& 32K RAM); with manuals $59.95* 

MMSFORTH UTILITIES DISKETTE: includes 
FLOATING POINT MATH (L.2 BASIC ROM rou- 
tines plus Complex numbers, Rectangular-Polar 
coordinate conversions, Degrees mode, more), 
plus a full Forth-style 280 ASSEMBLER; plus a 
powerful CROSS-REFERENCER to list Forth 
words by block and line. All on one diskette (re- 
quires MMSFORTH, 1 drive & 16K RAM). $39.95* 

MMSFORTH GAMES DISKETTE: Real-time 
graphics and board games w/source code. In- 
cludes BREAKFORTH, CRASHFORTH, FREE- 
WAY, OTHELLO, and TICTACFORTH (requires 
MMSFORTH, 1 drive & 32K RAM) $39.95* 

FORTH BOOKS AVAILABLE 

MICROFORTH PRIMER (comes with MMS- 
FORTH) separately $15.00* 

USING FORTH — more detailed and advanced 

than above $25.00* 

THREADED INTERPRETIVE LANGUAGES- ad- 
vanced, excellent analysis of MMSFORTH-like 

language $18.95* 

CALTECH FORTH MANUAL — good on Forth in- 
ternal structure, etc $10.00* 

PROGRAM DESIGN and CONSTRUCTION — in- 
tra to structured program, good for Forth $8.95* 

* — Software prices include manuals and re- 
quire signing of a single-system user license. 
Add $2.00 S/H plus $1.00 per additional book; 
Mass. orders add 5% tax. Foreign orders add 
20%. UPS COD, VISA & M/C accepted; no unpaid 
purchase orders, please. 

Send SASE for free MMSFORTH information. 
Good dealers sought 

Get MMSFORTH products from your 

computer dealer or ^ 11Z 

MILLER MICROCOMPUTER 
SERVICES (M5) 

61 Lake Shore Road, Natick, MA 01760 
(617)653-6136 
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"A reasonable discount rate is 

the maximum interest or return that 

you can earn on a risk free investment." 



several seconds. 

As soon as the calculations are com- 
plete, the optimum time to keep your old car 
is displayed on the CRT along with the 
question DO YOU WANT DETAILS? Answer 
the question by pressing Y or N. You do not 
need to press ENTER. If you want the de- 
tails, the results of the calculations for each 
month will be displayed, one year at a time. 
To go on to the next year press any key. 

Regardless of how you answer the ques- 
tion about details, you will be asked DO 
YOU WANT HARD COPY? Again answer Y 
or N. If you want hard copy, the input data 
and all of the information that was dis- 
played on the CRT will be printed. 

The last question you will be asked is DO 
YOU WANTTO RUN ANOTHER PROBLEM? 
Answer Y or N as before. If you answer Y, 
you will find yourself back in the data input 
portion of the program. All of the data you 
used in the previous calculation is still in 
the computer. When you get in the data in- 
put loop, you will find these data in paren- 
thesis. If you want to keep the value dis- 
played, press ENTER; otherwise enter the 
new data. If you answer N, the program run 
will be terminated and control returned to 
BASIC as indicated by READY. 

Although the program is specifically writ- 
ten to provide an answer to the new car 
question, it can analyze the economics of 
other investments involving a choice of 
keeping an old, less efficient device and re- 
placing it with a new, energy efficient de- 
vice. The input data have to be redefined but 
no programming changes are required. 

Interpretation of results: The program 
uses present value as the criterion for deter- 
mining the economic advisability of replac- 
ing the old car. The concept of present val- 
ue is used in most investment analyses and 
is a way of comparing cash flows with dif- 
ferent timing on a common basis. The soon- 
er a dollar is received, the higher its present 
value is. The best investment is the one that 
maximizes the present value. Thus the opti- 
mum time to get rid of the old car is at the 
end of the month that has the highest pre- 
sent value. Note that if the present value of 
keeping the old car is always negative, the 
time to replace it is now. 

The present value of a cash flow is a func- 
tion of the discount rate used to calculate 
the present value. A reasonable discount 
rate is the maximum interest or return that 
you can earn on a risk free investment. The 
program uses a default of 10 percent per 



NEW CARS FOR J MONTHS, IL&IH MONTHLY INS 

URANCE COSTS FOR OLD&NEW 
100 REM RL&RH=MONTHLY REPAIR COSTS FOR OLD AND NEW CARS 
110 REM DP(J)=PRESENT VALUE OF DOWNPAYMENT COST AT END 

OF J MO. 
120 REM IP(J)=PRESENT VALUE OF CAR PAYMENTS FOR J MONTH 

S 
130 REM TD TAX DEDUCTION FOR INTEREST 
140 CLEAR 500: REM CLEAR STRING SPACE 
150 GOTO 190 :REM TRANSFER TO MAIN PROGRAM 
160 REM SUBROUTINE TO CALCULATE DISCOUNT FACTOR 
170 IF R = THEN DF=N ELSE DF = ( 1- (1/ (1+R) [N) )/R 
180 RETURN 

190 REM MAIN PROGRAM 
200 GOSUB 350 :REM INITIALIZE 
210 GOSUB 900 : REM GET INPUT DATA 
220 GOSUB 1190 :REM DO CALCULATIONS 
230 GOSUB 17 90 : REM DISPLAY RESULTS 
240 PRINT n DO YOU WANT HARD COPY?" 
250 GOSUB 290 : REM GET INPUT FROM KEYBOARD 
260 IF Y$ ="Y" THEN GOSUB 2050 :REM PRINT IT ON LINEPRI 

NTER 
27 PRINT" DO YOU WANT ANOTHER CASE?" 
280 GOSUB 290 : IF Y$="Y" THEN 210 ELSE END 
290 REM SUBROUTINE TO GET Y OR N FROM KEYBOARD 
300 Y$=INKEY$:IF Y$=""THEN 300 
310 IF Y$ ="Y" OR Y$ ="N" THEN 340 
320 PRINT"PLEASE ANSWER Y OR N" 
330 GOTO 300 
340 RETURN 

350 REM INITIALIZE EVERYTHING 
36 DEFSTR F 
370 DEFINT J 
380 DR=0:X1=0:X2=0:X3=0:X4=0:YM=0:VM=0:M=0:L=0:D=0:IL=0 

:J=0:IH=0 
390 RL=0:RH=0:C=0:N=0:R=0:DF=0:IP=0:IK=0:REM INITIALIZE 

VARIABLES 
USED LATER FOR SPEED 
400 DIM X(25),F(25) ,V (120 ) ,TH (120 ) ,TL (120 ) , IL (120 ) , IH (1 

20) ,RL(120),RH(120),IP(120) 
410 DIM XL(120) ,XH(120) ,DP(120) 
420 F(1)="MILES DRIVEN PER YEAR" 

430 X(1)=15000:X(2)=1.3:X(3)=1.3:REM SET UP DEFAULTS 
440 F(2) ="CURRENT PRICE OF FUEL FOR OLD CAR $/GAL" 
450 F(3)="CURRENT PRICE OF FUEL FOR NEW CAR $/GAL" 
460 F(4)="MILES PER GALLON OLD CAR" 
470 X(4)=12 

480 F(5)="MILES PER GALLON NEW CAR" 
490 X(5)=40 

500 F (6)=" INSURANCE COST OLD CAR $/YR" 
510 X(6) =150 

520 F(7) ="INSURANCE COST NEW CAR $/YR" 
530 X(7)=350 

540 F(8) ="MAINTANENCE COST OF OLD CAR PER YEAR" 
550 X(8)=250 

560 F(9) ="MAINTANENCE COST OF NEW CAR PER YEAR" 
570 X(9)=100 

580 F( 10)= "PRESENT TRADE IN VALUE OF OLD CAR" 
590 X(10)=500 

600 F( 11)= "SALVAGE VALUE OF OLD CAR" 
610 F( 12)= "SALVAGE VALUE OF NEW CAR" 
620 X(ll)=500 

630 F(13)="ESTIMATED REMAINING LIFE OF OLD CAR YEARS" 
640 X(13)=4 

650 F(14)="ESTIMATED LIFE OF NEW CAR YEARS" 
660 X(14)=10 

670 F( 15)=" PURCHASE PRICE OF NEW CAR $" 
680 X(15)=9000 

690 F(16)="% NEW CAR PRICE REQUIRED DOWN PAYMENT" 
700 X(16)=10 

710 F(17)="LIFE OF LOAN, YEARS" 
720 X(17)=3 

7 30 F( 18)= "NUMBER OF LOAN PAYMENTS PER YEAR " 
740 F(19)="YEARLY INTEREST RATE %" 
750 X(18)=12:X(19)=14:X(20)=10 

760 F(20)="RISK FREE RETURN ON BEST INVESTMENT % YR" 
770 F(21)="ESCLATION RATE FOR FUEL PRICE FOR OLD CAR %/ 

YR" 
780 F(22)="ESCLATION RATE FOR FUEL PRICE FOR NEW CAR %/ 

YR" 
790 F(23)="ESCLATION RATE FOR MAINTANENCE AND INSURANCE 
%/YR" 

Program continues 
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Whatever 
happened to 
eenie, meenie, 
miney, mo? 



Maybe thi.s'll 
help me choose 
a career. . . 



I could be 
another 
l Solomon . 




This may put 
the Godfather 
out of business. 

Ifonly 
my heart 
would stop J 
^racing... 



It must use 

Bayesian, 

weighted factor 

.analysis, and... 




Brilliant.' 
Like a window 
into the future. 



Would I 
rather have 
Winston's millions 
or Billy Joe's 
love? 



I could 
use it to 
select my staff. 



Should I 
buy stock 
or commodities 
in this economy? 




Hmmmm . . . 

could be 

my ticket 

to the Boardroom. 



Can't any 

of these people 

afford $29.95? 



^'Pitr-r,'' 



TM 

When DecisionMaster speaks everybody listens 

Let's face it. We all have to make decisions. Decisions that can change our lives. Decisions that can 
make us happy or unhappy. Decisions that could win us fame or fortune. Now. DecisionMaster 
can help you make the best decisions of your life. 

Use Bayesian theory to peer into the future. ..even if you've never heard of the Baycs'Rule. 
Do a complete weighted factor analysis. . .without knowing what one is. Use discounted 
cash flow to compare investment alternatives without bothering with present value 
tables. These and other sophisticated theories that were once the exclusive domain of 
professors and top business executives are built into DecisionMaster's algorithms. . . 
so you can use them at the touch of a key! 

DecisionMaster is easy to use. It features: 

• A fully documented manual developed by an authority in the field. 

• A unique program-controlled cross reference system. 

• A powerful formatted-screen data entry system. 

You'll use DecisionMaster in hundreds of routine decisions, 
as well as more important ones such as* Buying a house 

• Changing jobs* Selecting investment* Evaluating insur- 
ance policies* Expanding product lines* Leasing vs. 
purchasing. 

If you buy only one computer program this year, 
make, it DecisionMaster. And when it speaks, 
listen. 
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OURS 
WORK! 

ACCOUNTING 
PROGRAMS 

from the company with 

years of experience 

on small computers 

and thousands of customers 



prices resulting from 
volume sales 



PACKAGE OF 
5 PRODUCTS 

PRODUCTS 
EACH 

MANUALS 
EACH 



$395. 
$95. 
$20. 



GENERAL LEDGER 

PA YROLL 

A CCOUNTS RECEIVABLE 

A CCOUNTS PA YABLE 

DEPRECIA TION 

for 

TRS-80* 

MODEL I with TRSDOS* 
MODEL II with CP/M + 



OTHER CP/Mt SYSTEMS 



Product Info & 

License/Order 

Form. 




PHONE " 44 

(503) 476-1467 

840 N.W. 6th STREET, SUITE 3 
GRANTS PASS, OREGON 97526 

'Trademark Radio Shack, Div. Tandy Corp. 
* Product Digital Research, Inc. 



800 F(24)="ESCLATION RATE FOR NEW CAR PRICE % PER YEAR" 

810 F(25)="yOUR MARGINAL INCOME TAX RATE" 

820 X(21)=8:X(22)=8:X(23)=4:X(25)=00:X(24)=5 

830 REM NOTE THAT THE DEFAULT VALUES ARE THE SAME AS TH 

E EXAMPLE 
840 REM NOTE THAT THE EXAMPLE IGNORES INCOME TAXES IF Y 

OU RUN 
THE EXAMPLE WITH A 50% TAX RATE THE TIM 

E TO REPLACE THE CAR IS NOW 
850 F1="THE FIRST 12" 

860 F2="tHE FINAL GROUP CHECK CAREFULLY" 
870 Jl=l 
880 J2 = 12 
890 RETURN 
900 REM INPUT DATA 
910 CLS:PRINT"CAR ANALYSIS BY LESLIE E. SPARKS VERSION 

1.0" 
920 PRINT"PLEASE ENTER THE DATA ASKED FOR" 
930 PRINT"DO NOT WORRY IF YOU MAKE A MISTAKE" 
940 PRINT"YOU WILL HAVE A CHANCE TO CORRECT THE MISTAKE 

LATER." 
950 PRINT"THE CURRENT VALUE OF THE VARIABLE IS SHOWN IN 



FOR J= 1 TO 25 

PRINT F(J) ;"(";X(J) ;")"; 
INPUT X(J) 
NEXT J 
i J1=1:J2=12:F=F1 
CLS 

PRINT F 
FOR J=J1 TO J2 

PRINT J; " ";F(J) ;X(J) 
NEXT J 

PRINT"ARE THESE CORRECT" 
GOSUB 290 
IF Y$="Y" THEN 114 ELSE INPUT"WHAT ITEM NUMBER DO 

YOU WANT TO CHANGE ";JC 
IF JC < Jl OR JOJ2 PRINT' 
E" ELSE 1120 
FOR JJ= 1 TO 800:NEXTJJ 
GOTO1010 

INPUT" ENTER CORRECT VALUE 
GOTO1010 

IF J1>1 THEN RETURN ELSEF=F2 
Jl = J2+1 
1160 J2=25 
117 PRINT F 
GOTO1010 

REM SUBROUTINE TO CALCUALTE PRESENT VALUE OF KEEP I 
NG OLD CAR V(J) 

REM SET UP EFFECTIVE DISCOUNT RATES 
1210 DR=X(19)/12/100:REM MONTHLY DISCOUNT RATE DECIMAL 
FRACTION 

:REM EFFECTIVE RATE FOR OLD CA 



9( 

970 

980 

99f 

1001 

101S 

1020 

1030 

1040 

105fc 

106C 

107C 

1080 

1090 

1101 
lilt 
1120 
113t 
1140 
115C 



118t 
1196 



120t 



122C 



CAN'T CORRECT THAT ON 



■;X(JC) 



X1=DR-(X(22)/12/1( 

R FUEL 
1230 X2=DR-(X(23)/12/100) :REM EFFECTIVE RATE FOR NEW CA 

R FUEL 
1240 X3=DR-(X(23)/12/100) :REM EFFCTIVE RATE FOR INSUR A 

ND MAINT 
1250 X4=DR-X(24)/12/100:REM EFFECTIVE RATE FOR NEW CAR 
1260 DX=X(16)/100 

1270 YM=12*X(13) :REM MAX LIFE OF OLD CAR IN MONTHS 
1280 VM=0:REM INITIALIZE MAX VALUE 
1290 M=X(17) *X(18) :REM NUMBER OF LOAN PAYMENTS 
1300 L=X(16)/12/100:REM MONTHLY INTEREST RATE FOR LOAN 
1310 D=X(1)/12:REM MONTHLY MILES DRIVEN 
1320 IL=X(6)/12:REM MONTHLY INSURANCE FOR OLD CAR 
1330 IH=X(7)/12:REM MONTHLY INSRUANCE FOR NEW CAR 
1340 RL=X(8)/12:REM MONTHLY MAINT. FOR OLD CAR 
1350 RH=X(9)/12:REM MONTHLY MAINT. FOR NEW CAR 
1360 C=X(15):REM COST OF NEW CAR 
1370 SH=1-(X(15)-X{12))/X(15) :REM SALVAGE VALUE AS FRAC 

TION OF PRICE 
1380 SL=(X(11)-X(10))/X(10)/(X(13)*12) :SL=S-SL 
1390 REM NOW START CALCULATIONS 
1400 CLS: PRINT "STARTING CALCULATIONS NOW " 
1410 FOR J=l TO YM+1 

1420 REM CALCULATE ALL COSTS FOR OLD CAR 
1430 N=J:R=X1 
1440 GOSUB160 
1450 XL(J)=D*X(2)/X(4)*DF 

Program continues 
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"The program is broken into 

modules— documentation, initialization, 

data input, calculation, CRT display, and hard copy." 



year. 

Sample problem: The input data are as 
follows. 

miles driven = 15000 miles per year, 
miles per gallon old car = 12 
miles per gallon new car = 40 
price of fuel for old car = $1.30 per gallon 
price of fuel for new car = $1 .30 per gallon 
escalation rate for fuel = 8 percent per year for both old and 
new cars 

normal maintenance for old car = $350 per year 
normal maintenance for new car = $250 per year 
insurance for old car = $150 per year 
insurance for new car = $350 per year 
escalation rate for maintanence and insurance = 4.0 per- 
cent per year 
price of new car = $9000 
down payment = 10 percent of purchase price 
escalation rate for new car price = 5.0 percent per year 
interest rate = 14 percent per year 
number of years of loan = 3 
number of payments per year= 12 
discount rate= 10 percent per year 
trade-in value of old car = $500 
salvage value of old car = $0 
salvage value of new car = $0 

See Fig. 1 for the results of the example. 

The program: The program is broken into 
modules— documentation, initialization, 
data input, calculation, CRT display, and 
hard copy. Communication between mod- 
ules is handled by a small main program. 

The documentation module consists of 
remark statements only. The purpose of 
this module is to provide minimum docu- 
mentation of the program. It contains the 
program title, version number, author, and a 
variable list. All of these lines except the 
credit line can be removed from a working 
program. 

The initialization module clears string 
space, sets up the arrays, and provides la- 
bels for data input and out strings. If invest- 
ments other than the car example are to be 
analyzed, the labels can be changed to re- 
flect the new data requirements. In general, 
no other changes will be required in the pro- 
gram. 

Data are entered from the keyboard using 
INPUT. The program goes through a loop 
where the data are asked for by item name. 
The current value of the variable is shown in 
parenthesis. 

The calculation module is also straight- 
forward. If your BASIC allows user-defined 
functions, they can be used to calculate 
the discount factor. The discount factor for 
a series of equal payments is calculated in 
a subroutine. The equations which are 
solved by the program are shown in Table 1 . 

The CRT display module is straightfor- 
ward and requires no comment. 



1460 R=X3 

1470 GOSUB160 

1480 IL(J)=DF*IL 

1490 RL(J)=DF*RL 

1500 TL(J)=XL(J)+IL(J)+RL(J) 

1510 R=X2 

1520 GOSUB160 

1530 XH(J)=D*X(3)/X(5)*DF 

1540 R=X3 

1550 IH(J)=IH*DF 

1560 RH(J)=RH*DF 

1570 N=J:R=X4 

1580 GOSUB160 

15 90 CC=C*X4*DF*(1+(1-SH)/((1+X4) [ ( 12*X (14 ) ) -1) ) 

1600 CC=CC-X(10)*(1-(1+SL) t-N) 

1610 DP(J)=CC*DX 

1620 R=L:N=M:GOSUB160 

1650 IP=CC*(1-DX)/DF 

1660 R=DR 

1680 GOSUB160 

1690 IP=IP*DF 

1700 IP(J)=IP 

1710 N=M:R=L:GOSUB160 :D1=1/DF :R=DR-L:GOSUB160 :D2=1/ 

DF 
17 20 TD=X(25)/100*(IP-(1-DX)*CC*(D1-L)/((1+L)*D2)) 
17 30 TH(J)=IP(J)+XH(J)+IH(J)+RH(J)-TD 
1740 V(J)=TH(J)-TL(J) 

1750 IF V(J)>VM THEN VM=V(J) ELSE 1770 
1760 JM=J 
1770 NEXTJ 
17 80 RETURN 

17 90 REM SUBROUTINE TO DISPLAY RESULTS ON THE CRT 
1800 CLS 
1810 PRINT" CAR ANALYSIS BY LESLIE E. SPARKS VERSION 

1.0" 
1820 PRINT 
1830 PRINT@240," " 
1840 IF VM<=0 THEN PRINT TAB(20)"THE TIME TO GET A NEW" 

: PRINT TAB (20) "CAR IS NOW!!!" ELSE 1860 
1850 GOTO 1880 
1860 PRINT TAB (20) "THE TIME TO GET A NEW CAR IS IN ";JM 

; " MONTHS" 
1870 PRINT 
1880 PRINT: PRINT: PRINT: PRINT"D0 YOU WANT TO SEE DETAILS 

? " 
1890 GOSUB290 

1900 IF Y$="Y" THEN 1910 ELSE RETURN 
1910 CLS 

1920 PRINT "DETAILS OF CALCULATIONS " 
1930 J=0 

1940 FOR JJ=1 TO YM/12 
1950 CLS 
1960 PRINT"MONTH VALUE" ;TAB (19) ; "TL" ;TAB (28) ; "TH" ;TA 

B( 37); "FUEL SAVINGS" 
1970 FOR JK = 1 TO 12 
1980 J=J+1 
1990 PRINT J;TAB(9)V(J) ;TAB<17) ;TL(J) ;TAB(28) ;TH(J) ; 

TAB(38) ;XH(J)-XL(J) 
2000 NEXT JK 

2010 PRINT"PRESS ANY KEY FOR NEXT YEAR" 
2020 Y$=INKEY$:IF Y$=""THEN 2020 
2030 NEXT JJ 
2040 RETURN 

2050 REM LINE PRINTER SUBROUTINE 

2060 LPRINT:LPRINT:LPRINT:LPRINT:LPRINT:REM IF YOU HAVE 
RADIO SHACK PRINTER CHANGE TO LPRINT" ":LPRINT" " 

:LPRINT" " 
2070 LPRINT TAB (10) STRINGS (6 8 ," $") 
2080 REM FIRST PRINT OUT INPUT DATA 

2090 LPRINT TAB(30)CHR$(28) ; "CAR ANALYSIS" ;CHR$ ( 29) 
2100 LPRINT TAB(10)STRING$(68,"S") 
2110 LPRINT TAB(30) CHR$ ( 28 );" INPUT DATA" ; CHR$ (29 ) : REM 

LARGE PRINT THEN SMALL PRINT 
2120 FOR J=1T025 

2130 LPRINT TAB (10) F$ ( J) ;TAB(60 ) " n ;X(J) 
2140 NEXT J 

2150 LPRINT:LPRINT:LPRINT 
2160 LPRINT TAB (10) STRINGS (68,"$") 
2170 IF VM< = THEN LPRINT TABQ0) CHR$ (28 ) ; "THE TIME TO 

GET A NEW CAR IS NOW! " ;CHR$ ( 29 ) :GOTO2230 
2180 LPRINT TAB (10) "THE TIME GO GET A NEW CAR IS ";JM;" 
MONTHS" 

Program continues 
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"INKEY$ allows the user 

to enter a single character from 

the keyboard without pressing enter. 



The line printer module uses two com- 
mands peculiar to the Microtek MT-80P 
printer— LPRINT CHR$(28); (large charac- 
ters) and LPRINT CHR$(29); (normal charac- 
ters) to control the character size. If your 
printer allows software control of character 
size, replace these two commands with the 
appropriate commands for your printer. If 
not, delete these two commands. 

There are several times when the user is 
asked to answer a question either Y or N. 
The user's answer to these questions is 
handled with INKEY$. INKEY$ allows the 
user to enter a single character from the 
keyboard without pressing enter. If your BA- 
SIC does not support this type of command, 
replace it with a normal INPUT command. 

A variable list and function table are giv- 
en in Table 2. 

Note that in the program listing the 
bracket appears. This is the character that 
the printer uses for the up arrow.B 



2190 LPRINT 

2200 LPRINT TAB(10)"ON THE NEXT PAGE VALUE IS THE NET P 

RESENT VALUE OF REPLACING THE 
2210 LPRINT TAB(10)"OLD CAR J MONTHS FROM NOW INSTEAD 

F NOW" 
2220 LPRINT TAB(10) "TC(OLD) IS THE PRESENT VALUE OF THE 

COST OF THE OLD CAR FOR J MONTHS 
";TAB(10) ;"TC(NE 

W) IS THE SAME FOR THE NEW CAR AND FUEL (OLD) -FUEL ( 

NEW) IS 
";TAB(10) ;"THE SAVING IN FUEL THAT RESULT 

FROM REPLACING THE OLD CAR NOW." 
2230 LPRINTCHR$(140) : REM GET NEW PAGE 
2240 REM NOTE YOUR PRINT MAY USE A DIFFERENT COMMAND FO 

R TOP OF FORM. 
2250 LPRINT 

2260 LPRINT TAB(5)STRING$(68,"$") 
2270 LPRINTTAB(5) CHR$ (28 ); "DETAILED RESULTS OF THE CAL 

CULATIONS":REM LARGE PRINT 
2280 LPRINTCHR$(29) ;TAB(5) STRINGS (6 8, "$" ) 
2290 LPRINTCHR$(29) ;TAB(5) "MONTH" ; TAB (15 ) ; "VALUE" ; TAB (2 

6) ; "TC(OLD) ";TAB(43) ;"TC(NEW) " ; TAB (58) ; "FUEL (OLD) 

-FUEL (NEW) 
2300 LPRINT TAB(5)STRING$(68,"S") 
2310 FOR J= 1 TO YM 
2320 LPRINT TAB (5) J;TAB (12) V( J) ;TAB ( 26 ) ;TL ( J) ;TAB (4 

0)TH(J) ;TAB(60) ; XL ( J) -XH ( J) 
2330 NEXT 
23 40 RETURN 



CONVERT YOUR SERIAL PRINTER TO PARALLEL 



NEW MODEL UPI-3 SERIAL PRINTER INTERFACE 
MAKES IT POSSIBLE TO CONNECT AN ASCII SERIAL 
PRINTER TO THE PARALLEL PRINTER PORT ON THE 
TRS-80. 

Software compatibility problems are totally elimi- 
nated because the TRS-80 "THINKS" that it has a 
parallel printer attached. NO MACHINE LANGUAGE 
DRIVER NEEDS TO BE LOADED INTO HIGH MEM- 
ORY BECAUSE THE DRIVER ROUTINE FOR THE 
UPI-3 IS ALREADY IN THE LEVEL II ROM! SCRIPSIT, 
PENCIL, RSM 2, ST80D, NEWDOS, FORTRAN, 
BASIC etc. all work as if a parallel printer was in use. 

The UPI-3 is completely self contained and ready to 
use. A 34 conductor edge card connector plugs onto 
the parallel printer port of the model I Expansion Inter- 
face or onto the parallel printer port on the TRS-80 III. 
A DB25 socket mates with the cable from your serial 
printer. The UPI-3 converts the parallel output of the 
TRS-80 printer port into serial data in both the 
RS232-C and 20 MA. loop formats. 



SPEEDWAY ELECTRONICS 
1354 AUBURN ^275 

SPEEDWAY, IN 46224 



Also available from 
YE ODDE SHOPPE 
(317) 925-0496 



VISA MasterCard 




DB25S 



34 Conductor 
Edge Card 



Switch selectable options include: 

• Linefeed after Carriage Return 

• Handshake polarity (RS232-C) 

• Nulls after Carriage Return 

• 7 or 8 Data Bits per word 

• 1 or 2 Stop Bits per Word 

• Parity or No parity 

• ODD or EVEN Parity 

Price is $139.95 plus $4.00 shipping US, $15.00 
Foreign. SPECIFY BAUD RATE 1 10 TO 4800 WHEN 
ORDERING. The manual for the UPI-3 is available for 
$5.00 postpaid. 

Our printer interface for the HI 4 is still available at 
$29.95 plus $2.00 S&H. Installation requires solder- 
ing. See ad Oct 80 p. 189 
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HOME 



A calculating utility for those trying to put a roof over their heads. 



The Home 
Buyer's Helper 



Clarence Stinson 
17315 RuetteAbeto 
San Diego, CA 92127 



With mortgage interest rates fluctuat- 
ing as they are, what will it cost you 
to buy a home? Your TRS-80 can become 
your home buyer's calculator. With this pro- 
gram you can estimate the monthly mort- 
gage payments and closing costs at inter- 
est rates varying from nine to eighteen 
percent. 

It is surprising the difference interest 
rates make in a mortgage payment; you 
would do well to run estimates at home 
before confronting a realtor. Find the price 
range of houses that appeal to you, the 
range of interest rates, required down pay- 
ments, loan lengths, property taxes, etc. 
Punch these figures into the TRS-80, as 
shown in Example 1, and seethe results, as 
in Example 2. 

Don't like what you see? Try different in- 
puts: a lower interest rate; higher down pay- 
ment; extended loan. You probably won't 
find a painless solution, but you'll go house 
hunting with a better knowledge of the op- 
tions. 



IRS to the Rescue 

The Internal Revenue Service is usually 
cast as the villain in the drama of the aver- 
age guy's economic life. The Home Buyer's 
Calculator can recast it in the role of hero 
when you are considering a home of your 
own. By itemizing your deductions you can 
receive a rebate each year based on your 
annual mortgage interest, property taxes 
and your current tax bracket. The higher 



each of these items is, the more the rebate! 
The Home Buyer's Calculator estimates the 
total rebate you can expect. It also figures 
the rebate as a deduction from your month- 
ly mortgage payment to help you see what 
you will actually be paying. 

Fill in the Blanks 

Make a trial run through the program. Ex- 
ample 1 illustrates the first screen display, 
with questions to be answered. Interest rate 
must represent a fraction of a percent in 
decimal form. The program includes (lines 
650-710) tables of monthly payments per 
$1000 for percentages ranging from nine to 
eighteen percent. The tables come from the 
standard realtors Blue Book and cover 20, 
25 and 30 year loans. The program inter- 
polates fractional percentages. 

Estimating real estate taxes will vary with 
your locale. Closing costs are also variable 
and include such things as escrow fee, 
credit report, property inspection, etc. A 
ballpark estimate of one to 1.5 percent is 



Calculate the monthly mortgage payments and 

closing costs. 

Enter the values requested. 

On repeat runs, if the value in unchanged, simply 

press 'ENTER'. 

Sale Price? 60000 * 

Down Payment? 6000 

Interest Rate (9-18)? 11.25 

Number of Years for Loan (20, 25, 30)? 25 

Annual Real Estate Taxes? 600 

Closing Cost as % of Sale Price? J. 

"User inputs are underlined. 

Example 1. Menu for Home Buyer's 
Calculator 



reasonable, unless the buyer is required to 
pay points to obtain a loan. In that case, 
add the points (one point = one percent) to 
the normal closing cost. 

After entering the last item in Example 1 , 
there is a pause, then the screen shown in 



Calculate the monthly mortgage payments and 
closing costs. 

Sale Price 60,000.00 

Loan Amount 54,000.00 

Interest Rate 11.25 

Principles Interest 539.59 

Taxes 50.00 

Hazard Insurance" 10.95 

* Total Monthly Payment * 600.54 

Down Payment 6000.00 

Tax Impound (6 months) 300.00 

Insurance Impounds (12 months) 131.40 

Closing Costs 540.00 

* Total Cash Required * 6,971.40 

Example 2. Calculation of Monthly 
Payment and Cash Required 



Estimated IRS Rebate Based on the Following: 

— Current Property Tax 

—Average Mortgage Interest for First 5 Years 

—Your Current Tax Bracket 
Enter following values from IRS Form 1040: 
Adjusted Gross Income (line 31)? 21000 
Itemized Deductions (line 33) or 0? 3850 
Total Income Tax (line 37)? 2460 

Example 3. Input for Income Tax 
Rebate 



Estimated Annual IRS Rebate 938.28 

Monthly Mortgage Payment 600.54 

Estimated Monthly IRS Rebate 78.19 

Net Monthly Mortgage Payment 522.35 

Example 4. Calculation of IRS Rebate 
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10 REM HOME BUYER'S CALCULATOR 

20 REM AUTHOR: C.J.STINSON, MAY 1980 

30 CLEAR:E?="###, ###.##" 

40 DEFINT H,J,K 

50 CLS:PRINT TAB(15)"*** HOME BUYER'S CALCULATOR ***":PRINT 

60 PRINT"CALCULATE THE MONTHLY MORTGAGE PAYMENTS AND CLOSING COST." 

70 PRINT "ENTER THE VALUE REQUESTED." 

80 PRINT"ON REPEAT RUNS, IF THE VALUE IS UNCHANGED, SIMPLY PRESS 'ENTER' 

90 PRINT: INPUT"SALE PRICE" ;S 

100 INPUT"DOWN PAYMENT", -D 

110 L=S-D 

120 INPUT"INTEREST RATE (9-18)"; I 

130 IF I<9 GOTO 150 

140 IF I<=18 GOTO 160 

150 PRINT"INVALID":GOTO 120 

160 INPUT"NUMBER OF YEARS FOR LOAN ( 20, 25 , 30) " ;Y 

170 IF Y=20 THEN Z=0:GOTO 210 

180 IF Y=25 THEN Z=10:GOTO 210 

190 IF Y=30 THEN Z=20:GOTO 210 

200 PRINT "INVALID": GOTO 160 

210 GOSUB 730 

220 INPUT"ANNUAL REAL ESTATE TAXES" ;T 

230 INPUT"CLOSING COST AS % OF SALE PRICE", -C 

240 CLS: PRINT "SALE PRICE" ; TAB ( 30) USINGE$ ;S 

250 PRINT"LOAN AMOUNT" ; TAB ( 30 ) USINGE$ ;L 

260 PRINT" INTEREST RATE" ; TAB ( 30 ) USINGE? ; I 

270 PRINT"PRINCIPLE & INTEREST" ; TAB ( 30) USINGE$ ;M 

280 TX=T/12: PRINT "TAXES" ; TAB ( 30 ) USINGE? ;TX 

290 N=.00219*S/12 

300 PRINT"HAZARD INSURANCE" ; TAB ( 30 ) USINGE$ ;N 

310 TT=M+TX+N: PRINT"* TOTAL MONTHLY PAYMENT *" ;TAB( 30) USINGE? ;TT 

320 PRINT:PRINT"DOWN PAYMENT" ; TAB ( 30) USINGE? ;D 

330 PRINT"TAX IMPOUND (6 MONTHS) " ;TAB( 30 ) USINGE? ;TX* 6 

340 PRINT" INSURANCE IMPOUND (12 MONTHS) "; TAB ( 30) USINGE? ?N* 12 

350 CC=C/100*L:PRINT"CLOSING COST" ; TAB ( 30) USINGE? ;CC 

360 TM=N*12+TX*6+CC+D 

370 PRINT"* TOTAL CASH REQUIRED *" ;TAB ( 30 ) USINGE? ;TM 

380 INPUT "PRESS 'ENTER' TO CONTINUE. "; A? 

390 PRINT"TO REPEAT THE HOME-BUYER'S CALCULATOR ENTER (H)." 

400 INPUT"TO ESTIMATE INCOME TAX REBATE ENTER (R).";A? 

410 IF A?="H" GOTO 50 

420 IF A?o"R":PRINT"INVALID":GOTO 390 

430 CLS: PRINT TAB (15)"*** INCOME TAX REBATE ***": PRINT 

440 PRINT"ESTIMATED IRS REBATE BASED ON THE FOLLOWING:" 

450 PRINT" -CURRENT PROPERTY TAX 

460 PRINT" -AVERAGE MORTGAGE INTEREST FOR FIRST 5 YEARS" 

470 PRINT" -YOUR CURRENT TAX BRACKET ." : PRINT 

480 PRINT"ENTER FOLLOWING VALUES FROM IRS FORM 1040:" 

490 INPUT "ADJUSTED GROSS INCOME (LINE 31)";B 

500 INPUT "ITEMIZED DEDUCTIONS (LINE 33) OR 0";DE 

510 INPUT"TOTAL INCOME TAX (LINE 37)";IT 

520 BD=B-DE:PC=IT/BD:LL=L:PP=0:AA=0 

530 FOR H=l TO 60 

540 AI=LL*I/1200:AA=AA+AI 

550 PP=M-AI:LL=LL-PP:NEXT H 

560 AA=AA/5+T 'AVERAGE ANUALNUAL INTEREST & TAX 

570 AR=AA*PC 'ANNUAL REBATE 

580 CLS:PRINT"ESTIMATED ANNUAL IRS REBATE" ; TAB (30) USINGE? ;AR 

590 PRINT: PRINT"MONTHLY MORTGAGE PAYMENT" ; TAB ( 30) USINGE? ;TT 

600 PRINT"ESTIMATED MONTHLY IRS REBATE" ; TAB ( 30 ) USINGE? ;AR/l2 

610 PRINT TAB (30)" " 

620 PRINT"NET MONTHLY MORTGAGE PAYMENT" ;TAB( 30) USINGE? ;TT-AR/12 

630 PRINT: INPUT "PRESS 'ENTER' TO CONTINUE" ;A? 

640 GOTO 50 

650 REM MONTHLY PAYMENTS PER ?1000 FOR 9% TO 18% 

660 DATA 9.00,9.66,10.33,11.02,11.72 

670 DATA 12.44,13.17,13.92,14.59,15.44 

680 DATA 8.40,9.09,9.81,10.54,11.28 

690 DATA 12.04,12.81,13.59,14.38,15.18 

700 DATA 8.05,8.78,9.53,10.29,11.07 

710 DATA 11.85,12.65,13.45,14.26,15.08 

720 REM CALCULATE MONTHLY PAYMENT 

730 RESTORE :J=I:K=J-8+Z 

740 FOR H=l TO K:READ M:NEXT H 

750 ID=I-J:IF ID=0 GOTO 770 

760 READ N:M=(N-M)*ID+M 

770 M=L/1000*M: RETURN 

Program Listing 



Example 2 appears. It presents the estimat- 
ed monthly mortgage payment and the total 
cash required to purchase the house. The 
hazard insurance (or home-owner's in- 
surance) was an average for my area. If it 
isn't appropriate for your area, change the 
constant in line 290. 

If you have a printer and want to list the 
information instead of displaying it on the 
screen, change all the PRINT commands to 
LPRINT in lines 240-370. After printing or 
copying the totals for reference, you can re- 
peat the first part of the program with differ- 
ent values or you can calculate your income 
tax rebate. On repeat runs, if the value is un- 
changed, simply press ENTER. 




Form 1040 

In the last part of the program, the sav- 
ings you can expect from the IRS are calcu- 
lated on the average mortgage interest and 
taxes fo the first five years of home owner- 
ship, multiplied by the percent of your in- 
come you paid for income tax last year. 

Three items are required from your latest 
IRS Form 1040: adjusted gross income, 
itemized deductions (if taken) and total in- 
come tax paid. The line numbers refer to 
Form 1040. If you used the short form 
(1040A), use the values from the corre- 
sponding lines, and of course there are no 
itemized deductions. 

Calculating the income tax rebate can 
only be an estimate because of all the vari- 
ables. This exercise is particularly revealing 
to those who are not yet home owners and 
therefore probably do not itemize their 
deductions. If you already use the home- 
owner's deduction, you are of course aware 
of the savings, but it is interesting to see 
the effect it has on your monthly mortgage 
payments. ■ 
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Four New Programs for May 
To Keep You Busy Till June! 




"Deadlines, deadlines! Don't they realize I'm on a collision course with what must be the biggest 
ASTEROID in the galaxy?! 'Statistics,' they say. That's what we'll all BE if I can't fend off all these 
SPACE INVADERS! They're clamoring for reports when it's up to me to intercept enemy Gnat 
fighters, who are determined to strangle our deep space trade routes! With BALL TURRET GUNNER, 
any moment could be my last! And if that's not enough, I'm surrounded by Quelon Fighter escorts in 
COSMIC PATROL . . . and the Quelons never miss! Reports! Statistics! Deadlines! I guess some people 
just have no sense of priority." 



Cosmic Patrol 

The Cosmic Patrol program puts you in command of a small inter- 
stellar patrol craft. Your mission is to defend Terran space and prey 
on the Quelon supply ships. Beware of the I-Fighter Escorts— they're 
armed, fast, and manned by intelligent robots linked to battle 
computers. . .they NEVER miss! With its fast, real-time action, 
impressive sound option and superb graphics, COSMIC PATROL is 
the best program of its kind. 

Order No. 0223R tape $14.95 Requires Level II 16K 
0224RDdisk $19.95 Requires Level II 16K 

Asteroid 

It's up to you to destroy any asteroids in your sector and to prevent 
alien spacecraft from infiltrating the Terran Defense Network. Your 
ship is equipped with an anti-matter cannon. You can shoot large 
asteroids, but this will shatter them into smaller pieces, each capable 
of destroying your ship. In addition, alien ships can make instan- 
taneous hyperspace jumps into your area to fire on your ship. You'll 
need nerves of steel to survive ASTEROID ... we have no need for 
non-survivors. 

Order No. 0237R tape $14.95 Requires Level II 16K 
Order No. 0247RD disk $19.95 Requires Level II 16K 



Invaders 

The INVADERS are coming! Earth's defenses are all dead except for 
your laser base. Your assignment is to destroy the approaching in- 
vaders. Before Earth's sensors failed, they detected 550 armed in- 
vaders in space, speeding toward us in 10 attack formations of 55 
each. The sensors detected four different types of attack crafts- 
large, medium, small and a short profile craft which is the most dif- 
ficult to destroy. If you can't stop the attacks, Earth is doomed!! 
Order No. 0240R tape $9.95 Requires Level II 4K 



Ball Turret Gunner 

Imagine yourself at the control console of the LW 1417 Stratoblazer. 
ready for the onslaught of enemy GNAT fighter planes. Your Hind- 
sight Director informs you that a GNAT fighter is closing fast. With 
your finger tensed over the firing key. you'll have only seconds to 
react. Suddenly, you see the fire command. With one beam, the Gnat 
fighter is reduced to an expanding ball of ionized gas. Mission accom- 
plished. BALL TURRET GUNNER with your choice of multiple level 
of difficulty, optional sound effects and superb graphics, is more than 
a game— it's an adventure. Experience it! 
Order no. 005 1R tape $9.95 Requires Level II 16K. 



Instant Sof tware 

PETERBOROUGH, N.H. 03458 



To Order: See your local Instant Soft- 
ware dealer. If these programs are unavail- 
able, order directly. 

Call Toil-Free 
1-800-258-5473 



►-See List of Advertisers on page 306 
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Success Talks. 




"I particularly liked the help I 
received in rounding out the 
edges of my program . . . made 
it more marketable.'' 

Charlie Heath 

Author of the top microcom- 
puter version of Othello, which 
recently beat all other micro- 
computer opponents in the 
Santa Cruz Open. 







"They (Instant Software) have 
the largest marketing organi- 
zation, other than Tandy. This 
gives my program more expo- 
sure. . .and more sales." 

Terry Kepner 

Author of ONE "D" MAIL- 
LIST, and numerous articles in 
the Industry's top magazines. 



"As a European programmer, I 
can safely say that Instant 
Software, with its vast 
marketing and distribution 
network, has proven to me to 
be the best organization in the 
world to submit my TKS-80 
utility programs to." 

Jake Commander 

Author of over 10 top selling 
utility programs, and many ar- 
ticles on advanced computer 
programming techniques. 




"One thing I've been im- 
pressed with is the scale of 
your Marketing capabilities. 
So many dealers . . .so many 
advertisements." 

Mike Wall 

Author of the best selling 
ASTEROIDS and COSMIC PA- 
TROL . Soon to be a Compu- 
ter Science major at M.I.T. 




These four Instant Software authors have all written programs proven successful in the marketplace. 
Now it's your turn. 

If you're a programmer and are writing what you feel to be an exceptional software program, it's 
time to think about bringing it to market. 

We believe it takes time, talent, training and experience to write good software. It also takes time, 
talent, training, experience and money to establish an effective marketing system. YOU have the first 
set of qualifications; WE have the second. Together, we can team up successfully to bring your pro- 
gram to market. 

So, what's in this for you? Excellent royalty percentage, paid monthly. 26 sales reps covering the 
United States with only one objective— to sell your programs. 22 distributors located worldwide with 
the same sole objective. Over 450 Instant Software dealers in the US. Hundreds of thousands of 
catalogs, mailed directly to computer users throughout the U.S.A. and the world every three months, 
to continue your exposure to the buying public. Total support. Any questions? 

Success speaks for itself. Let's talk. For a submissions package, write to: 



Submissions Department 
Instant Software, Inc. 
Rt. 101 and Elm Street 
Peterborough, N.H. 03458 



or call 1-603-924-7296 



Instant Software 



y2 



PETERBOROUGH 
NEW HAMPSHIRE 03458 



PERSONAL 



An in-depth look at wrap-around mortgages. 




Dale A. Whitman 
Professor of Law 
University of Washington 
18011 60th Avenue, N.E. 
Seattle, WA 98155 



Financing the sale of your house isn't as 
easy as it once was. Interest rates on 
new home mortgages have recently reached 
high levels which were previously un- 
dreamed of, and in too many cases money 
isn't available from lending institutions at 
any interest rate. Even if a loan can be ob- 
tained, many prospective buyers prefer not 
to lock themselves into high interest rates, 
and unless an alternative method of financ- 
ing the sale is available, they may simply 
decide to wait. 

If your house is on the market and you 
need to sell quickly, you can be devastated 
by such buyer reactions. 

The alternative which many people have 
settled on in recent months is financing by 
the seller himself. If the seller is willing to 
defer receiving some or all of his equity, and 
if he will settle for a lower interest rate on 
the deferred amount than institutional lend- 
ers are demanding, he may be able to ar- 
range a much quicker sale. 

If there is an existing mortgage loan on 
the property, it usually has a considerably 
lower interest rate than current rates, and 
therefore it is desirable to keep it in effect 
when the house is transferred. But its out- 
standing principal balance at the time of 
the sale is of ten too low for the buyer to take 
it on with a cash down payment. For exam- 
ple, suppose the balance on the existing 
loan is $48,000 and the selling price of the 
house is $100,000. (The original balance 
when the existing loan was first made 
would have been somewhat higher than 
$48,000, and would have been reduced by 
the portion of each monthly payment that is 
applied to amortization. For example, if the 
original balance were $50,000, the interest 



rate eight percent and the stated term of the 
loan 30 years, and if four years and two 
months had elapsed at the time of the 
resale of the house, the outstanding 
balance on the original loan would be just 
slightly over $48,000.) These figures are a bit 
higher than average, but not at all unusual. 

Unless the seller provides some financ- 
ing, the buyer will need to come up with the 
$52,000 difference in cash (which many 
buyers would find financially impossible) or 
obtain a second mortgage loan from a bank 
or finance company (which might be ex- 
tremely difficult and might involve even 
higher interest rates than prevail on first 
mortgages). 

Here seller financing can come to the res- 
cue. One method involves the seller "taking 
back" a second mortgage for part of the 
price. In the example above, the seller might 
accept the buyer's promissory note and 
mortgage for $25,000, leaving only $27,000 
in cash to be paid by the buyer at the time of 
the transfer. In a typical case, the buyer 
might have ten to twenty years to pay off 
the second mortgage in monthly install- 
ments of principal and interest. 

If this method is used, the buyer and 
seller agree on an interest rate which is to 
accrue on the unpaid balance of the second 
mortgage and note. For instance, if they 
agree on 12 percent interest and a 20-year 
term, the monthly payments on the second 
mortgage will be $275.27. 

At the same time, the buyer assumes and 
begins to make the full monthly payments 
to the lending institution which holds the 
first mortgage loan originally placed on the 
property by the seller when he bought the 
house. If the interest rate on that loan is 
eight percent and it had an original term of 
30 years and an original balance of $50,000, 
its monthly payments will be $366.88. Thus, 
the buyer makes two payments each month 
—one to the bank (or other first mortgage 
lender) and the other to the seller. Their 
total will be $642.15. 

If this is the approach on which the par- 
ties agree, it is easy to calculate the yield 



(that is, the effective interest rate) to the 
seller; it is the same as the agreed interest 
rate on the second mortgage note. 

There's another way for the parties to 
structure the transaction— a way that can 
give the seller a much higher effective yield 
on his investment, and yet which may still 
be very acceptable to the buyer. It's called 
the wrap-around mortgage. (Californians, 
who seem to like being different, usually 
call it the "all-inclusive deed of trust". The 
meaning is exactly the same as the wrap- 
around mortgage.) 

Here's the way it works. Based on the 
facts of our example above, the seller 
agrees to provide all necessary financing, 
$73,000, himself. He agrees to make this 
financing available to the buyer for a 
25-year term at 1 2 percent interest. As in the 
illustration above, the buyer needs to put 
down only $27,000 in cash. 

Under this approach, the original loan to 
the bank will not be paid off at the time of 
the sale. Instead, each month the seller re- 
ceives the monthly payment on the $73,000 
"loan" from the buyer, and will make the 
monthly payment to the bank on the origi- 
nal loan. Technically, the $73,000 "loan" is 
secured by a second mortgage, since the 
first mortgage to the bank is still in ex- 
istence. 

But from the buyer's point of view, the 
bank is out of the picture; he is paying on 
only one loan, and the payments are made 
to the seller. 

The significant advantage of this method 
from the seller's perspective is that it earns 
him a much higher effective yield than the 
stated 12 percent interest. This is because 
part of the money the seller is "loaning" is in 
turn being lent to him by the bank at (by cur- 
rent standards) an exceptionally low rate of 
interest. In our example, only $25,000 of the 
$73,000 "loan" made by the seller is really 
being made with the seller's capital. The 
rest is, in reality, the bank's money, lent in 
an earlier era at only eight percent. Yet the 
seller is receiving 12 percent interest on the 
whole $73,000. 
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GOSCIB 



PRINTERS 
EPSON MX BQ 
BABE Z 850 
OKIDATA 



DISK DRIVES 
$555 CCI-100 (LIST $425.00) 
$749 40 TRACK-102K BYTE ON 
$569 SS/SOFT SECTOR/TRS-80 



$2500 S/H ON PRINTERS MODEL I 



$339 00 



NOVATION MODEMS 

D-CAT $178 

CAT MODEM $158 

S NEW FROM OOSUB S 
EPSON MX-80/MX-70 
FRICTION FEED KITI 

$49.95 



CCI-280(LIST $575.00) 
80 TRACK-102K BYTE ON 
SS/SOFT SECTOR/TRS-80 

MODEL I $449.00 

POWER SUPPLY-CASE-EXT 
CARD EDGE-WARRANTY: 
90 DAYS + 1 YFAR ON 
POWER SUPPLY 



SOFTWARE FOR TR8-B0 MODEL I & lll/PMC-80 
MERCENARY FORCE $1695 YAHTZEE I ... $1095 

QUARTER HORSE $895 WARRIOR $9.95 

OAMEPACK#1 QUARTER HORSE + YAHTZEE $14.95 

OAME PACK #2 WARRIOR + SPACE MERCHANT. $14 95 



KANSAS RES ADD 3% SALES TAX. 

ALL PRICES SUBJECT TO CHANCE WITHOUT NOTICE 

FREE CATALOG UPON REQUEST. 

(TRS-80 IS A TRADEMARK OF TANDY CORP.) 

SEND CHECK OR MONEY ORDER TO: 



GOSCIB 

P.O. BOX 275-G 
WICHITA, KS 67201 



^284 




COMPILERS 

ACCEL2: Compiler lor TRS-80 Disk BASIC. Compiles 
selected subset to Z80 machine code in all four variable types, 
compact 1K run-time component controls interpreter to stream- 
line all other statements and functions. Technique minimises 
code expansion without impairing huge speedups for true double 
optimisation Six diagnostic messages, Local/Global options 
increase compatibility with subject programs. Output save to 
Disk, tapes. Professionals note: No royalties on the derived 
code. It's like havinga 100 mhz clock $88.95 

ACCEL: Compiler for TRS-80 Level II BASIC. Same huge 
speedups as ACCEL2 but in INTEGER variable type only. Run- 
time component |ust 256 bytes, ideal for graphics, games in 
16K. Developed in Britain by Southern Software 44.95 

TSAVE: Writes compiler output to SYSTEM tape J9.95 

SOFTWARE CPUtm 

Supsr STEP: Animated Z80 Programming Models, Disas- 
sembler, Single-step/TRACE modes with intelligent RAM 
Window, 5 user-selectable Windows, single and cumulative 
instruction times in microseconds, Reference Space, much 
more. Big booklet, a Z80 Software CPU. 16K Level II TRS-80, 
TBUGrequired No. BL-0 $19.95 

Super TLEGS: Relocates TBUG. Super STEP $9.95 

EMU 02: Animated 6502 Programming Models. Disassembles 
to 6502 mnemonics. Smgle-step/TRACE modes, 6502 coun- 
terparts to #B, #J, #R, #F and #G commands, fast Cross-inter- 
preter, keyboard scan port with p-instructions DB.EB control, 
paging in virtual address space, more. Big booklet &SYNERTEK 
card, a 6502 Software CPU. 
16K Level II TRS-80, TBUG required. No. BL-1 $24.95 

COLOR COMPUTER 

COCOBUG: 6809 Debugging monitor for TRS-80 Color Com- 
puter Examine, modify memory/CPU registers, place break- 
points, execute single instructions or entire machine language 
programs in real time. Includes 6809 Reference card, runs in 
4K $19.95 

MASTERCARD/VISA 

Incl. .75 postage, CA add 6% 



ALLEN GELDER SOFTWARE 
60x11721 Main Post Office 
San Francisco, CA 94101 

,W9 

TRS-80. TBUG tm Radio Shack/Tandy Corp. 
Software CPU tm Allen Gelder Software. 
•••••••••••••••••••••••A* 



If the fact of the seller's yield being 
higher than 12 percent is not immediately 
obvious to you, imagine a situation in which 
you could borrow money from the bank at 
eight percent, relend it to another borrower 
at 12 percent, and use none of your own 
money at all. Here your effective yield (if we 
ignore your overhead costs) would be in- 
finite! The seller who makes a wrap-around 
loan is not in quite this attractive a position, 
but he comes close if his own capital invest- 
ment is small compared to the balance on 
the existing loan. 

Enter the Computer 

If a seller is considering making a wrap- 
around loan to finance his sale, he would 
like to know just what the effective yield will 
be. Program Listing 1 will answer that ques- 
tion quickly and precisely. It will also allow 
easy variation in the parameters of the tran- 
saction, so that the seller can ask "How 
much would my yield be affected if the 
wrap-around loan is for 20 years rather than 
25?" and other similar questions. The pro- 
gram also lets the user determine the yield 
if the wrap-around loan is paid off prior to 
maturity. 

Program Description 

Here's an analysis of the program. Lines 
100 through 150 input the original data on 
the existing loan. Line 120 converts the in- 
terest rate into a monthly decimal factor 
with the expression 11 =10/1200. Similarly, 
line 130 converts the term of the loan into 
months by the expression N1 = N0*12. Line 
150 computes a composite date by multi- 
plying the year in which the loan was made 
by 12, and adding the month. 

Lines 160 and 170 plug the relevant val- 
ues into the subroutine at line 1000, which 
is a standard formula for computing the 
monthly payments on a fully amortizing 
loan. This monthly payment amount is then 
assigned the variable M1. Lines 200 to 260 
implement a similar procedure by inputting 
relevant values for the wrap-around loan. 
Monthly payments are then computed in 
line 270 and the subroutine at line 1000. 

Line 270 also computes R1, the number 
of months remaining on the original bank 
loan. Line 280, along with the subroutine at 
line 2000, then computes the future value of 
the original loan amount as of the time the 
wrap loan is made. Line 290 (together with 
the subroutine at line 3000) computes the 
future value of the payments which have 
been made on the original loan up to the 
time the wrap loan is made. The difference 



between these two values is, by definition, 
the outstanding balance on the original 
loan as of the date of the wrap loan closing. 
This is a standard method for calculating 
the outstanding balance on a mortgage 
loan as of a given date. That amount is as- 
signed to variable B1 in program line 290. 

The program section running from line 
400 to line 465 displays all of the data which 
has been input on both of the loans, as well 
as the monthly payments on both. If you 
have made an error in inputting some data 
item, you can see the mistake on the 
screen. Hit BREAK, and GOT0 100. This will 
correct the mistaken item without disturb- 
ing the other data. 

Line 470 displays the previously calculat- 
ed balance on the original loan at the time 
the wrap loan is made. Lines 502 through 
509 calculate and display the wrap lender's 
investment in the wrap loan— that is, the 
amount of the wrap loan minus the balance 
owing on the original loan. If there were no 
wrap loan, but instead a sale (by the seller) 
for cash, he would receive this amount after 
paying off the original loan. Hence, it repre- 
sents his capital investment in the trans- 
action. 

Incidentally, the program refers to the 
"wrap lender" here, but that person, in our 
illustration, is simply the seller of the prop- 
erty. Sometimes institutional investors, es- 
pecially life insurance companies, make 
wrap-around loans on properties which are 
not being sold by the lender. The program 
uses "wrap lender" for the sake of gener- 
ality. 

The section starting with line 510 deals 
with the possibility that the wrap loan will 
be paid off prior to its maturity in a lump 
sum. Many house sellers put clauses in the 
documents requiring this; they may put the 
wrap loan on a schedule of payments which 
would require 20 years to pay off, but re- 
quire a cash payoff after, say, three years. 
This will give the buyer time to refinancethe 
house with an institutional lender, perhaps 
at a lower interest rate (if rates fall, which 
the parties hope, but which is by no means 
certain.) Even if prepayment is not oblig- 
atory, the buyer may desire to prepay the 
loan anyway because lower rates have in 
fact become available. 

If the user indicates at lines 510 and 512 
that a prepayment will occur, line 515 then 
computes the balance which the wrap 
loan will have on the payoff date, and lines 
540 through 560 do the same with the bal- 
ance on the original loan as of the wrap 
loan's assumed payoff date. Both of these 
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List Price Your Cost 



NEW 



Okidata 



Microline82.$ 799. 
Features: 80 C.P.S.; 
Bidirectional; Full forms 
Control; Choice of 
Parallel or Serial Inter- 
face as Standard; Buff- 
ered Serial Optional 

Epson Model 
MX-70 $ 449. 

Features: 80 C.P.S.; 
Unidirectional; Bit Plot 
Graphics; Adjustable 
Sprocket from 4" — 10" 



ASK FOR OUR 
§ INSTANT DISCOUNT 

§°From Roy Hawthorne 
Talk To Bill Tokar On 
Applications 



0* i$y 



Ask For 
Our Price 



List Price Your Cost 
Epson Model Ask For 

MX-80 $ 645. Our Price 

Okidata $£*£?#! 

Microline80.$ 599. fcrfl^M 
Okidata Ask For 

Microline83 $1260. Our Price 
Anadex DP-9500 & Ask For 

DP-9501 $1650. Our Price 

Anadex Ask For 

DP-9000 $1550. Our Price 

INTERFACES — 

Epson Apple Plug-in 

Interface & Cable $110. 

Epson Serial 

Interfaced Cable $ 90. 

Epson IEEE 488 

Interface & Cable $ 80. 

Model TRS-80 Expansion 

Interface Cable $ 35. 

Model 232 Universal 

Serial Interface Cable ..$25. 



Plot Graphics 

E-Proms $60./set 

Okidata Microline 80 

Tractor $ 50. 

Okidata Microline 80 
RS-232 Interface with 256 
Character Buffer $160. 



NEW 
LINES 



CENTRONICS 
PRINTERS — The 

complete line Model 737 Let- 
ter Quality Printer with True 
Lower Decenders, Friction & 
Sprocket Feed, Bi-Dir. Paper 
Drive. 

NEC PRINTERS — Spin- 
writers and Trimliners fully 
formed character printers, 
Thimble and Band. 




CALL TOLL FREE ■ 
U.S.A. 
1-800-521-2764 

MICHIGAN 



Reminder: 

We are open 

8:30 AM to 5:00 PM EST 

Monday through Friday 



I WRITE TO: 
"The Stocking Source" 
24069 Research Drive 
Farmington Hills, Ml 48024 



5 KK w 1 -800-482-8393 " "313-474-6708 +** o 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 






vSee List ot Advertisers on page 306 



80 Microcomputing, May 1981 • 105 



w 



± 



The Newest Peripheral 
for your Microcomputer 

The Encyclopedia for the TRS-80* 



^ 



What's the key to getting the most from your TRS-80? No, 
it isn't disk drives or printers or joysticks. It's information. 
Without a continual supply of information and ideas, you 
can't realize the full potential of the TRS-80. 

Now, you'd think that the 150 pages of articles published in 
80 Microcomputing each month would satisfy even the most 
voracious of TRS-80 users. But nol You've asked for even 
more information! 

Our response to the clamor for additional information is 
the Encyclopedia for the TRS-80, a ten-volume reference 
work that is absolutely packed with programs and articles 
carefully selected to help you make the most ■ of your 
microcomputer. You can consider the volumes of the Ency- 
clopedia to be an extension of the documentation that came 
with your TRS-80. The articles and programs will be similar 
to those found in 80 Microcomputing. Each book is full of 
material on programming techniques, business, games, 
tutorials, education, utilities, interfacing. . .you name it. 

Unlike conventional encyclopedias, the Encyclopedia for 
the TRS-80 will never become stale or out of date. That's 
because the volumes of the Encyclopedia are being issued 
one-at-a-time, over a period of months. This means that each 
new volume will reflect the latest developments and 
discoveries, making this a living encyclopedia for TRS-80 
users. 

Volume 1 will be out in June. It's more than 270 pages in 
length . . . that's 270 pages of solid information ... no adver- 
tising. Here's a sample of what's included in Volume 1: 



Four Graphics Methods— Improved 
techniques for dealing with the 
TRS-80's low resolution graph- 
ics. 

TTY Interface— Build an interface 
hookup a Teletype to a TRS-80 

The President Decides — A thrilling 
simulation that lets you make de- 
cisions as if you were President of 
the United States 

TRS-80: Calling FORTRAN from 
BASIC— Call Microsoft FOR- 
TRAN subroutines from BASIC 
on the TRS-80 

Measure Instructional Effectiveness 
— Many programs teach or tutor; 
this one helps determine the ef- 
fectiveness of the lessons. 

The Invoice — A program for small 
businesses which produces cus- 
tom invoices. 

Punch Out Your Disks— Double 
your disk storage in seven easy 
steps 

LOAD and Go— Adds a new and 
useful command to Level II 
BASIC. 



The Encyclopedia for the TRS-80 is available in two edi- 
tions. The deluxe COLLECTOR'S EDITION is a handsome 
green and black hardcover volume, with the title stamped in 
gold and a colorful protective dust jacket provided. These 
durable volumes are perfect for school and library use and 
make a handsome addition to your personal library. They are 
available for $19.95 per volume. Also available is the more 
economical softcover edition. This contains all the informa- 
tion in the hardcover edition, but at a savings of over 45% . It 
is ruggedly bound for heavy use and has an attractive green, 
ivory, and gold cover. Available for $10.95 per volume. Both 
editions are in an easy-tOrread 6" x 9" format which is perfect 
bound to remain flat when opened. 




80 MICROCOMPUTING 
SPECIAL INTRODUCTORY OFFER 



Order the entire set (the first ten vol- 
umes) of the Encyclopedia for the 
TRS-80 and receive the tenth volume 
FREE! 

PAY ONLY $164.00 for the first ten 
volumes of the deluxe hardcover COL- 
LECTOR'S EDITION — a regular 
$199.50 value 

PAY ONLY $83.00 for the first ten 
volumes of the softcover edition— a 
regular $109.50 value 
PLUS— This special offer includes UPS 
shipping and handling charges (an addi- 
tional savings of $15.00) 
Beat inflation by buying the whole set 
now ... we cannot guarantee these same 
single volume prices for future volumes. 
You curmut losel Preview the first vol- 



ume of the set and judge for yourself. If 
the Encyclopedia for the TRS-80 does 
not meet your needs or expectations, just 
return the first volume within ten days 
and we will refund the entire amount of 
your purchase. If at any time you are 
dissatisfied, you may cancel the remain- 
ing volumes and receive a refund for the 
full value of those volumes. The books 
will be automatically shipped to you 
every 6 weeks via UPS. Take advantage 
of this offer now! You can't afford to miss 
out on the newest |>eripheral — the En- 
cyclopedia for the TRS-80. Call your 
order in today TOLL FREE at 1-800- 
258-547.3. or use thecoii[>on below or the 
postage-paid postcard included in this 
magazine. 



THE Encyclopedia for the TRS-80* 

YES, please reserve for me a complete set of the first ten volumes of the Encyclopedia for the TRS-80. 

I want to go first class so send me the deluxe hardbound COLLECTOR'S EDITION— a S199.50 value for 

$164.00 postpaid. A total savings of S34.95 over the single volume price! (Order #EN8100) 

Send me the "blue collar" softcover edition— the same information at a substantially lower price, a S109.50 

value for $83.00 postpaid! A total savings of $25.95 over the single volume price! (Order WEN8080) 

YES, I want to start my Encyclopedia collection due out in June. 

Volume 1 of the deluxe hardcover COLLECTOR'S EDITON @$19.95 (Order HEN8101)" ' 

Volume 1 of the Softcover edition @ $10.95 (Order #EN8081)" ' 

• '(Please enclose S1.50 per volume lor shipping and handling. All volumes will be shipped UPS il the complete 
street address is provided; otherwise shipment is by 4th class book rate.) Allow 8-10 weeks lor delivery. 



Payment enclosed 

Cardft 

Name 

A ddress 

City 



Please charge to my VISA Mastercard _ 

MC Interbank!* Expires. 



\mEx 



State.. 



-Zip- 



Signature 



80 Microcomputing, Pine St., Peterborough, NH 03458 
"TRS-80 is a trademark of Tandy Corp. 
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routines use the same procedure discussed 
above in connection with lines 280 and 290. 
Incidentally, the original loan must be paid 
off by the seller at the same time the wrap 
loan is paid off by the buyer (if it has not al- 
ready been fully paid by the monthly pay- 
ments); otherwise the buyer would have 
fully paid for the property, but would still 
not have cleared his title of the original 
mortgage. 

Using this information on the balances 
due on the two loans at the time of payoff 
(TW and TE, respectively), lines 580 through 
590 display the financial consequences of 
the payoff: how much money is received by 
the wrap lender, how much of that must be 
paid over to the original lender, and how 
much the wrap lender retains. 

Computing the Yield 

Now we come to the part of the program 
for which all the rest is merely prologue— 
the computation of the yield (i.e., the effec- 
tive interest rate to the wrap lender) on the 
wrap loan. Two separate routines deal with 
this matter, depending on whether an early 
payoff is expected or not. Variable Y is the 
flag which indicates whether early payoff 
will occur. In line 620 it sends execution to 
line 650 thorugh 660 if there is no early pay- 
off, while if there is, lines 625 through 645 
control instead. 

The yield computation itself is a recur- 
sive process, and works like this in princi- 
ple: Some interest rates are simply assumed 
to be the correct yield. (In this program, the 
initial trial assumption is 18 percent per an- 
num, or .015 per month, set in line 610.) Then 
the present value (as of the date the wrap 
loan is made) of all future cash flows to the 
wrap lender is computed, using the as- 
sumed interest rate as a discount factor. 
The actual formulas which do this discount- 
ing are in lines 4000 and 5000. The discount- 
ing present values are then summed 
against one another; some of them are posi- 
tive (e.g., the monthly payments received by 
the wrap lender) and some are negative 
(e.g., the monthly payments made by the 
wrap lender to the original lender). Their 
sum is variable SM in line 640 or 660. 

This present value is then netted against 
the wrap lender's original investment, pre- 
viously derived as P2-B1. If the net present 
value is exactly equal to P2-B1, so that the 
sum is zero, we have happened to pick ex- 
actly the correct yield or discount rate— 18 
percent! Of course, it would be blind luck if 
this happened, and normally the sum (NV in 



line 670) is either positive or negative, and 
not zero. Lines 680 and 690 use this infor- 
mation (the sign of NV, represented by 
BASIC keyword SGN) to adjust the as- 
sumed discount rate and execution is sent 
back to line 625 or 650, the beginning of the 
FOR-NEXT loop which calculates the pre- 
sent values, for a new trial. 

Lines 680 and 690 do what is termed a 
binary search. For example, if the assumed 
discount rate of 18 percent istoohigh.it will 
produce a net present value, SM in line 670, 
which is lower than the wrap lender's orig- 
inal investment (P2-B1). NV will then have a 
negative sign, and line 680 adjusts the as- 
sumed interest rate IT downward by one- 
half of the difference between IT's previous 
value and its value in the trial before that. 
Thus, in successive trials, IT might assume 
values of 18 percent, nine percent, 13.5 per- 
cent, etc. as it closes i n on the correct value. 
When the correct value is finally reached, 
so that SGN of the difference between the 
last two interest rate trials is zero, control 
passes to line 700 for a print of the final 
value. 

The approach of successive trials is the 
only feasible way of computing the effec- 
tive yield produced by a series of unequal 
future cash flows, and it takes time. The 
loop used in this program has 99 steps, but 
in fact I have never had a computation re- 
quire more than 25, and they are often 
shorter. About ten seconds or so are re- 
quired for 25 steps. 

Lines 695 and 696 display the trial num- 
ber, the net value, and the assumed interest 
rate for each trial, so you can see the prog- 
ress the computer is making, and so you 
will know that the program has not locked 
up or bombed. 

One might worry about precision in this 
program, but such concerns are really ir- 
relevant. The six digits of single-precision 
arithmetic are more than adequate for pur- 
poses of comparing yields on alternative in- 
vestments with the wrap-around loan. I tried 
changing to double-precision, but succeed- 
ed only in slowing down execution very no- 
ticably without producing more useful 
results. 

Programming Tips 

I like to write programs which deal with fi- 
nancial and investment decisions, and I'd 
like to pass on a few ideas I've discovered 
which make writing and running such pro- 
grams much easier and more enjoyable. 

The first idea stems from the fact that 
any editing of a program line wipes out all 



stored variable values. In a program which 
is being debugged, and which requires a 
large number of variables to be defined (as 
by INPUT statements), this is a pain in the 
neck. You can easily spend half of your 
program writing time inputting the same 
old data again and again. 

To solve this problem, use a DATA state- 
ment like that in line 10000, along with a 
READ statement like line 95. Thus, every 
time you RUN the program while debugging 
it, your data will be in place automatically 
and without delay or pain. The READ state- 
ment should be placed before the point in 
the program to which return is made after a 
full run of the program— line 100 in this 
case. 

The DATA and READ statements have 
another advantage as well, and I always 
leave them in even after the program is fully 
debugged for this reason. They make dem- 
onstrations of the program very easy, since 
if spectators have no particular data they 
wish to see run, your pre-written DATA 
statement will show them very quickly how 
the program operates. 

A second idea which is very helpful in pro- 
grams of this kind grows out of Level II 
BASIC'S characteristic of simply leaving 
the former value of a variable in place if an 
INPUT statement is encountered and the 
user merely presses ENTER without any 
numbers. This means that you can write IN- 
PUT statements which display the former 
value, then ask the user to input a new val- 
ue. If the old value is satisfactory, the user 
can simply press ENTER without taking the 
trouble to insert the same value over again. 
This program uses this feature in lines 100 
to 1 50 and 200 through 250. When combined 
with the READ and DATA statements men- 
tioned above, they permit an extremely 
quick demonstration of the program; the 
user merely types RUN and then presses 
ENTER to show, in sequence, each item of 
data on each of the two loans. The pre-exist- 
ing values are shown in brackets, and can 
readily be changed by typing new values if 
desired. 

Using this technique requires a little care 
in writing the program, as it is important 
that further manipulations on a variable's 
value not be done once it is input. For exam- 
ple, in the wrap-around mortgage program 
(and many other financial programs) it is 
customary to input interest rates on an an- 
nual basis (e.g., 12 percent). But the rate 
must be converted to a monthly decimal for 
computation purposes. One often sees pro- 
grams which redefine the original variable 
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". . . the use of the STRINGS 

command is an excellent way 

to divide up the screen. . . . " 



to accomplish this. For example: 

120 INPUT "ANNUAL INTEREST RATE";I1:I1 = 11/1200 

There's nothing wrong with this method if 
the program will be run only once. But if you 
plan to repeat it, using most of the same in- 
put data again without a new RUN (as by the 
GOTO 100 in line 730), you discover that in 
the second run 11 is all wrong. Thus, if the 
value originally input for 11 in the first run 
was 12, line 120 above will convert it to .01. 
The next time line 120 is executed, if no new 
11 is input, the program will divide the .01 
value by 1200, giving you an 11 of .000083, 
which is obviously wrong. 

Fortunately, this problem is easy to 
avoid. Simply use a new variable for the ma- 
nipulation of the input data, rather than re- 
defining the old variable. In line 120 of the 
wrap-around mortgage program, 10 is the 
value to be input; 11 is then defined as 
10/1200, leaving 10 at its original value. It will 
still be there, with a value of 12, the next 
time line 120 is executed. The same princi- 
ple may be seen in line 130, which manipu- 
lates the term of the loan, converting it from 
years to months. 

This program is written in 32-character- 
per-line format because it was originally 
prepared for classroom demonstration pur- 
poses in my private land development 
course. I use 19-inch Sony TV monitors with 
direct video input; they are designed for use 
in a closed-circuit TV system, and with a 
suitable adapter(containing merely a single 
feedthrough capacitor), perform very nicely 
when driven by the TRS-80. However, their 
resolution is not as good as the TRS-80's 
12-inch monitor, and the bigger print is 
therefore quite helpful, especially for stu- 
dents who may be 20 feet or more from the 
monitor. In general, the 32-character format 
is often preferable even for home use, espe- 
cially when only a small amount of informa- 
tion needs to be shown on the screen at one 
time. 

Finally, the use of the STRINGS com- 
mand is an excellent way to divide up the 
screen into several blocks showing differ- 
ent sets of information. STRINGS is rapid in 
execution and easy to program; I think it is 
one of the unsung heros of Microsoft's Lev- 
el II. You'll see it in lines 105, 205, 405, 415, 
etc., in this program. 

Legal Issues 

While a wrap-around mortgage is often 
an attractive way to sell a house, it can raise 
some tricky legal problems. There isn't 



space in this article to discuss them in any 
real depth, but let me mention two of the 
more important ones. 

Many mortgage loans made by institu- 
tional lenders in the past few years contain 
"due-on-sale" clauses. Such a clause says, 



in substance, that if you sell your house 
without the bank's permission, it has the 
right to insist that the loan be paid off im- 
mediately. Often the bank will give the nec- 
essary permission, but only on condition 
that (1) the new owner has satisfactory 



<";USINGF; PI;: PRINT" 
1 " ; : IN 
': PRINT" <";N0;" YRS >' 
: PRINT" YEAR: <";Y1;">' 
' ; : INPUTX1:D1 = 12*Y1+X1 



' ; TAB I 



;TAB I 



10 '*** WRAPAROUND MORTGAGE YIELD *** 

20 ' DALE A. WHITMAN 

30 '18011 60TH AVE. N.E. 

40 'SEATTLE, WA. 98155 

45 DIMIT(99) 

50 CLS:PRINTCHR$(23) :PRINT"THIS PROGRAM COMPUTES THE" :PRINT"EFFECT 

IVE YIELD ON A" : PRINT"WRAP-AROUND MORTGAGE. 
60 FORN=1TO1000:NEXTN 

80 READP1,I0,N0,Y1,X1,P2,I9,N9,Y2,X2 
90 DEFSTRF:F="###,###" 

100 CLS:PRINTCHR$(23) :PRINT"ENTER DATA ON EXISTING LOAN:" 
105 PRINTSTRING$(31,61) 
110 PRINT"ORIGINAL PRINCIPAL AMOUNT: ": PRINT" 

> " ; TAB ( 20 ) " " ; : INPUTP1 
120 PRINT"ANNUAL INTEREST RATE : " : PRINT" <";I0;"% >";TAB(20) 

PUTI0:I1=I0/1200 
130 PRINT"ORIGINAL LOAN TERM (YEARS) 

20) ""; :INPUTN0:N1=N0*12 
140 PRINT"DATE LOAN ORIGINALLY MADE: 

20) ""; :INPUTY1 
150 PRINT" MONTH: < " ;X1 ; ">" ;TAB ( 20 ) 
160 P=P1:I=I1:N=N1:GOSUB1000 
17 M1=M 

200 CLS:PRINTCHR$ (23) :PRINT"ENTER DATA ON NEW WRAP LOAN:" 
205 PRINTSTRING$(31,61) 
210 PRINT"INITIAL PRINCIPAL AMOUNT: ": PRINT" <" ;USINGF ; P2; : PRINT" > 

" ; TAB ( 20 ) " " ; : INPUTP2 
220 PRINT"ANNUAL INTEREST RATE : " :PRINT" <";I9;"% >" ;TAB ( 20) " " ; : IN 

PUTI9:I2=I9/1200 
230 PRINT"INITIAL LOAN TERM (YEARS):" 

0) "";:INPUTN9:N2=N9*12 
240 PRINT"CLOSING DATE FOR WRAP LOAN: 

(20) ""; :INPUTY2 
250 PRINT" MONTH: < " ;X2; " >" ;TAB ( 20 ) "' 
260 D2=12*Y2+X2 

27 1=12: N=N2 : P=P2 : GOSUB1000 : M2=M : Rl=Nl-D2+Dl 
280 P=P1:I=I1:N=N1-R1:GOSUB2000:TA=T 
290 P=M1 : 1=11 : N=N1-R1 : GOSUB3 000 : TB=T: B1=TA-TB 
400 CLS:PRINTCHR$(23) ; : PRINT "SUMMARY OF DATA INPUT:" 
405 PRINTSTRING$(31,61) 

410 PRINTTAB(10) "ORIG. LOAN" ;TAB ( 22) "WRAP LOAN" 
415 PRINTSTRING$(31,61) 

420 PRINT"ORIG . AMT . " ; TAB ( 12 ) US INGF ; PI ; : PRINTTAB ( 24 ) US INGF ; P2 
430 PRINT"INT. RATE" ; TAB( 14 ) 10 ; "% " ;TAB ( 26 ) 19 ; "% " 
440 PRINT"ORIG.TERM";TAB(16)N0;TAB(28)N9; 

450 PRINT"MO. PMT";TAB(12)USINGF;M1; : PRINTTAB ( 24 ) USINGF ;M2 
460 PRINT"CLOSING";TAB(10)X1; "/" ;Y1 ;TAB ( 22) X2; "/";Y2 
465 PRINTSTRING$(31,61) 
470 PRINT"WHEN WRAP LOAN IS CLOSED, ORIG. " : PRINT"LOAN BALANCE WILL 

BE $"; :PRINTUSINGF;B1:PRINT"WITH";R1; "MONTHS REMAINING." 
475 PRINTSTRING$(31,61) 

480 INPUT"PRESS ENTER TO CONTINUE" ;Z2 
485 CLS:PRINTCHR$(23) :PRINT"HIT 1 TO RE-ENTER ORIGINAL LOAN":PRINT 

:PRINT"HIT 2 TO RE-ENTER WRAP LOAN" : PRINT: PRINT"HIT ANY OTHER 
KEY TO CONTINUE. " 
490 X$=INKEY$:IFX$=""GOTO490 
492 X=VAL(X$) :ONXGOTO10 0,200 

495 PRINT:PRINTSTRING$(31,61) :PRINT 

496 Y=0:PRINT"HIT 1 IF WRAP LOAN WILL BE" : PRINT"PAID OFF PRIOR TO 

Program continues 



: PRINT" <";M9; n YRS >";TAB(2 
': PRINT" YEAR: < " ; Y2 ; " >" ; TAB 
'; :INPUTX2 
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"You should discuss the 
wrap-around loan with the original 
lender before proceeding. ..." 



credit and income, and (2) the interest rate 
on the loan will be substantially increased. 

From the viewpoint of the buyer and 
seller, the income and credit standards are 
usually no problem, but an increase in the 
interest rate may make the whole wrap- 
around mortgage idea far less atttractive, 
since it can drastically reduce the seller's 
yield on the wrap loan. Some states don't 
permit lenders to insist on an interest rate 
increase, but others do. What's more, feder- 
al savings and loan associations can de- 
mand interest rate increases in all states, 
since they are governed by federal law. 

You should discuss the wrap-around loan 
with the original lender before proceeding 
with the transaction. If the lender objects or 
demands that the interest rate be in- 
creased, you will probably need to consult a 
reputable lawyer with real estate experi- 
ence to determine whether the lender is on 
sound legal ground. By all means, stand up 
for your rights; lenders will often back down 
when confronted. But don't try to go ahead 
with the wrap-around transaction without 
telling the lender. The chances are very 
good that your buyer will be found out 
before long, and he may be forced to pay off 
the loan or switch to a higher interest rate 
under very inconvenient circumstances. In 
fact, if you are the seller under such condi- 
tions, you might end up having to pay a 
higher interest rate on the original loan than 
the buyer is paying you on the wrap loan! 

A second caution— this time to buyers. 
You need to be sure that, when you pay your 
monthly installment to the seller, he in turn 
will pay the bank. It's a good idea to run 
your payments through a neutral third par- 
ty, such as a lawyer or an escrow company, 
with instructions to split your payments in- 
to two parts, one to the seller and one to the 
bank. This way, the seller won't be tempted 
to keep all of your money and let the bank 
loan go into default. 

There are plenty of other legal considera- 
tions which go into the structuring of a 
wrap-around loan, so you should work with 
an experienced real estate lawyer. Real 
estate brokers and sales people often try to 
set up wrap-around deals without a lawyer's 
involvement, but too frequently they don't 
understand all of the ramifications of their 
own actions; indeed, the same is true of 
many lawyers who do not specialize in real 
estate work. Don't be afraid to spend a cou- 
ple of hundred dollars on good advice and 
document preparation; it could save you 
thousands in higher interest or legal fees in 
the long run. ■ 



MATURITY.": PRINT :PRINT"H IT ANY OTHER KEY TO CONTINUE." 

497 X$=INKEY$:IFX$=""GOT0497 

498 Y=VAL(X$) : IFY=1THENGOTO499ELSEGOTO502 

499 PRINT: INPUT"ENTER NUMBER OF YEARS TO PAYOFF" ;N8 :N3=N8*12 

502 CLS:PRINTCHR$ (23) ; :PRINT"AT TIME OF WRAP LOAN CLOSING: " :PRINT" 
475 PRINTSTRING$(31,61) 
480 INPUT"PRESS ENTER TO CONTINUE" ;Z2 

485 CLS:PRINTCHR$ (23) :PRINT"HIT 1 TO RE-ENTER ORIGINAL LOAN":PRINT 
:PRINT"HIT 2 TO RE-ENTER WRAP LOAN" : PRINT: PRINT"HIT ANY OTHER 
KEY TO CONTINUE." 
490 X$=INKEY$:IFX$=""GOTO490 
492 X=VAL(X$) :ONXGOTO100,200 

495 PRINT: PRINTSTRING$ (31, 61 ): PRINT 

496 Y=0:PRINT"HIT 1 IF WRAP LOAN WILL BE" : PRINT" PAID OFF PRIOR TO 

MATURITY. ":PRINT:PRINT"HIT ANY OTHER KEY TO CONTINUE." 

497 X$=INKEY$:IFX$=""GOT0497 

498 Y=VAL(X$) : IFY=1THENGOTO499ELSEGOTO502 

499 PRINT: INPUT"ENTER NUMBER OF YEARS TO PAYOFF" ;N8 :N3=N8*12 

502 CLS:PRINTCHR$(23) ;:PRINT"AT TIME OF WRAP LOAN CLOSING: ": PRINT" 
INVESTMENT OF WRAP LENDER (WRAP" : PRINT "LOAN MINUS BALANCE ON 
ORIGINAL" 

505 PRINT"LOAN = $" ; : PRINTUSINGF ;P2-B1 

508 PRINTSTRING$ (31,61) 

509 IFY=0PRINT:INPUT"PRESS ENTER TO CONTINUE" ; Z2:GOTO600 

510 PRINT"AT TIME OF PAYOFF (" ;N8 ; "YEARS" :PRINT"FROM WRAP LOAN CLO 

SING ) :" 
520 P=P2:N=N3:I=I2:GOSUB2000:TA=T 
525 P=M2:N=N3:I=I2:GOSUB3000:TB=T 
530 TW=TA-TB 'TW IS WRAP BAL AT PAYOFF 
540 P=P1:N=N1-R1+N3:I=I1:GOSUB2000:TA=T 
550 P=M1:N=N1-R1+N3:I=I1:GOSUB3000:TB=T 
56 TE=TA-TB 'TE IS ORIG LOAN BAL AT PAYOFF 
570 PRINT: PRINT "WRAP LOAN BALANCE: ", -TAB ( 20) USINGF ;TW 
580 IFTE<0PRINT:PRINT"ALL RETAINED BY WRAP LENDER. ": PRINT: PRINT"OR 

IGINAL LOAN WILL BE FULLY PAID" : PRINT: INPUT"PRESS ENTER TO CO 

NTINUE" ; Z2:GOTO600 
585 PRINT: PRINT"ORIG. LOAN BALANCE: " ;TAB( 20) USINGF ;TE 
590 PRINT :PRINT"NET CASH TO" ;TAB( 20) " ":PRINT"WRAP LENDER:"; 

TAB(20)USINGF;TW-TE:PRINT:INPUT"PRESS ENTER TO CONTINUE" ; Z2:G 

OTO6 00 
600 CLS:PRINTCHR$(23) :PRINT"NOW COMPUTING YIELD." 
610 IT(0)=0:IT(1)=.015 
620 IFY=0GOTO650 

625 F0RJ=1T099:I=IT(J) :P=M2:N=N3 :GOSUB4000 :SM=T 
628 IFTE>0P=TW-TEELSEP=TW 
630 N=N3:I=IT(J) :GOSUB5000 : SM=SM+T 
635 P=M1:N=N3:IFN1-D2+DKN3THENN=N1-D2+D1 
640 GOSUB4000:SM=SM-T 
645 GOTO67 

650 F0RJ=1T099:I=IT(J) :P=M2:N=N2:GOSUB4000 :SM=T 
660 I=IT(J) :P=M1:N=N1-D2+D1:GOSUB4000:SM=SM-T 
67 NV=SM-P2+B1 

680 IT(J+1)=IT(J)+SGN(NV)*(1/2)*ABS(IT(J)-IT(J-1)) 
6 90 IFSGN(IT(J)-IT(J-1))=0GOTO700 

695 PRINT"TRIAL";J;" NET VAL DIFF.=";NV 

696 PRINT" INTEREST =" ; 1200*IT ( J) ; "%" :PRINT 
6 97 NEXTJ 

700 PRINT"FINAL YIELD =" ;1200*IT ( J) ; "%" 
710 PRINT: PRINT" PRESS ENTER FOR NEW RUN." 
720 INPUTZ3 
730 GOTO100 

999 END 

1000 V=l/(1+I) [N:M=P*I/(1-V) :RETURN: 'MONTHLY PAYMENT 
2000 T=P*(1+I) [N:RETURN: 'FUTURE VAL OF LUMP SUM 

3000 T=P*( ( (1+1) [N)-1)/I:RETURN: 'FUTURE VAL OF PERIODIC PMTS 

4000 T=P*(1-(1/(1+I) ) [N)/I:RETURN 'PRES. VAL OF STREAM OF FUTURE P 

MTS 
5000 T=P/(1+I) [N: RETURN 'PRESENT VAL OF SINGLE FUTURE PMT 
10000 DATA40 000, 8, 30, 1975, 1,80000, 12, 25, 1980,1 
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HARD DISK 
MULTIPLEXOR 

FORTRS-80*Modll 




NOW YOU CAN HAVE THAT LARGE COMMON DATA BASE!! 7 

• Allows up to 4 Mod ll's to connect to a single controller — up to 4 hard disk drives per controller. Users may access the same file simultaneously (first-come x 
first-served). ' & 

• Uses Cameo controller and standard 10-megabyte cartridge (hard) disk drives along with RACET Hard/Soft Disk System (HSD) software. Removable Disk h 
Pack Backup! » 

• Access times 3 to 8 times faster than floppy. Mixed floppy/hard disk operation supported. = 

• Compatible with your existing TRSDOS programs — you need only change filenames! All BASIC statements are identical. 3 

• A single file may be as large as one disk. Directory expandable to handle thousands of files. I 

• Includes special utilities — XCOPY for backup and copies, XPURGE for multiple deletions, DCS directory catalog system, and Hard Disk Superzap. FORMAT > 
utility includes options for specifying sectors/gran, platters/drive, logical disk size, etc. 8 

HARD DISK DRIVE AND CONTROLLER $5995 RACET HSD Software $400 Call for multiuser pricing. Dealers call for OEM pricing, c 

** NEW • • DISCAT(32K 1 -drive Min) Mod I, III $50.00 '" * 

This comprehensive Diskette Cataloguing/Indexing utility allows the user to keep track of thousands of programs in a categorized library. Machine language program 3 

works with all TRSDOS and NEWDOS versions. Files include program names and extensions, program length, diskette numbers, front and back, and diskette w 

free space. I 

• *NEW* • KFS-80 (1 -drive 32K Min — Mod II 64K) Mod I, III $100.00; Mod II $175.00 ? 
The keyed file system provides keyed and sequential access to multiple files. Provides the programmer with a powerful disk handling facility for development of 2 
data base applications. Binary tree index system provides rapid access to file records. ' -I 

• * NEW • • MAILLIST (1 -drive 32K Min — Mod II 64K) Mod I, III $75.00; Mod II $150.00 § 
This ISAM-based maillist minimizes disk access times. Four keys — no separate sorting. Supports 9-digit zip code and 3-digit state code. Up to 30 attributes. ? 
Mask and query selection. Record access times under 4 seconds!! " <? 

• •NEW** LPSP00L(32K1 -drive Min) Mod I $75.00 " 
LPSPOOL — Add multi-tasking to permit concurrent printing while running your application program. The spooler and despooler obtain print jobs from queues x 
maintained by the system as print files are generated. LPSPOOL supports both parallel and serial printers. o 
BASIC LINK FACILITY BLINK' (Mod I Min 32K 1-disk) Mod I $25.00; Mod II $50.00; Mod III $30.00 h 
Link from one BASIC program to another saving all variables! The new program can be smaller or larger than the original program in memory. The chained program o 
may either replace the original program, or can be merged by statement number. The statement number where the chained program execution is to begin may 3 
be specified! to 

INFINITE BASIC (Mod I & Mod III Tape or Disk) Mod I $50.00; Mod III $60.00 i 

Extends Level II BASIC with complete MATRIX functions and 50 more string functions. Includes RACET machine language sorts! Sort 1000 elements in 9 seconds!! £ 

Select only functions you want to optimize memory usage. m 

INFINITE BUSINESS (Requires Infinite BASIC) Mod I & III $30.00 c 

Complete printer pagination controls — auto headers, footers, page numbers. Packed decimal arithmetic — 127 digit accuracy +, -,*,/. Binary search of F 

sorted and unsorted arrays. Hash codes. " h 

COMPROC (Mod I & Mod III — Disk only) Mod I $20.00; Mod III $30.00 w 

Command Processor. Auto your disk to perform any sequence of instructions that you can give from the keyboard. DIR, FREE, pause, wait for user input, BASIC, I 

No. of FILES and MEM SIZE, RUN program, respond to input statements, BREAK, return to DOS, etc. Includes lowercase driver software, debounce and screenprint! > 

GSF (Mod I & III Tape or Disk -- Specify Memory Size) Mod I $25.00; Mod II $50.00; Mod III $30.00 § 

Generalized Subroutine Facilities. The STANDARD against which all other sorts are compared! Machine language — fast and powerful! Multi-key multi-variable o 

and multi-key character string. Zero and move arrays. Mod II includes USR PEEKS and POKES. Includes sample programs. 1 

DSM (Mod I Min 32K 2-drive system. Mod II 64K 1 -drive. Mod III Min 32K 1 -drive) Mod I $75.00; Mod II $150.00; Mod III $90.00 f 

Disk Sort/Merge for RANDOM files. All machine language stand-alone package for sorting speed. Establish sort specification in simple BASIC command File. 8 

Execute from DOS. Only operator action to sort is to change diskettes when requested! Handles multiple diskette files! Super fast sort times — improved disk I/O I 

times make this the fastest Disk Sort/Merge available on the TRS. 5 

UTILITY PACKAGE (Mod II 64K) $150.00 £ 

Important enhancements to the Mod II. The file recovery capabilities alone will pay for the package in even one application! Fully documented in 124 page manual! ^ 

XHIT, XGAT, XCOPY and SUPERZAP are used to reconstruct or recover data from bad diskettes! XCOPY provides multi-file copies, 'wild-card' mask select, o 

absolute sector mode and other features. SUPERZAP allows examine/change any sector on diskette including track-0, and absolute disk backup/copy with I/O rj 

recovery. DCS builds consolidated directories from multiple diskettes into a single display or listing sorted by disk name or file name plus more. Change Disk i 

ID with DISKID. XCREATE preallocates files and sets 'LOF' to end to speed disk accesses. DEBUGII adds single step, trace, subroutine calling, program looping, 3 

dynamic disassembly and more!! £ 

BASIC CROSS REFERENCE UTILITY (Mod II 64K) $50.00 3 

SEEK and FIND functions for Variables, Line Numbers, Strings, Keywords. 'All' options available for line numbers and variables. Load from BASIC — Call with Ej 

'CTRL'R. Output to screen or printer! F 

DEVELOPMENT PACKAGE (Mod II 64K) $125.00 g 

Includes RACET machine language SUPERZAP, Apparat Disassembler, and Model II interface to the Microsoft 'Editor Assembler Plus' software package including w 

uploading services and patches for Disk I/O. Purchase price includes complete copy of Editor Assembler + and documentation for Mod I. Assemble directly » 

into memory, MACRO facility, save all or portions of source to disk, dynamic debug facility (ZBUG), extended editor commands. o 



<» CIRCLE READER REQUEST FOR FREE 24-PAGE CATALOG 

ul 'TRS-80 IS A TRADEMARK OF TANDY C0RP0RTI0N 

£ RACET SORTS - RACET UTILITIES - RACET computes 



CHECK, VISA, M/C, C.O.D.. PURCHASE ORDER 
TELEPHONE ORDERS ACCEPTED (714) 637-5016 



£r- RACET computes -rg 



1330 N. GLASSEL. SUITE M', ORANGE, CA 92665 
RACET SORTS — RACET UTILITIES — RACET computes — RACET SORTS RACET SORTS — RACET UTILITIES — 



^See List of Advertisers on page 306 
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"Fin Wayne Green 
and I can save you $986 
on the purchase of a 
computer system! 




I hope that has your attention. 



*> 



"That's the difference between 
walking into your local Radio Shack 
store and plunking down hard cash 
. . . and buying from the ads in 80 
Microcomputing magazine. That's 
the difference for a simple combina- 
tion such as a Model III two disk 
system with 48 K of memory, a 
modem and a Line Printer II: The 
Radio Shack price for that cpm- 
bination is $3,612. If you buy from 
the ads in my magazine, you'll buy 
exactly the same system for $2,626. 



So why throw away $986? 

"The fact is that the money you 
can save on even the smallest acces- 
sory purchase will pay for the maga- 
zine subscription many times over. 
That's one of the reasons so many 
people are subscribing to 80. 

"Another is that it is the major 
source of information on the TRS-80 
computer. In 1980 there were 335 
feature articles on the system. . . 
with detailed instruction on how to 
do things (sorry about that), evalua- 



tions of accessories and software . . . 
and so on. I guarantee you'll find the 
magazine invaluable. 

"A subscription to 80 is still only 
$18 (when are we going to raise that 
darned price to $25, where it should 
be?) , so get your subscription in be- 
fore I boost that price. It could be 
any day now." 



Wayne Green 
Editor/Publisher 



Card*. 




II me coupon below has Men used, please till out subscription lorm on the Reader Service card in the back ol mo magazine 

Sign me on as a subscriber to 
80 Microcomputing for only $18 a year! 



Exp. 



Signature 



D 12 issues -S18 
D 36 issues -$45 
Q Please bill me 
D Payment Enclosed 
D Masier Charge 
D VISA 
D American Express 



State. 



.Zip. 



microcomputing 



Peterborough. N.H. 03458 



Subscription bogms with next published issue 
Back issues, while available arc S3 each 
Canada $20 per year US lunds 
All other foreign subscriptions $28 one year only 



315B8 



PERSONAL 



Evaluate the financing plan 
for your next new-used or used-new car with this program. 



A Dollar Down . . . 



Jack Martin 

773 Radar Squadron 

Montauk, NY 11954 



When spring rolls around, you'll be look- 
ing at the rust spots, faded paint and 
scratches on the old family car, and getting 
the itch to trade her in for a shiny new one. 

You'll visit the car lot, kicka few tires, and 
when you have that new car with all the op- 
tions picked out, the sales representative 
will say, 'We'll take your old car and $5000. 
You can drive it home today for $175.78 per 
month, for the next 36 months. Can I write 
up the order?" 

You'll study the figures, look at the bright 
paint job, look again at the figures, then 
you'll say, "Yeh, we'll take it!" 

What you should do is take the figures 
home first, and run them through this pro- 
gram. It will provide answers to cost and in- 
terest quickly and without the sales-pitch 
pressure. 

The Program 

Although written for the Radio Shack 
Level II TRS-80, the program should readily 
adapt to other BASICS. There are no unique 
statements used, except INKEY$ to reduce 
response time and save wear on the ENTER 
key. 

Lines 60 through 130 graphically intro- 
duce the program. Lines 150 to 190 ask the 
user to input information concerning the 



cost of the car, monthly payments, and the 
term of the loan. The program will handle 
periods of 18, 24, 30, 36, 42, 48, 54, or 60 
months. These are common financing 
terms and should fit most circumstances. 
Lines 350 through 400 and the data state- 
ments store specific values in the S(N,R) ar- 
ray. The value stored represents the Present 
Value of $1 Received Monthly or PVIF. It is 
based on the formula: 



= $1 



1=*^] 



= $ 1 p n,r 



The value is used to determine the interest 
rate and becomes a necessary ingredient in 
other calculations performed by the pro- 
gram. 

After the math functions are completed, 
the program displays information concern- 
ing the car purchase (lines 520 to 630). Then 
the user may alter the interest rate or the 
period of repayment to see what difference 
the change makes. The new values are com- 
pared to the original deal. Sometimes these 
comparisons can be real eye-openers! If a 
comparison is not requested, the user may 
run a complete new cost analysis, or exit 
the program. 



The percentage rate change and com- 
parison is accomplished in lines 840 to 
1340. The program will handle percentage 
inputs between nine and 24 percent. The 
time period is done in lines 1360 through 
1830. 

Buying the Car 

Getting back to our car buying example, 
you would actually pay 16 percent interest 
on the loan, and the $5000 car would cost 
you $6328.08. 

Could you get the loan cheaper, for less 
interest? Probably, but it would require 
shopping around for the loan just as care- 
fully as you did for the car. 

Let's say the local bank or credit union 
provided the $5000 loan at 12 percent inter- 
est over the same 36-month payment per- 
iod. Using the comparison feature of the 
program, you discover you would only have 
to pay back $5978.48, a savings of $349.60. 
Look closer at the two comparisons. At 16 
percent, your payments were $175.78, while 
at 12 percent interest they are $166.06. That 
leaves you $9.71 each month to spend. 

Cars cost quite a bit these days, but don't 
pay more than you have to. I hope this pro- 
gram will help prevent that.B 



10 
20 
30 
40 
50 
60 
70 



REM *** CAR DEAL *** 

REM JACK MARTIN MAY 19 80 

CLEAR500 

AS="$$##, ####.##" 

DIM S(8,16) 

CLS 

PRINT: PRINT: PRINT: PRINT: PRINT 

PRINTSTRING$(55,"$") ; 

PRINT 

PRINT@450," CAR DEAL" 

PRINT 

PRINTSTRINGS (55, "?") ; 

FORX=1TO600 : NEXTX 

REM INPUT DATA 

CLS: INPUT" PRICE OF CAR $ ";C 

PRINT 

i INPUT"AMOUNT OF MONTHLY PAYMENT $ " ; Ml 

I PRINT 

I INPUT"HOW MANY MONTHS TO PAY LOAN ";N1 

I IFN1=18THENB=1:GOTO320 
I IFM1=24THENB=2:GOTO320 
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INTERFACE EXPANSION BOARD) 



For the TRS 80' 



MOO-D6SIGN 




The Interface Expansion Board gives 
your computer these features: 



MDX-1 



Phone Modem 

2K E-PROM OPTION ln stock Now 

32 K Memory ^ Board & user manual 

Real-Time Clock 

Parallel Port 

RS-232 Port 

Dual Cassette Line 

Floppy Disk Controller" MDX-2* 

On Board Supply 

Silk Screen 

Solder Mask 

Expansion Port 

Manual 



64.95 



74?5 



Add 5.00 tor shipping 
& handling. Texas res- 
idents add 5% sales 
tax. 

MANUALS $7.95 

•FREE PAMPHLET AVAILABLE— 
Call or write 



MOO-DesiGn 

P.O. Box 18054 

Austin, Texas 78760 

1-512-458-2937 



^-379 



I 0SI(8K) 



APPLE 



TRS-80t 




PRESENTS: 



Computers 

& Gambling 

Products 

Magazine 

PROBABILITY HANDICAPPING 
DEVICE 1 - A BASIC PROGRAM FOR: 
HORSE RACE HANDCAPPING! 

This incredible program was written by a professional software 
consultant to TRW Space Systems This is a complex program 
carefully human factored for easy use. It is a comprehensive 
horse racing system for spotting overlays in thoroughbred sprint 
races. Your computer will accurately predict the win probability 
and odds line for each horse based on your entries from the rac- 
ing form The next day overlaid horses can be spotted on the 
track tote board The user's manual contains a complete explana- 
tion of overlay betting plus much more useful information. The ap- 
pendix contains a detailed tab run of a 100 consecutive race 
systom workout showing an amazing 50% return ($1.50 return- 
ed for each $1 00 flat wager ) Includes many features such as 
error correction, bubble sort, line printer output, automatic 
keyboard debounce. archiving, etc The manual may be ordered 
separately tor perusal tor $7 95 and credit. 
CHALLENGER IP. 2P, or 4P 8K VERSIONS Now Available! 
Phd-1 User's manual and cassette for: 
Apple II (16K). TRS-80 Level II (16K), Challenger (8K) . 29.95 
TfiS-80 or APPLE DISK 34.95 

BRAND NEW FROM SDL: WIN AT THE RACES. This thoroughbred 
handicapping algorithm is based on a currently popular book on 
thoroughbred multiple regression techniques. Both sprints and 
routes. All of (he features ot PHD-1 plus more. This program in- 
corporates the best data entry technique we've ever seen. 

32K TRS-80 or APPLE CASSETTE 34.95 

32K TRS-80 or APPLE DISK 39.95 

BOOKS: ' 

Winning at the Races 21.95 + .75P&H 

Beating the Races with a Computer 14.95 + .75 P&H 

Make checks payable lo JOE COMPUTER DEPT. 8 ^ 193 
22713 Ventura Blvd., Suite F, Woodland Hills, CA 91364 
HBB CA residents add 6 % sales tax. ^5?" 
l^pK! PHONE ORDERS: 213-992-0514 ■— 

•SEND $2.00 TO PLACE YOUR NAME ON OUR MAILING LIST. 

jTRS-80 is a registered trademark ol Tandy Corporation. 



IFN1=30THENB=3:GOTO320 
IFN1=36THENB=4:GOTO320 
IFN1=42THENB=5 :GOTO320 
IFN1=48THENB=6 :GOTO320 
IFN1=54THENB=7 :GOTO320 
IFN1=60THENB=8:GOTO320 
IFN1O18ORN1O24ORN1O30ORN1O36ORN1O42ORN1O48ORN1O54ORN1O 

60GOTO290 
PRINT"SORRY - I CAM ONLY HANDLE FINANCING FOR 18, 24, 30, 36," 
PRINT"42, 48, 54 OR 60 MONTHS." 
GOTO190 

PRINT0916 , "COMPUTING " 

LETX1=C/M1 

REM SET UP ARRAY 

RESTORE 

FOR N=1T08 

FORR=lT016 

READS (N,R) 

NEXTR 

NEXT N 

REM FIND 'X' VALUE 

FORR=16TO0STEP-1 

IFR=0THENPRINT:PRINT"I DO NOT FINANCE BELOW 9%":GOTO710 

IFX1=S(B,R)THEN490 

IFX1>S(B,R)THEN480 

IFR=16ANDXKS(B,R)THENPRINT:PRINT"THAT LOAN IS ABOVE 24%, MY L 

IMIT":GOTO710 
LETPl=R+9 : GOTO510 
NEXTR 
LETPl=R+8 

REM DISPLAY DATA 
T1=M1*N1:I1=T1-C 

CLS: PRINT" COST ANALYSIS" 
PRINTSTRING$(55,"=") ; 

PRINT: PRINT"COST OF CAR: ";"";: PRINTTAB ( 45) USINGA$ ;C 
PRINT"MONTHLY PAYMENT: ";"";: PRINTTAB ( 45 ) US INGAS ; Ml 
PRINT"PERIOD OF LOAN (MONTHS) :";"";: PRINTTAB (48) ;N1 
PRINT" INTEREST RATE OF LOAN (%):"; "" ;: PRINTTAB (48) ; PI 
PRINT"TOTAL COST OF LOAM: ";"";: PRINTTAB (45) USINGA$;T1 
PRINT 

PRINT"AS YOU CAN SEE, IT IS A" ; PI ; "PERCENT LOAN." 
PRINT"THAT $";C;"CAR WILL ACTUALLY COST YOU $";Tl 
PRINT"OVER THE", -Nl; "MONTH PERIOD. YOU WILL PAY" 
PRINT" $"; II; "IN INTEREST." 
PRINT 

PRINT" A DIFFERENT INTEREST RATE OR PERIOD OF LOAN CAN" 
PRINT"MAKE A BIG DIFFERENCE. WANT A COMPARISON (Y/N) ?" 
GOSUB1970 
IFKB=89GOTO770 
IFKBO7 8GOTO67 
IFKB=7 8GOTO710 

PRINT: PRINT"WANT ANOTHER COMPLETE COST RUN?" 
GOSUB1970 
IFKB=89GOTO30 
IFKBO78GOTO7 20 
IFKB=78GOTO1850 
REM GET PARAMETER CHANGE 

PRINT: PRINT"DO YOU WISH TO CHANGE <P>ERCENT OR" 
PRINT" <M>ONTHS OF REPAYMENT?" 
GOSUB1970 
IFKB=80GOTO840 
IFKBO77GOTO7 90 
IFKB=77GOTO1360 
REM PERCENT CHANGE ROUTINE 

CLS:INPUT"WHAT IS NEW PERCENTAGE RATE (BETWEEN 9% & 24%)";P2 
IFP2<90RP2>24THENPRINT"THAT RATE IS OUT OF RANGE. ENTER AGAIN" 
: INPUTP2 : IFP2<9ORP2>24THENGOTO850 

PRINT@916, "STANDBY " 

IFP2=9THEND=1 

IFP2=10THEND=2 

IFP2=11THEND=3 

IFP2=12THEND=4 

IFP2=13THEND=5 

IFP2=14THEND=6 

IFP2=15THEND=7 

IFP2=16THEND=8 

IFP2=17THEND=9 

IFP2=18THEND=10 

IFP2=19THEND=11 

IFP2=20THEND=12 

IF P=21 THEN D=13 

IFP2=22THEND=14 

IFP2=23THEND=15 

IFP2=24THEND=16 

LETX2=S(B,D) 

LETM2=C/X2:T2=M2*Nl:I2=T2-C 

CLS:PRINT"NOW THAT $";C;"CAR WILL COST YOU" 
PRINT" $";T2; "OVER THE" ;N1 ; "MONTH PERIOD." 
IFT2>T1GOTO1220 

PRINT"THAT MAKES THE" ; P2 ; "PERCENT LOAN " 

PRINT@188,USINGA$;T1-T2; :PRINT" CHEAPER THAN THE" , -PI ; "PERCENT 
LOAN." 
1100 FORZ=1TO500:NEXTZ 
1110 PRINTSTRING$(55,"=") ; 
1120 PRINT 

1130 PRINT"LOOKING CLOSELY, YOU WILL NOTE THAT THE MONTHLY" 
1140 PRINT" PAYMENTS ON THE" ;P2 ; "PERCENT LOAN ARE $" ; INT (100* (M1-M2 
) )/100 



220 
230 
240 
250 
260 
27 
280 

290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 

470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
6 90 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 

860 

870 
880 
890 

900 
910 
920 
930 

940 
950 
960 
970 
980 
990 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
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1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 

1470 



PRINT-CHEAPER THAN THE" ; PI ; "PERCENT LOAN. ALSO, IF" 

PRINT"YOU TRADED AT THE END OF THE YEAR, YOU WOULD" 

PRINT"STILL OWE $" ;T1- (Ml*12) ; "WITH THE" ; PI ; "PERCENT" 

PRINT"LOAN. AT", -P2; "PERCENT, YOU WOULD ONLY OWE" 

PRINT"$";T2-(M2*12) ;". THIS GIVES YOU MORE TRADE-IN." 

PRINT:PRINT"HIT 'ENTER' TO CONTINUE" : INPUTBS 

IFB$=""GOTO710 

PRINT"THAT MAKES THE" ; PI ; "PERCENT LOAN" 

PRINT@188,USINGA$;T2-T1;:PRINT" CHEAPER THAN THE" 

PRINTP2; "PERCENT LOAN." 

PRINTSTRING$(55, "=") ; 

PRINT: PRINT"YOU CAN SEE THAT THE MONTHLY PAYMENTS" 

PRINT"ON THE", -PI, -"PERCENT LOAN ARE $" ; INT ( 100* (M2-M1 ) )/100 

PRINT"CHEAPER THAN THE" P2 ; "PERCENT LOAN. ALSO," 

PRINT"IF YOU TRADED AT THE END OF THE FIRST YEAR," 

PRINT"YOU WOULD STILL OWE $" ;T2- (M2*12 ) ; "WITH" 

PRINT"THE";P2; "PERCENT LOAN. AT" ; PI ; "PERCENT, YOU" 

PRINT-WOULD ONLY OWE $" ;T1- (Ml*12 ) 

PRINT: PRINT"HIT 'ENTER' TO CONTINUE" : INPUTB$ 

IFB$=""GOTO710 

REM MONTH CHANGE ROUTINE 

CLS 

INPUT"HOW MANY MONTHS IS THE LOAN FOR";N2 

IFN2=18THENE=1:GOTO1500 

IFN2=24THENE=2:GOTO1500 

IFN2=30THENE=3 :GOTO1500 

IFN2=36THENE=4:GOTO1500 

IFN2=42THENE=5:GOTO1500 

IFN2=48THENE=6 :GOTO1500 

IFN2=54THENE=7 :GOTO1500 

IFN2=60THENE=8 :GOTO1500 

IFN2O18ORN2<>24ORN2<>30ORN2<>36ORN2<>42ORN2<>48ORN2O54ORN2< 
>60GOTO1470 

PRINT"SORRY - I CAN ONLY HANDLE FINANCING FOR 18, 24, 30, 36, 

MONTHS . " 



164 
165 

166 



171 

172 

17 3 



1480 PRINT"42, 48, 54 OR 6! 
1490 GOTO1370 
1500 PRINT@916, "COMPUTING.. .. " 
1510 LETR=Pl-8 
1520 LETX2=S(E,R) 

15 30 LETM2=C/X2:T2=M2*N2:I2=T2-C 

1540 CLS:PRINT"NOW THAT $";C;"CAR WILL COST YOU" 
1550 PRINT" $";T2; "OVER A";N2;"MONTH PERIOD." 
1560 IFT2>T1GOTO1710 

1570 PRINT"THAT MAKES THE" ;N1 ; "MONTH LOAN" 

1580 PRINT@188,USINGA$;T1-T2; :PRINT" MORE EXPENSIVE THAN THE" 
1590 PRINTN2; "MONTH LOAN." 
1600 FORZ=1TO500:NEXTZ 
1610 PRINTSTRING$(55,"=") ; 

1620 PRINT: PRINT"UPON EXAMINATION, YOU CAN SEE THAT THE MONTHLY" 
1630 PRINT" PAYMENTS ON THE" ;N2; "MONTH LOAN ARE $" ; INT (100* (M2-M1 ) ) 
/100 

PRINT"MORE THAN THE" ;N1 ; "MONTH LOAN. IF YOU TRADED" 
PRINT" AT THE END OF THE YEAR, YOU WOULD STILL OWE" 
PRINT"$";T2-(M2*12) ; "ON THE" ;N2 ; "MONTH LOAN, BUT" 
1670 PRINT-IF YOU HAD THE" ;N1 ; "MONTH LOAN, YOU WOULD OWE" 
1680 PRINT"$";T1-(M1*12) 

1690 PRINT: PRINT"HIT 'ENTER' TO CONTINUE" : INPUTBS 
1700 IFB$=""GOTO710 

PRINT"THAT MAKES THE" ;N1 ; "MONTH LOAN " 
PRINT@188,USINGA$;T2-T1;: PRINT" CHEAPER THAN THE" 
PRINTN2; "MONTH LOAN." 
17 40 FORZ=1TO500:NEXTZ 
1750 PRINTSTRINGS(55, "=") ; 

1760 PRINT: PRINT"NOTICE THAT THE MONTHLY PAYMENTS ON THE";N1 
1770 PRINT"MONTH LOAN ARE $"; INT (100* (M1-M2) )/100 ; "MORE THAN THE"; 

N2 
17 80 PRINT"MONTH LOAN. IF YOU TRADED AT THE END OF THE YEAR," 
17 90 PRINT"YOU WOULD STILL OWE S" ; T2- (M2*12) ; "ON THE";N2 
1800 PRINT"MONTH LOAN, BUT IF YOU HAD THE" ;N1; "MONTH LOAN," 
win print"YOU WOULD OWE $" ;T1- (Ml*12) 

PRINT: PRINT-HIT 'ENTER' TO CONTINUE" : INPUTBS 
IFB$=""GOTO710 
1840 REM EXIT PROGRAM 
1850 CLS: PRINT: PRINT: PRINT: PRINT 

FOR MY HELP?" 
1860 PRINT: PRINT: PRINT: PRINT" 
1870 PRINT: PRINT: PRINT: PRINT" 
1880 END 

1890 DATA16. 77 9, 16. 651, 16. 524, 16. 398, 16. 27 4, 16. 151, 16. 030, 15 
5.7 90,15.67 3,15.556,15.441,15.327,15.214,15.102,14.992 
DATA21. 889, 21. 671, 21. 456, 21. 243, 21. 034, 20. 828, 20. 624, 20 
0.226,20.030,19.838,19.648,19.461,19.276,19.09 4,18.914 
DATA26. 77 5, 26. 447, 26. 125, 25. 808, 25. 4 96, 25. 190, 24. 889, 24. 59 3, 2 
4.302,24.016,23.735,23.458,23.186,22.918,22.65 5,22.396 
1920 DATA31. 447, 30. 991, 30. 545, 30. 108, 29. 67 9, 29. 259, 28. 847, 28 444,2 

8.048,27.661,27.281,26.908,26.543,26.185,25.833,25.489 
1930 DATA35. 914, 35. 315, 34. 730, 34. 158, 33. 600, 33. 054, 32. 521, 32. 000, 3 

1.492,30.994,30.508,30.032,29.56 8,29.113,28.66 9,28.235 
1940 DATA40. 185, 39. 428, 38. 691, 37. 974, 37. 275, 36. 595, 35. 931, 35. 285, 3 
4.656,34.04 3,33.445,32.862,32.294,31.940,31.120,30.67 3 
DATA44. 17 9, 43. 246, 42. 342, 41. 465, 40. 612, 39. 7 86, 3 8. 983, 3 
7.446,36.712,35.997,35.303,34.629,34.07 3,33.297,32.717 
DATA4 8. 17 3, 47. 06 5, 45. 993, 44. 955, 43. 950, 42. 977, 42. 035, 41. 122, 4 
0.237,39.380,38.550,37.745,36.964,36.207,35.473,34.761 
1970 KB$=INKEY$:IFKB$=""GOTO1970 
1980 KB=ASC(KB$) : RETURN 



181f 
182t 
1836 



190t 



1915 



AREN'T YOU GLAD YOU ASKED 



S S CAVEAT 
GOOD 



EMPTOR 
LUCK 



$ $" 



909,1 
424,2 



195C 



196C 



,203,3 




EDU-WARE EAST 
E I P.O. Box 336 

Maynard, MA. 01754 
617-568-8641 

^477 




MATHPAK-1: MATH-PAK2: MATHPAK-3 

Interactive drill programs where you antar the answer* 
digit by digit, just like paper and pencil. With user 
selected difficulty levels, carryovers, reducing, simpli- 
fication, pointing off, scoring, games, and more. Used 
by schools everywhere. Order MATH-PAK-1 for Inte- 
gers, MATH-PAK-2 for fractions, MATHPAK-3 for 
decimals. (L2-16K) $14.95 ea. 

H-O-R-K-S 
Low cost, single entry accounting system for the home 
or office. With 66 user assigned account codes, auto 
audit trail, search with totals, 32 or 48K, 1 to 4 drives, 
credit and debit summaries with 3 options, up to 9200 
•ntrles. $24.95/cassette $29.9S/dlsc 

INVENTORY +• 

Why settle for ]ust an inventory listing? Qet aging 
reports with 2 options, reorder, total listings with pur- 
chase dates and amounts, total costs, Items sold, pro- 
fit/loss and more. Use as a stand alone system with 
dally updates, delete, change, and file packing 
routines. (32K - 1 disc minimum) $24.95/cassette 

$29.95/dlso. 

CASH REGISTER 80 
Use your TRS-80 as a point of sale terminal with 
automatic Inventory lookup, pricing, update, and more. 
Print sales slips with user adjusted formats, end of 
day reports with all cash, charge, and check sales by 
salesperson. CR80 requires INVENTORY-*-, 48K, and 
1 disc minimum (2 drives recommended). 

$24.95/cassette $29.95/dlsc. 



Mass residents and 5% tax. VISA, M.C., AND PHONE 
ORDERS ACCEPTED. Dealer Inquiries Invited. Over- 
seas orders add $2.00 for air shipment. TRS-80 Is a 
trademark of Tandy Corp. 



THE 

WORD 

WIZARD 

A LEVEL II WORD PROCESSOR 

• Text NOT limited by memory 

• 35 commands for easy processing 

• Custom keyboard input routines 

• Custom cassette I/O routines 

• Custom hardcopy print routines 

• Embedded Z80 routines for speed 

• Includes hyphenation routines 

• Long line input (255 characters) 

• Huge text buffer (store 60 lines) 

• Built in default values 

• Global & Local search & replace 

• Line move and Line duplicate 

• Double sized headings supported 

AND MUCH, MUCH MORE! 
JUST $29.95 

^138 

1806 Ad* Street 

Lansing. MI +8910 

517/487-3358 

517/485-0344 

\dd S2.IH) for crush-proof box. SI. 50 for COD. 
Master Charge or I isa orders. 



sSee List of Advertisers on page 306 
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AMERICAN 

1 18 SO. MILL STREET • PRYOR, OK 74361 
PHONE (918) 825-4844 



ALL LISTED PRICES ARE CASH DISCOUNTED. WE ACCEPT AAC, VISA, AND COD (REQUIRES CERTIFIED CHECK, CASHIERS CHECK OR CASH) FOR CHARGE 
COD SERVICE PLEASE ADD 5%. SHIPPING AND HANDLING ARE FREE ON ALL ORDERS. OKLAHOMA RESIDENTS PLEASE ADD 4% SALES TAX. 



ORDERS PLEASE ADD 3%. FOR 



32K-EXPANSION INTERFACES 



SPECIAL OFFERING. 

Due to a very special purchase, 
American Business Computers 
is able to offer a limited number 
of Radio Shack* Expansion 
Interfaces at the lowest price 



For TRS-80* 
Model 1 

399 95 



American Business Computers 
guarantees Expansion Interfaces 
to be Brand New — still in origi- 
nal documentation and in per- 
fect working condition. 



ever. 



ALL CABLES AND DOCUMENTATION ARE INCLUDED WITH INTERFACES. ^ 396 



NEW PRODUCT FOR THE COLOR COMPUTER... MOON LANDER BY GREG ZUMWALT 

In this exciting new adventure for the Color Computer* you attempt to guide your lander to a safe landing. Watch 
out for the hills and valleys and don't run out of fuel! Tough, Challenging, and Exciting. You won't want to miss 
this one ONLY $14.95 



^397 



PAPER FOR YOUR PRINTER 



9!/2xll 

3200 Sheets- 15 Pounds 

$39.00 



Prices Includes 

Shipping Within 

Continental 

United States 

Via Ups 

* * New Item * * 



14x 11 
3200 Sheets- 15 Pounds 

$44.00 



Continuous Envelopes - That's Right - Fanfold envelopes with tractor perforations down 
either side. 

ENVELOPE SIZE 4 Vi x 10" with tractor perforations AVi x 11 " 



PRICE 59 95 per 



thousand. 
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TEAC DISK DRIVES I 


We are pleased to an- 






nounce that we are now 






able to offer TRS-80 


$295 


A high-precision lead T 


compatible mini disk 




screw method is used for j, 


drives. These drives are 




positioning the head to [ 


fully compatible with 




the correct track. Four [ 


TRSDOS, NEWDOS, 
and NEWDOS 80 PLUS. 


$570 


motor steps are used for fi 
move the width of one j- 


The TEAC DRIVE is one 


track. This improved 


of the first Japanese disk 
drives to appear on the 


Duel Drive In One Enclosure 
(Cabinet) 


positioning accuracy 
greatly reduces the pos- ' 


American market. In 


sibility of data error. 


many ways it is quite su- 
perior to its American 
made counterparts. 


Two Drive Cable - $29.95 
Four Drive Cable - $39.95 
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MAGIC WAND 
AND THE MOD II 



The Magic Wand is the most powerful, most 
flexible, most reliable, most usable word pro- 
cessing software available for a CP/M-Based 
Model II Computer I 



$295 



*TM Digital Research Inc. 

That's not bragging. That's just telling it like 
it is. 

The MAGIC WAND is the best word proces- 
sing software ever written for a microcom- 
puter. It can do more work in less time with 
higher quality than any other product you can 
buy. 

The MAGIC WAND is a rock solid piece of 
software. The command structure is simple 
and logical and complete. We have not tossed 
in features without thought to the overall de- 
sign of the package. Nor have we included any 
feature that is not thoroughly implemented. 
The programs are crash-proof and completely 
reliable. 

And the system is supported by what we are 
told is the best user's manual ever produced 
for microcomputer software. It contains a 
step-by-step instructional program designed 
for the novice. The trainee uses sample files 
from the system disk and compares his work 
to simulated screens and printouts in the 
manual. 
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BUSINESS 
COMPUTERS 



master chaige 




THE MX-80 NOT ONLY 

DOES EVERYTHING, IT 

DOES EVERYTHING 

WELL. 



This is the new Epson MX-80 dot matrix printer. It does just about everything vou could 
to buy it 8 ' all ' round P r,nter y° u can bu y- But that's not the best reason 

Sf,mn^"Wf t i b ^ ireCti ? nally at *? CPS in a user-defined choice of 40, 80, 66 or 132 
ftiAndrf that's not fast enough ts logical seeking function minimizes print head 
S3 laSk'JSJ ?£S iW A SCII, 64 graphic and eight international characters 

IffiL mvSKKK ?■ • F 2 r a L on ? time - E P son P" nters «* know " for reliability 
and the MX-80 is no exception. But that's not the best reason to buy it either. 

iust SSLiffJS! \ ? expectanc y ° f U P » 10? x if/ characters, and when it wears out, 
t f. itto k 5 f W i y - *«?*? one costs less than $3 ° and the only tool you need to change 

*£S2^££l£?£ y * our ann - The Mx " 80 is com P act w « i8hs onl y «&.; SEE 

whole unit, including the two stepper motors controlling carriage and paper feeding 
SoKp^te^ by 3n intCrnal --P-essor . B g ut even BRftJg 

The best reason is this: because Epson 
makes more printers than anyone else in 

toZmSEF* afford t0 sel1 each one 'Low Price 



...Call For Unbelievably 
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AW... WHAT THE HECK 

RAM Memory Chips for the TRS-80 



It is the policy of American 
Business Computers to offer 
merchandise at the lowest 
price possible. Serveral 
months back we began sell- 
ing RAM Memory Chips for 
the TRS-80 for $45.00 
per set. Someone else sold 
chips for $44.00. We sold 
them for $38.00. They sold 
them for $37.95. So we say 

"AW WHAT THE 

HECK!" Let's see the other 
guys beat this price. 



$24 



PER 16K SET 



These chips are brand 
new "4116's". These 200 
nanosecond chips are 
fully compatible with all 
TRS-80 produces. In- 
structions for insertion 
are included, however 
the dip shunts required 
for converting a 4K 
Model I to a 16K Model 
I are not included at this 
low price. 
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This is the Epson MX-70. The lowest priced dot matrix printer you can buy. Now, that in itself 
should make it very attractive to a lot of people. But you ain't heard the half of it. 

To begin with, the MX-70 has a lot more in common with our now-famous MX-80 than just 
the name. Like unequalled Epson reliability. And technological breakthroughs like the world's 
first disposable print head. But frankly, the MX-80 packs a lot more power than some people 
need. So Epson built the MX-70 to be a no-frills printer. At a no-frills price. 

But the MX-70 is still a great little printer. They give you 80 CPS unidirectional printing 
Top-of-form recognition. Programmable line feed and form lengths. Plain paper printing An 
easy-to-read 5x7 matrix. Self test. And an adjustable tractor feed. 

That's what you'd expect from a basic little printer. But here's something you wouldn't ex- 
pect: the finest graphics package on the market today. Free. 

They call it GRAFTRAX II. And it means 480 dots across the page, resolution to 60 dots per 
inch, and a graphic image free of the jitter and overlap that plagues other printers. You get 
cleaner grays and finer point resolution. 

So now you've got a choice. You want more power and extra functions, you buy the MX-80 
You want a basic little printer that prints, and keeps on printing, you buy the MX-70 They're 
both at American Business Computers. 

Call for unbelievably low price. 



*TM TANDY CORP. 



OKIDATE MICROLINE 80 
PRINTER - $479 

The Microline is built on a rugged cast alumi- 
num base to withstand the rigors of continuous 
business use. It is driven by two motors and 
will run all day with no duty cycle limitations. 
Microline printers use a dense 9 x 7 dot pattern 
to produce crisp, clean copies, first copy to last. 
The seven pins in the head are "fired" using 
energy stored in tension members. This tech- 
nology permits the use of short, low mass pins 
made with an extremely hard alloy. The head 
produces less heat, thereby extending its life. "358 

900 C.P.S. 
PRINTER 

That's right nine hundred characters 
per second. That's the print speed 
that can be obtained using the new 
Florida Printer Model 600 C. The 
600 C uses a unique "Stored-Energy" 
print head to obtain a print speed of 
600 CPS in normal print font and 900 
CPS in a condensed print font. This 
printer is not inexpensive but it is 
definitely the fastest dot matrix 
printer in the world. Call for prices... ^211 



Epson. 

This printer costs less than $450. 
just how much less we can't tell 
you - But if you will give us a call 
we think you will be pleasantly 
suprised. 




NEED A LETTER QUALITY PRINTER 
BUT DON'T WANT TO PAY THE PRICE? 

Then American Business Computers Has Just The Printer For You! 



•ilarwriter furnishes .i clear 
copies using a <J6<baracter wheel 
It produces I.i6 printable columns 



'/;«- Starurlter accommodates 
pa/yer uidths up to .i«/ mm (IT), 
friction feeding continuous forms o 
no-fold paper. 




Operational front panel 
switches, mounted on a PC board 
with the status indicators, provide 
Select, line-heed, and Power-On 

functions 



The Starwriter Daisy Wheel Printer is designed to fill a distinct gap in the peripheral marketplace. A speed of 25 cps and its low price make it the 
ideal choice for today's systems designer interested in achieving superior price/performance ratios. 

Incorporating the latest LSI technology, the Starwriter is built by one of the world's most respected computer peripheral manufacturers. The 
printer is furnished complete and ready-to-use, requiring no changes in hardware or software. Starwriter offers an industry standard parallel inter- 
face, as well as RS232-C interface. Total plug compatibility and a wide variety of interface matching capabilities help lower the system integration 

costs for OEMs and end-users. 

Using a 96-character wheel, the Starwriter produces letter-quality printing on 3 sharp copies with up to 136 columns. Starwriter otters the highest 
degree of vertical and horizontal positioning, resulting in the most precise character placement in the industry. The easy-to-change character wheel 
also makes our printer a perfect choice for international applications. Compatible with sheet feeders, starwriter accommodates paper widths to 
381 mm (15") and uses industry standard ribbon cartridges. 

Along with a self-test capability and a programmable VFU (Vertical Format Unit), Starwriter furnishes the operator with all desirable status 
functions commands and program selectable switches. Panel lamps indicate the current Paper, Select and Power status. 

The easy plug-in compatibility of Starwriter and its outstanding print performance makes the Starwriter perfect for TRS-80*, Apple*, and S-100 

users. , u 

Starwriter is backed up by a one-year warranty (3 months on parts and labor, 9 succeeding months on parts) and is further supported by a strong, 
fully trained and technically proficient service organization. The Starwriter is available for immediate shipment in any quantity desired. 
For more information, call American Business Computer, 118 So. Mill Street, Pryor, Oklahoma 74361; Telephone 918-825-4844. 

*TM of Tandy Corp 

*TM of Apple Computer Corp. 



AMERICAN BUSINESS COMPUTERS 

118 So. Mill Street 
Pryor, Oklahoma 74361 
Telephone 918-825-4844 
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Dealer Inquiries Invited 



GRAPHICS 



Advanced Graphic 
Techniques— Part II 



Bob Boothe 

4651 Browndeer Lane 

Rolling Hills Estate, CA 90274 



I have always enjoyed creating 
designs and plotting shapes 
and surfaces with my TRS-80. I 
started plotting three dimen- 
sional surfaces on the video 
screen, then went to the printer 
because of the increased reso- 
lution I could get. I developed a 
program for plotting a picture on 
many sheets of paper, and then 
assembling the sheets into one 
big picture. For my first and only 
run of this, I made a plot which 
covered twenty sheets of paper. It took ap- 
proximately thirty hours of computer time 
to create it. 

Things were getting out of hand: I had to 
find a way to cut down the time. My first 
breakthrough was using the graphic capa- 
bilities of my Base 2 printer. I created a 
replica of my twenty page plot by using sin- 
gle dots instead of characters, which took 
about eight hours to complete. 

The number of points which can be 
stored in memory is staggering. Consider- 
ing that we have 32,000 bytes and that each 
dot needs only one bit, 32,000 bytes times 
eight bits per byte gives us 256,000 points 
which can be stored. That is a quarter of a 
million points. I'll bet you never realized that 
a TRS-80 had that much power. 




Design created in two minutes, printed on a Base II dot matrix printer 



The first design we will create will be 406 
by 406 dots. This size gives very good reso- 
lution, and could not be done on the video 
even if a high resolution system was devel- 
oped which would allow control over every 
single dot. A picture this size gives us a 
total of 164,836 dots which we can use. 
Estimating that only ten percent of the dots 
will be turned on in any design, about 16,000 
dots will need to be turned on. 

It takes about 30 seconds for a FOR- 
NEXT loop to go through 16,000 loops; it 
could take several hours to set 16,000 
points using a BASIC routine. Machine lan- 
guage seems to be the only answer. How- 
ever, trigonometric functions are used to 
create all of my designs. I have never writ- 
ten a cosine routine in machine language, 



so we have to scratch that plan. 
My graphic system provides 
the best of both worlds— all the 
designs in this article were cre- 
ated with straight lines. Yes, all 
the curves are made by combin- 
ing straight lines in specific trig- 
onometric patterns. Aha! 

Each design contains a few 
hundred straight lines. The end- 
points are computed in BASIC, 
and the lines are drawn with ma- 
chine language. This way the 
complicated computations can 
be done in BASIC, so they can 
easily be changed and cor- 
rected. All the time-consuming 
and repetitive tasks are done in 
the machine language program. 
Since the machine language 
routine only draws lines as specified by 
the BASIC program, it never needs to be 
changed. 

Picking Parameters 

Before I explain the programs them- 
selves, I am going to explain some of the 
computations I made before writing the pro- 
grams. Most of you will need to do some 
conversions to make the program print on 
your printer. 

I decided to use about three quarters of 
available memory to store the design, leav- 
ing 8K for the programs. The Base 2 printer 
accepts graphical data for seven dots at a 
time (bits 0-6). The seventh bit is ignored. In 
order to make my printout routine as simple 
as possible, I stored the data in only the first 
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"Those of you lucky enough 
to have a Level II TRS-80 
with 32K RAM, no disks and 
a Base 2 printer should be 
able to run the program as is." 



seven bits of each byte and wasted the last 
bit, just as the printer does. Out of my 
24,000 bytes, I used seven dots each, for a 
total of 168,000 points. 

I wanted my designs to be square, so I 
found the square root, which is about 410. 
Furthermore, the number should be divisi- 
ble by seven to make the print-out routine 
as easy as possible. 406 is a good number, 
making 58 lines on the print-out and taking 
about two minutes (graphics are done at 
half speed). Fifty eight lines times 406 bytes 
per line gives 23,548 bytes needed to store 
the design. Those with 16K machines 
should be able to shrink everything down 
and squeeze out a smaller picture. 

The first problem is to make 406 horizon- 
tal dots the same length as 406 vertical 
dots. Each line on the Base 2 printer con- 
sists vertically of seven printed dots and 
five, dots for spacing: Twelve dots per line 
times six lines per inch is 72 dots per inch. 
To match this on the horizontal scale, it 
takes 72 dots per inch divided by six dots 
per horizontal character (five dots for the 
character and one for the space) or 12 char- 
acters per inch. Fortunately, 96 characters 
per line is exactly 12 characters per inch. 
This can all be software selectable by send- 
ing a specific series of numbers to the 
printer. 

Machine Language 

Those of you lucky enough to have a 
Level II TRS-80 with 32K RAM, no disks and 
a Base 2 printer should be able to run the 
program as is. Those with other printers 
and 32K should only need to modify the 
printing section. If your printer does not 
have graphics capabilities, you may want to 
modify the program to use the video moni- 
tor (explained in Part III). 

Three disk commands all used in this pro- 
gram. The first is for the line drawing rou- 
tine; LINE fits very well. The second routine 
initializes the design memory by filling the 
entire block with zeros. I call this routine 
OPEN, since it is the starting process. The 
last routine is the printing routine, which I 
call CLOSE because it is the finishing pro- 
cess. The program presented last month 
POKED the address of our routine into loca- 
tion from the table. This time, since the pro- 
gram will be loaded using the SYSTEM com- 
mand, the disk commands can be initialized 
while the program loads. 

EDTASM doesn't care where we put the 
program, so we can load directly into re- 
served RAM. I set each origin in the program 




Figure 1: A common computer generated design, created by drawing all the diagonals in an 
N-sided regular polygon. 



110 ?NPUT" NUMBER OF POINTS < SAMPLE HAS 13 > " ; N 

120 DIM FKN>,B<N> 

130 FORT=OT02*PI-. 001 STEP 2*PI^N 

140 2=2+1 

150 fl<2>*COS<T>*200+202:B<Z>=SIN<T>*200+202 

160 NEXT T 

1 7 F0RS= 1 TON- 1 : FORD=S+ 1 TON 

180 Xl=fl<S> :Y1=B<S> 

190 X2=FKD> :Y2=B<D> 

270 GOSUB1500 

280 NEXT D.S 



one byte below the corresponding address 
from the table, to compensate for the jump 
which has to be saved in order to write the 
address. 
The LINE routine uses four values to 



draw a line. These are the start and the end 
of the line for the horizontal and vertical di- 
rections. My labels are STARTX, STARTY, 
ENDX and ENDY. The easiest way to supply 
these is by POKEing them into the program. 
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Here are just a few of our fine offers 
call toll-free for full information. 



COMPUTERS 

Model II 64K $3375 

Model III 4K LEV I 599 

Model III 16K 859 

Model III 32K 98150 

+ Model III 32K 915.50 

Model III 48K 1104 

+ Model III 48K 972 

Model III 32K 

2Disc&RS232c 2149 

Color Computer 4K 310 
Color Computer 16K 439.95 

+ Color Computer 16K 366.50 
Color Computer 16K 
w/extended basic 489 

Pocket Computer 199 

VIDEOTEX 329 

APPLE 48K only 1279 

ATARI 800 16K 789 



+ Computer Plus New Equipment. 
180 Day Extended Warranty 



PERIPHERALS 

Expansion Intertace OK 
Expansion Interface 16K 

+ Expansion Interface 16K 
Expansion Interface 32K 

+ Expansion Interface 32K 
16KRAMN.E.C.200N.S. ch 

MODEMS 

Lynx Direct Connect 
COMM 80 Interface 
Chatterbox Interface 
Telephone Interface II 

PRINTERS 
Line Printer IV 
Daisy Wheel II 
Line Printer VI 
NEC Spinwriter 5530 
OKIDATAMicroline80 
EPSON MX80 

DISK DRIVES 
Model III 1-Drive 
PERCOMTFD100 
TEAC 40 Track 



$249 

359 

305.50 

469.95 

362 

ips 39 

219 

159.95 

239 

169 

849 
1695 

999 
2595 

499 

519 

712 
389 
319 



PLUS real back-up warrantees — 

Pure Radio Shack equipment warranteed at any Radio 
Shack store or dealer. Factory warrantees on Apple and 
Atari equipment. Other equipment carries manufacturer's 
warranty or Computer Plus 180 day extended warranty. 
Combined warrantees carry Computer Plus 180 day war- 
ranty or original manufacturer's warranty. 
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check out these 

unusual package 

values for price 

and warranty 
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MODEL I 32K E.I . 
1st. Drive, Line Printer IV, 
10 Diskettes PureR.S. $1875 

combined warranty 1699 



MODEL II 64K w/2 Disks, 
Daisy Wheel II, Scripsit 

Pure R.S. 



6350 



MODEL III 48K, 1st. Drive, 
Line printer IV, Scripsit Word 
Processor, 10 Diskettes 

PureR.S. 2800 
combined warranty 2699 

COLOR COMPUTER 1 6K CC 
w/extended basic cassette 
recorder, joy sticks, dust cover 

PureR.S. 569 



POCKET COMPUTER w/interface 
Pure R.S. 

ATARI 

48K Atari 800, Atari 825 Printer, 

Atari 810 Disk Drive 

APPLE 

48K Apple II & Apple II Disk 
w/controller, D.O.S. 3.3, 
Printer Card and Cable, 
Epson MX80 Printer 

Call TOLL FREE 
1-800-343-8124 



239 



2125 



2510 



com 



DEALER INQUIRIES ARE INVITED (617) 486-3193 

Prices subject to change without notice. 
Not responsible for typographical errors. 

TRS-80 Is a registered trademark of Tandy Corp. 




Write for your 
free catalog ... 

Dept. 

245A Great Road 

Littleton, MA 01460 



sSee List of Advertisers on page 306 
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These values will range from to 405. 
Because 405 is too large to be stored in a 
single byte, an entire word will have to be 
used. 

The process used to draw a straight line 
becomes tricky. Let's take the simplest 
case first. We want to draw a line from (3,6) 
to (7,6), a short horizontal line. The points 
which should be set are: (3,6), (4,6), (5,6), (6,6) 
and (7,6). A slightly more difficult line is 
from (8,8) to (11,11). The points for this line 
are: (8,8), (9,9), (10,1 0) and (1 1,11). Consider a 
line from (2,2) to (6,4); the best points would 
be: (2,2), (3,2), (3,3), (4,3), (5,3), (5,4) and (6,4). 

Try writing a program to draw an unbrok- 
en line on the video between any two points, 
and you will see there is a problem. The 
third example has a total movement of four 
units in the X direction and two units in the 
Y direction. This would mean a movement 
of one-half Y for each X. 

The program uses fractions to determine 
the amount to move each step. The labels 
are DIBX and DIRY. The fraction for the X 
direction is computed in lines 320-420. The 
registers are first saved with an EXX. Four 
bytes are used to store each variable used 
to draw the line: Two bytes for the whole 
part, and two for the fraction. The fraction 
or LSW (least significant word) is stored 
first, followed by the whole part. 

The step is computed by subtracting the 
start from the end value. The difference is 
used as the step, and is actually divided by 
65,536. If the difference is negative, the 
MSW is also made negative. This procedure 
is then repeated for the y direction in lines 
430-530. Lines 540-760 double both frac- 
tions until one is greater than or equal to 
one-half. This optimization allows the pro- 
gram to operate as rapidly as possible by 
making the total number of points to be set 
as small as possible. The process is done 
by shifting the fractions left until the most 
significant bit changes from zero to one for 
positive directions, or from one to zero for 
negative directions. 

The next section of the program draws 
the line. It first sets the starting point and 
then adds directions to the start variables 
until the start is equal to the end. It sets 
each point as it goes along, and checks to 
see if STARTX is equal to ENDX after each 
point is set. The X variables should always 
meet at the same time, except for the one 
case of vertical lines. This is why the Y vari- 
ables are compared in the MAYBE routine 
at line 1000. If the Y directions are also the 
same, the registers are restored with an 
EXX, and the routine returns control to the 




Figure 2: This is the same design which was seen last month. It combines three shapes to 
form an eye. 



40 REM DESIGN NO. 2 

50 FOR Q=OT04053TEP9 

60 X 1 = : V 1 =Q : X2=Q : Y2=4 05 

70 GOSUB1500 

8 X 1 =Q : Y 1 = : X2=4 05 : Y2=Q 

90 GOSUB1500 

100 NEXT Q 

110 INPUT "NUMBER OF POINTS <: SAMPLE HAS 18> " ; N 

120 DIM fl<N>,B<N> 

130 FORT=OT02*PI-. 001 STEP 2*PI-N 

140 2=2+1 

150 Fl<2::'=COSc:T>*125+202:B<2>=SIN'::T>*125+202 

160 NEXT T 

170 F0RS=1T0N-1 :F0RD=S+1T0N 

180 X1=A<S> :Y1=B<S> 

190 X2=FKD) :Y2=Bc:D> 

270 GOSUB1500 

280 NEXT D,S 
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WE WILL NOT BE UNDERSOLD 



DISK DRIVES 




FOR TRS-80* Model I 

CCI-100TEAC 5'/4",40Track(102K) $314 

CCI-100 MPI 5 1 /.", 40 Track (102K) $319 

CCI-280 5Va", 80 Track (204K) $429 



ADD-ON DRIVES FOR ZENITH Z-89 
CCI-189 5 1 /4 ", 40 Track (102K) $394 

CCI-289 5 1 /4",80Track(204K) $499 

Z-87 Dual 5Va" system $995 

External card edge and power supply included. 90 day warranty/one 

year on power supply. 



RAW DRIVES 8"SHUGART801R 
5 1 /4"MPI,TEACorTANDOM $CALL 



$425 

POWER SUPPLIES $CALL 



MORROW DESIGNS/THINKER TOYS™ 

DISCUS 2D 1 DRIVE $ 938 2 DRIVE $1635 

DISCUS 2 + 2 1 DRIVE $1259 2 DRIVE $2245 

DISCUS Hard Disk M26 $3990 M10 $2999 

DEI CARTRIDGE TAPE BACK-UP 

For your hard disk. With either S-100 control card 

or piggy back board for single board Z-80 computers. $2995 

DISKETTES — Box of 10 with plastic library case 
5 1 /." Scotch $35 Maxell $40 BASF/ Verbatim $27.95 

8" Scotch $50 Maxell $55 BASF/Verbatim $36.00' 

PLASTIC CASE-Holds 50 5V*" diskettes $19.00 

SCOTCH HEAD CLEANING DISKETTE $25.00 

FLOPPY SAVER $11.95 RINGS $6.95 



PRINTERS 


NEC Spinwriter 

Letter Quality High Speed Printer 














R.O. 




$2395 


^^>««3a^- 




R.O. with tractor feed 




$2595 


K25" 




KSR with tractor feed 




$2895 


C.ITOH 


Starwriter $1695 


Starwriter II 


$1895 


EPSON 


MX- 80 $479 


MX-70 


$ 399 


PAPER TIGER 






IDS 445 


Graphics &2K buffer 




$ 699 


IDS 460 


Graphics & 2k buffer 




$1050 


IDS 560 


Graphics 




$1450 


ANADEX 


DP-8000 $849 


DP-9500/01 


$1345 


OKIDATA 








Microline 80 


Friction & pin feed 




$ 420 


Microline 80 


Friction, and pin & tractor feed 




$ 520 


Microline 82 


Friction & pin feed feed 




$ 620 


Microline 83 


120 cps, uses up to 15" paper 




$ 849 


CENTRONICS 730 $ 595 737 $ 74S 


779 


$ 969 


TI-810 








TRS-80* software, compressed print & vert, form control 


$1865 



16K RAM KITS 2 for $56 $30 

200 ns for TRS-80*, Apple II, (specify): Jumpers $2.50 

S-100 CALIFORNIA COMPUTER SYSTEMS 



COMPLETE SYSTEMS 



ARCHIVES 


64K, 2-Drives, 77 Track 


ALTOS 


ACS8000 Series 


TRS-80* 


II-64K $3499 


TRS-80* 


Expansion Interface 


ZENITH 


48K. all-in-one computer 


ZENITH 


Z-19 


TELEVIDEO 


920C $ 748 


IBM 


3101 Display Terminal 


ATARI 


400 $ 479 


MATTEL 


INTELLIVISION 


APPLE PERIPHERALS 


MONITORS 


APF 


9"B&WTVM-10 


BELL& 




HOWELL 


9"B&WBHD911 


LEEDEX 


12"B&W $129 


SANYO 


9"B&WVM4509 


SANYO 


12" B&W DM5012 


SANYO 


12" Green Screen DM5112 


SANYO 


13" Color DMC6013 


ZENITH 


13" Color 



III-16K 



95JD. 



800 



$5495 
$CALL 
$ 899 
$ 299 
$2200 
$ 735 
$1049 
$1189 
$ 795 
$ 229 
$CALL 



$120 




MAINFRAME Model 2200A 

Z80CPU Model 2810 

MOTHER BOARD Model 2501 

16K STATIC RAM, 200ns Model 2116C 

32K STATIC RAM, 200ns Model 2032C 

64K DYNAMIC RAM Model 2065C 
FLOPPY DISC CONTROLLER Model 2422A 

EXTENDER BOARD Model 2520K 

2P + 2SI/0 Model 2718A 



$349 
$269 
$106 
$309 
$619 
$599 
$359 
$ 52 
$309 



TELECOMMUNICATIONS 

LIVERMORE STAR MODEM 2-year guarantee 
UNIVERSAL DATA SYSTEMS UDS-103 
D-CAT HARD WIRED DIRECT MODEM 
AUTO-CAT Auto Answer, Direct Connect Modem 
DC. HAYES MICRO-MODEM 



APPLE ACCESSORIES AND SOFTWARE 

VISICALC $120.00 

DB MASTER $159.00 

Z-80SOFTCARD $269.00 

$259.00 
$169.00 
$ 49.00 
$ 29.00 
$CALL 



$ 22.95 

$ 35.00 

$ 17.95 

$ 29.00 

$ 28.00 

$ 29.00 

$ 35.00 

$ 21.00 



$220 
13" Color $369 


VIDEX BOARD 
16KCARD 


$155 
$226 
$238 
$416 


APPLE JOYSTICK 
SUPERMOD 
CCS CARDS 


$349 


GALAXIAN 




SPACE ALBUM 




ASTEROIDS 


$125 


FLIGHT SIMULATOR 


$179 


WIZARD & PRINCESS 


$189 


SARGON 2 


$229 


HI-RES FOOTBALL 


$329 


MYSTERY HOUSE 




For fast delivery, send certified checks, money orders or call to arrange direct bank wire transfers. Personal or company checks require two 
to three weeks to clear. All prices are mail order only and are subject to change without notice. Call for shipping charges. 



dealer (national/international) inquiries invited Send for FREE Catalogue 



TO ORDER CALL TOLL FREE 1-800-343-6522 

298 TWX: 710-348-1796 Massachusetts Residents call 617/242-3361 



The CPU SHOP 



5 Dexter Row, Dept.M05M 
Charlestown, Massachusetts 02129 
Hours 10AM-6PM (EST) Mon.-Fri. (Sat. til 



5) 



Technical Information call 617/242-3361 
Massachusetts Residents add 5% Sales Tax 
Tandy Corporation Trademark/"'Digital Research 




y'See List of Advertisers on page 306 
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program. 

The SET routine first gets the Y coordi- 
nate and divides it by seven to determine 
how many lines down the point is. The pro- 
gram then adds 406 bytes for each line 
down in the Y direction. The sum is added to 
25603, which is the first byte of the design 
memory. After this is done, the X coordi- 
nate is added to the previous sum. The re- 
mainder from the earlier division by seven is 
equal to the bit which needs to be set. A 
table provides bit patterns which are com- 
bined with the previous contents of the byte 
being changed. 

The OPEN routine is considerably sim- 
pler. It puts a 128 in the first byte of the 
design memory and then copies it through 
the entire block. One hundred twenty eight 
is used instead of zero because the printer 
ignores the seventh bit, and if zero is sent to 
the printer, the printer will never know it is 
there. 

The PRTOUT routine in lines 1480-1540 is 
used to check the printer status and then 
output the byte in the A register. This rou- 
tine is modified from an incorrect routine in 
theT-BUG manual. 

The first section of the CLOSE routine 
outputs the control sequence to select 96 
characters per line and seven dots per line 
spacing. Seven dots (actually fourteen half 
dots) is the standard linefeed spacing when 
using graphics, eliminating all space be- 
tween lines. (The control codes used by the 
Base 2 are industry standard codes, but this 
doesn't necessarily mean that other print- 
ers will work this program.) 

Line 1660 sets up the counter for 58 lines 
of printing. Inside the loop, the printer is 
told to accept graphical data with the con- 
trol sequence 27, 99. Once it is in the 
graphic mode, 85 blanks are sent, then 406 
characters, and then another 85 blanks; 
85 + 406 + 85 = 576, the number of bytes 
which must be sent in the 96 character per 
line mode. Finally, a carriage return is sent 
to the printer to cause a line feed. This pro- 
cess is repeated for all 58 lines, and then 
the routine is ended. 

The last address of the program should 
be 25602 (6402H), which is just below the 
start of the design memory (25603). 

The entry point for entering the slash 
after loading was set at the entry point to 
Level II BASIC from T-BUG. This sometimes 
gives an OM error, but it is fixed by a 
CLEAR. A better way to exit the system 
mode is to press the break key. Create the 
source code and load it before you start typ- 
ing in the BASIC programs. 




Figure 3: A moire pattern created by the interference of regularly spaced radii of two circles. 



100 REM DESIGN NO. 3 

110 FOR T=0TOPI--2STEPPI--180 

120 X1*FIX<COS<T>*100> iYl=SIN<C"O*100 

130 X2=F I X < COS •:: T > *4 05 > : Y2=S I N C T > *4 05 

140 GOSUB1500 

150 X 1 =4 05-X 1 : Y 1 =4 05- Y 1 

160 X2=405-X2:Y2=405-Y2 

170 GOSUB1500 

180 NEXT T 



By the way, I've discovered an easy way 
to load system programs. Instead of typing 
EDTASM to load the Editor/Assembler, you 
can type E, ED, EDT, EDTA, EDTAS, or even 
EDTASMBLER. I don't know why this works, 
but you might as well use it. Don't forget to 
set memory size to 25239. 



Back to BASIC 

Program 1 is a simple BASIC routine 
which controls the machine language rou- 
tines. Line 20 contains the OPEN which 
clears the design memory. If this statement 
is left out, each new design will be added to 
the previous contents of the memory, mak- 
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"My original intention was to produce 
a square spiral in which the distance 

between the lines increased as the length 
of the sides grew longer. I ended up 

with this design which I call "The Tunnel." 




Figure 4: "The Tunnel" is a square spiral. 



ing a genuine mess. Line 30 sets the value 
of n, which is used in almost all of the 
designs. The empty section from line 31 to 
line 999 can be used for writing individual 
design programs. Line 1000 provides an op- 
portunity to stop a design before it is 
printed. Line 1010 contains the CLOSE rou- 
tine which prints the design on the printer. 
Once the printing is started, there is no con- 
venient way to stop it. 

Line 1500 is the BASIC portion of the 
LINE routine. At the start in line 1510, a < 
sign is printed to signify that the routine 
was started. These signs will help you esti- 
mate the number of lines which are drawn in 
each design. For example, if only three sym- 
bols were printed, there was probably an er- 
ror in the program and it should be stopped. 
The next four lines check to see if a value is 
out of range. If a number is too large or 
small, the program is terminated. Line 1560 
checks to see if the two endpoints of the 



100 


REM DESIGN NO. 4 


110 


X 1*270 I Y 1=270 


120 


F0RQ=1T064 


130 


X2*X1 +5*Q+2 s Y2=Y1 


140 


GOSUB1500 


150 


X 1 =X2 : Y 1 ■ Y2+5*G+3 


160 


GOSUB1500 


1?0 


X2«Xl-5*Q-5 : Y2=Y1 


180 


GOSUB1500 


190 


X 1 =X2 ; Y 1 =Y2-5*Q-6 


200 


GOSUB1500 


210 


NEXTQ 



line are the same. If they are the same, a 
warning message is printed, but the pro- 
gram is not ended. 
Spiral designs usually have values too 



Business/Accounting 
Software 

'S'ERVICE 

ORIENTED 
ACCOUNTS 
RECEIVABLE 

"SOAR" is a combined time reporting/ 
accounts receivable system designed for ser- 
vice organizations. Transactions input to the 
system include charges to, and receipts from 
customer accounts. Employees charge time 
and/or dollar amounts against specific tasks 
codes. Pre-established inputs are employee 
rate, task hourly rate, task flat charge, and 
task rounding factor. 

Outputs produced include: 

*updated customer file — including bal- 
ance, last posting, and last receipt 
amounts 

*statement summary — by customer and 
task code 

*detail transaction report 

*employee and task summary — with reve- 
nue & percent 

*database reports — for employee, custo- 
mer and task code databases 

*statements (optional) — programmed to 
suit your forms (available at additional 
cost) 

Monitor and control your valuable resources 
with this system for only $395. (Order product 
code: SOAR) 



GENERAL 

LEDGER/CLIENT 

WRITE-UP SYSTEM 

Our General Ledger /Client Write-up System 
is a proven, quality product used by several 
Accounting firms and other Businesses. 

*features departmental financial state- 
ments 

*contains budget provisions 
*permits up to 500, user-defined chart of 
accounts 

*allows for transaction editing 
*retains standard journal entries 
*accepts only balanced batches of trans- 
actions 

*provides easy-to-follow audit trail 
*uses conventional accounting symbols 
*includes user documentation easily under- 
stood by present employees 

Several reports can be generated by the sys- 
tem including: 

*transaction audit reports 

*trial balance 

* income statement (profit & loss statement) 

*balance sheet 

*budget report 

*chart of accounts 

Incorporate speed and accuracy into your 
business record keeping by ordering our 
General Ledger System today for only $495. 
(Order product code: GLS) 
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Computer Applications Inc. 

4810 LARCHVIEW DRIVE. DAYTON. OHIO 45424 

(513 ) 233-5515 
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More power to you. 

Disk drives, hardware and software— now more affordable and more available! 



NOW IN STOCK! 

MODEL III DISK 

CONTROLLER BOARDS! 

All retrofit packages include 
circuitry, power supplies, 
mounting brackets, cables and 
everything required to turn your 
Model III into a reliable, disk- 
based system. 100% compatible 
with Radio Shack hardware! 
AM-1 — Supports 4 single-sided, 
double-density 5 1 /4-inch disk 

. drives $445 

AM-2 — Supports 4 double- 
sided, double-density 5 1 /4-inch 

disk drives $545 

AM-3 — Supports 2 internal 5Va- 
inch single-sided, double-density 
disk drives and 2 external 8-inch 
single-sided, double-density disk 
drives $645 

TRS-80™ SOFTWARE 

MAKE 80© 

Converts standard 35 or 40 track 
diskettes into 80-track-readable 
diskettes $14.95 

Model III TRSDOS 

40-track Model III TRSDOS & 

manual $20 

80-track Model III TRSDOS & 
manual $35 

Complete Service Center: 

Speedy repairs, including modified 

TRS-80's. 

New Store Hours: 

Monday-Friday 10-6, Sat. 10-5 

'"TRS-80 is a trademark of Tandy Corp. 
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SPECIALS! 



SAVE ON COMPLETE 
DISK DRIVE PACKAGES! 

5 1 /4-inch drives 

40-track MPI 51 with case, 
power supply and extender 

cables $320 

80-track MPI 91 with case, 
power supply and extender 

cable $425 

Dual-headed 80-track drive 
with case, power supply $550 
8-inch drives 

Single Siemens 8-inch drive 
with single case & power 
supply $695 

TEAC DISK DRIVES— 

THE BEST WE'VE SEEN TO 

DATE! 

Teac 40-track disk drive 
Call for our low price! 

Teac 80-track disk drive 
Call for our low price! 

PRINTER SPECIAL! 

Epson MX-80 Printer 
Call for our low price! 



The power behind 
the drives® 



^-452 



Jm 



A.M. ELECTRONICS, INC 

^_^ 3366 Washtenaw Ave. 
EP Ann Arbor, Michigan 48104 
(313)973-2312 



NEW TRS-80™ MODEL III! 
NOW WITH DISK DRIVES! 

Model III with dual 80-track disk 
drives— 704K of reliable disk 
storage on only two drives! 

• Features two double-density 
80-track drives 

• 48K RAM 

• Includes A.M. Electronics 
controller board and versatile 
MAKE80© program 

• Complete, ready-to-run 
Now only $2295! 

The Ultimate Small Business 
Computer: Model III with four 
dual-headed 80-track disk drives! 

• Features four drives 

• 48K RAM 

• 2.8 Megabytes reliable disk 
storage 

• Includes A.M. Electronics 
controller board and versatile 
MAKE80© program 

• Complete, ready-to-run 
Now only $3,795! 

CASES & POWER SUPPLIES 

5V2-inch enclosures 

Single drive unit case and power 

supply $85 

Dual drive unit case and power 
supply $120 

(Extender cables $15 each extra) 

8-inch enclosures 

Single drive unit case and power 
supply $150 

Attention OEM's & Distributors: 

Call us for details on our attractive 
pricing! 




Figure 5: A very simple disk made with one hundred straight lines. 



100 


REM DESIGN 


NO. 


5 








110 


FOR T=0 TO 


2*PI 


STEP 


PI. --50 




120 


X1=CQS<T>*2 


00+2 


02 


Vl = 


=SIN<T> 


*2 00+2 02 


130 


R=T+3*PI.-4 












140 


X2*COSCfl>*2 


00+2 


32 


Y2= 


=SIN<fl> 


*2 00+2 02 


150 


GOSUB 1500 












160 


NEXT T 













close together in the very center of the 
design. These checks are important 
because if two points are the same, both 
directions will be zero, and the optimization 
portion will become an endless loop, all bits 
in the fraction being zero. The range checks 
prevent the routine from drawing lines 
through forbidden territory such as the area 
containing the program. 

The LINE routine should be provided with 
the value of points (X1.Y1) and (X2,Y2). After 



these values are checked for validity, they 
are divided into LSBs and MSBs. These are 
POKEd into the most significant part of the 
machine language routine's variable sec- 
tion. If you modify the program, you will 
need to adjust these POKE addresses. Be 
careful when you type this section because 
one wrong POKE can cause real problems. 
Line 1660 calls the LINE routine, and the 
last two lines print a > sign and return to 
the calling program. 



Turn your Micro into an 

electronic and security 

controller with our new. 



* 



TRS-80 INTERFACE 




$59 



To Order 

Send $59.95 

plus $2 50 for 

shipping and 

handling 

Illinois 

Residents 

add 6% tax) 

TRS-80 Soft 

ware (Specify 

Tape or Disk) 

$10 with 

purchase of 

Micro 

Commander 



oe 90 Day Warranty 

9 J Assembled & Tested; 



COMPUTER CONTROLLED - REMOTE CONTROL 

Now an inexpensive and direct carrier current interlace between the 
TSR-80 and the BSR X- 1 remote control modules. The MICRO 
COMMANDER. X 1 modules and your computer can control your 
lights, appliances, motors. TV. stereo, heaters, alarms, lans. pumps, etc. 

COMPUTER CONTROLLED - SECURITY 
Add a new dimension to your security system. Place your home under 
control ol your computer real lime clock while you are on vacation. Add 
an input port to your computer and intelligence looms. Withswitches on 
doors w windows your computer can welcome guests or Irighten intruders. 

EASY TO USE - NO WIRES TO RUN 
Total control ol all X 10 modules. Utilize all 256 house and unit code 
combinations. Direct interlace to AC power line. No command console lo 
purchase No sonic link. Plugs directly inlo TRS-80 Model l |Level llor 
Oisk| cassette jack or any I bit input and I bil output TTL port 
MANUAL INCLUDES SOFTWARE LISTINGS 

NEW PORT C Real time CO N-T-R-OL 
software tor all TRS -80 Mod.MLv.llor disk). 
Control your MICRO COMMANDER or output 
ports with respect to real time and/or input 
port triggers. Save schedules on tape or disk. 
// CONTACT US FOR BSR X10 PRICES 

INTERFACE TECHNOLOGY -319 
P.O.Box 383. Des Plaines, II 60017 
Phone (312) 297- 2265 




EXCITING NEW 
uses for the TRS-80 * 



APIO-8O* 



'/© NEWSLETTER. 

I HARDWAftf : jJUj 
I SOFTWAM : HH 




all purpose 

INPUT/OUTPUT PORT 

+ teaching newsletter 

■ the mast useful peripheral 

■ don't spend mare fop less 

-» 8 outputs 6 inputs 
-» assembled St tested PC board 
-> customizing kit included 
-> Ul Basic or UT-Bug 
-* WE TEACH YOU HOW 
with the APIO-80 newsletter subscription 
you will learn how to use the TRS-80 for: 



ameteurradio*telephoneint8rface*modR!railroad*coniputernKisic*BSRI, , 

and a multiplicity of other uses 
WE don't just say it. we DO it! 



INSTANT-MAIL RECORDING LINE 

' © for more info, call © 

717/733^4769 
electronic innovations 

Box 1D34 LANCASTER PA 176CM 



JStpfisx 



■:ao/ ie, i iu« :n 



^See List of Advertisers on page 306 
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THE BOOKKEEPERS 



FOR INFO CALL (603)-447-2745 



Full Charge Bookkeeper— 48K, 3 DRIVE, w/ALPHA $129.95 
Intermediate Bookkeeper— 48K, 2DRIVE & Printer $109.95 
Cheap Bookkeeper— 32K, 2DRIVE & Printer $ 89.95 

All Above Are Daily Journal — G/L Systems 



Ann Rose, our Accounts Receivable Clerk — 
48K, 2 DRIVE SPRINTER 



$150.00 



STURDIVANT & DUNN, INC. ^82 

BOX 277, 124 WASHINGTON ST., CONWAY, NH, 03818 




EVERY MODEL I DISK SYSTEM NEEDS A FLOPPY DOCTOR! 

Double-density recording (using the Percom Doubler**) and 77/80 track drives 
put greater demands on your TRS-80* and make it imperative that you assure 
yourself of data integrity BEFORE committing it to disk. THE FLOPPY DOCTOR 
3.0 is the only machine language diagnostic which can test your Model I in either 
single density or, if you have a Doubler**, in double density. This program is a 
comprehensive test of every sector on every track of 35, 40, 77, or 80 track drives, 
single or double sided; checks drive motor speed; use your computer as an intel- 
ligent disk exerciser; MORE! Also includes memory diagnostic and 16-page in- 



struction manual. 

PRICE: $24.95 
Add $1.00 P/H 
CA Add 6% Tax 

• 214 
THE MICRO CLINIC • 17375 Brookhursl 



CO 
PIGGYBACK! 



*TM Tandy Corp. **TM Percom Data Co. 
On diskette for a min. 16K single disk sys- 
tem - no other restrictions. Coming soon 
for Model III! VISA/MC include card #, 
exp. date, signature. 



VtSA* 



Suite 114 • Fountain Valley, CA 92708 • 714-962-0621 



Bayesian 

Investment 

Services 

Send for free catalog 
discussing TRS-80 
programs available for 
evaluating: 

Options & Futures 
Stocks & Bonds 
Convertible 
& Other Hedges 
Portfolio Position 
Tax Positions 
Market Timing 

Write or call: 
Bayesian ^ 
Investment 
Services 

Dept. H3 
757 Santa Rosita 
Solana Beach, CA 92075 
(714) 755-6225 




CEnTRDniCS ^v<\W// 

add lowercase with our 

PLUG-IN piggyback board! 

9WX7H Dot Matrix $135 
5WX7H Dot Matrix $ 95 

TWO complete character sets on board: 
96 character ASCII PLUS choice of 
128 character APL, TRS-80/H-19 Graphics or 
Scientific. (Customer defined: add $50/set). 
Most printers convertible: specify logic board # 



SYDNEY SEZ: 

Shop comparatively! 





^368 



Digital Systems Engineering 



12503 King's Lake Drive. Reston VA 22091 (703) 620-2994 

ALSO AVAILABLE: New Centronics and Integral Data Systems printers at 
15-20% below list; also, used printers of several makes. Call for information! 

MasterCard, VISA, Check, M0, P0 All products waranteed 90 days 



r PURE FIG = 
■ GOODNESS! " 

Now you can use Forth on your TRS-80 Model I with 
1 6K and a single disk. This is a stand-alone version 
of the widely accepted Forth Interest Group Model 
1.1 with the standard Forth editor. Extensions in- 
clude disk format/backup, upper and lower case, 
output to parallel or RS-232 printers, and an 8080 
assembler/disassembler. Documentation includes 
an introduction, glossary, and every single line of 
the system, including disk drivers and boot up 
code, all written in Forth! 

TRS-80 fig-FORTH for 



$49.95 

Nmmun 



Add 2.50 for shipping. 
Ca. res. add 6% for tax. 
Order from: 



^55 



P.O. Box 1098, Santa Cruz Ca. 95061 
TRS-80 is a trademark of Tandy Corp. 



128 • 80 Microcomputing, May 1981 



"Four of the designs presented 

in this article are not ail 

like I had planned. It 

turns out that the accidental 

designs are often the best. . . " 



To use this routine, put the endpoints of a 
line in X1, Y1, X2 and Y2 and then GOSUB 
1500. Never type the word LINE without hav- 
ing previously POKEd values into the pro- 
gram, or the program will hang up. 

If It's Good, It's Wrong 

Four of the designs presented in this arti- 
cle are not at all like I had planned. It turns 
out that the accidental designs often look 
the best, however. "If it's good, it's wrong" 
might be a good rule to add as one of Mur- 



phy's corollaries. 

Fig. 1 is a commonly seen computer de- 
sign. It consists of an N-sided regular poly- 
gon with all of the diagonals connected. It 
can be done with any number of side points, 
but figures with more than 25 points start to 
become too dark. Odd numbers make 
designs with a blank circle in the center, 
while even numbers have a filled center. 

Line 110 asks for the number of side 
points, and line 120 dimensions the array 
with enough space. A is the X coordinate of 




o X K 

Figure 6: An overlapping spiral made of two hundred lines. 



1 


REM DESIGN NO. 6 




110 


FDR T=0 TO 10+PI STEP PI 


•'20 


120 


X 1 =CGS c: T > *5*T+2 02 : Y 1 =S I N 


:T>*5*T+2Q2 


130 


R=T-f2+PI.--3 




140 


X2=C0S (. R > *5*fl+2 02 : Y2=S I N ' 


fi.':' : + : 5 : + : rt+202 


150 


GOSUB 1500 




160 


NEXT T 






FOR THE TRS-80 MOD I 

DUALCASE* 

UPPER/lowercase, full time from power- 
up; NO software; Standard typewriter 
keyboard operation (shift to UPPERCASE); 
Control characters can be displayed; 128 
Total character set plus full graphics. 

KEYBOARD PEBOUNCE* 

Extra keyboard debounce, full time from 
power-up; NO software. If dirty keys 
are a problem, this is for you. No 
charge. 

BLOCK CURSOR* 

Replaces the underline style cursor di- 
rectly. Easier to locate on a full screen. 
NO distracting blinking. No charge. 

SHORT CASSETTE LEADER* 

For tape based systems. Does NOT 
change baud rate. Only shortens recorded 
leader. Saves four seconds of waiting 
time. Great for data files! No conflict 
with high baud rate tape systems. 
$10.00 extra. 

ELECTRONIC SHIFT-LOCK* 

No extra keys or switches. Simply tap 
either shift key, UPPERCASE lock, normal 
shift unlocks. $30.00 extra. 

SWITCHABLE* 

Offers peace of mind. Toggles between 
original factory operation and "PATCH" 
enhanced. $25.00 extra. 

Call Now (208) 883-061 1 

CECDAT, INC. <-62 

P. O. Box 8963 
Moscow, ID 83843 



Name _ 

Street 

City 

State ....- ZIP 

□ Check, Money Order, Bank Draft 

□ VISA, MASTERCHARGE, Purchase 
Orders (add 3%) 

Card/PO No 

Expiration Date _ 

Today's Date 

You must check one: 

O "MEM SIZE" □ "MEMORY SIZE" 
THE PATCH $69.97 

TOTAL OPTIONS 

ID Sales Tax 3% (Id Res) 

Ship. & Hand. @ 2.50 ea 

COD ADD $2.00 ea _ 

TOTAL ORDER _ 

Price valid through April 30, 1981 
"TRS-80 is a trademark of Tandy Corporation. 
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^Faqtagtic I^ew Took 



ror 



Woice^Syntliesig 

NO EQUAL ON THE MARKET 

This peripheral adds high quality 
communication to the following: 

TRS-80 

SlOO Bus systems 

Other 8 bit processors 

The TLP52 can give: 

High quality speech 
(up to 800 words) 

Phonetic speech 
(unlimited vocabulary) 

Software generated speech 

Voice recognition 

From $200 

For more information contact: 

^e^earqing^lace § 

5620 1 76th S.W - 198 
Lynnwood, Washington -98036 



jgi»ni^nninii.inn.nninniiHiniiii ■ ifiHiiHHilf 



THE 



QUIZ 

MOVIES 

-reL-Evis/o/v, 

SPORTS 



NEVER EVER REPEATS 
GAMES 

HUNDREDS OF QUESTIONS 

3 LEVELS -PERSONAL 
SCORE PER GAME 

ENTERTAINS ANY AGE 

TRS-80-I6K LEVEL H 

Acodomy Awards / Famous Movies ... $ 9.95 
Emmy Awards / Famous TV Shows .... $ 9.95 
Pro Footboll / Baseball Records $ 9.95 

ALL $19.95 

^304 

(QUARP PUB'S) 
R0. BOX 7416 
0XNARD, CA. 93031 




Figure 7: This figure used polar coordinates, and is based on a four leaf rose. 



100 


REM DESIGN NO. 7 








110 


F0RT=0TO2*PI STEP 


PI 


-75 




120 


R=COS<2*T";'*200 








130 


X 1 =COS (. T > *R+2 02 : Y 


1=S 


IN<T>*R+202 


140 


fl=T+PI--3 








150 


R2=COS'.:2*fi>*200 








160 


X2=COS(:R>+R2+202: 


i"'2 = 


3IN<fl> 


*R2+202 


170 


GOSUB 1500 








180 


NEXT T 









the vertices and B is the Y coordinate. Lines 
130-160 compute the position of all of the 
vertices. Since all of the vertices are on a 
circle, the X coordinate can be found by us- 
ing the cosine of the angle theta, and the Y 
coordinate can be found with the sine. 

A small number is subtracted from two n 
in line 130 to stop the angle two n from be- 
ing used, because zero is the same angle. 



(Remember, the computer uses radians in- 
stead of degrees). 

Line 170 combines all the vertices in all 
possible combinations. The values of the 
endpoints are then assigned to the vari- 
ables, and the LINE routine is called. After 
this section of the program is completed, 
the program will ask whether or not to con- 
tinue. If everything seems all right, press 
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enter and pray that the CLOSE routine 
works. 

Fig. 2 uses the same program as Fig. 1. 
Line 150 was changed to make the center 
design smaller. The center design has 
eleven vertices. The first portion of the pro- 
gram draws both cornerdesigns. I originally 
planned to have the center design tangent 
to the insides of the corner designs, but the 
insides of the corner designs do not actual- 



ly form circles as I expected. 

Fig. 3 is a moire pattern created by the in- 
terference of regularly spaced radii of a cir- 
cle. Each endpoint can be easily calculated 
by using the sine and cosine of the angle 
theta (T). The corners were not filled 
because they are almost entirely black. 
Change line 120 to "X1 =0:Y1 =0", and you 
will see the difference. 

This type of pattern can be created with 



100 REM DESIGN NO. 8 

110 FORT=0TO2*PI STEP PI/60 

120 R»CQS<2*T>*2QQ 

1 3 X 1 =COS C T > *R+2 02 : V 1 =S I N < T > *R+2 02 

140 R=T+PI--2 

150 R2=COS''2*R>*200 

160 X2=C0S < R > *R2+2 02 : Y2=S I N <■'. ft > *R2+2 02 

170 GOSUB 1500 

ISO NEXT T 



Figure 8: This figure is completely made of squares. 

'See List of Advertisers on page 306 




FILETRAN 

Transfers your 

TRS-80 Software 

to CP/M 



• Machine language COM FILE 
directly compatible with your 
CP/M system. 

• Automated terminal configurator. 

• Memory displayed in both HEX 
and ASCII. 

• Any disk Sector-Selected and 
displayed in both HEX and ASCII. 

• Transfers both data and program 
files by file name byte by byte. 

• Newly created files scanned for 
potential errors between level II 
BASIC and MBASIC 5.0 or 
later. 

• CP/M files scanned for any 
selected string. 

• Searches any program for all 
occurrences of any string. 

• Generates a variable cross refer- 
ence. Invaluable feature for any 
system level conversion and 
debugging. 

• Displays both CP/M & TRSDOS 
directories. 

FILETRAN Disk and Manual TRS-80 
I or II $99 

Transfer either way from CP/M 
TRSDOS for Model I $149 

Manual alone (Price credited to 
purchase) $20 

Add $2 shipping and 6% sales tax in 

California. 



Order FILETRAN Today 

□ FILETRAN Disk and Manual 
U2-Way Xfer feature for Model I 

□ Manual alone 

□ Send descriptive literature 

My check is enclosed for $ 

Name 

Street 

City 

State 

□ VISA 



□ M/C. 



Zip 



4 digits above name 



Card* 

Signature. 



Send to 



BUSINESS 
PRODUCTS 



609 Livermore Ave. 
Livermore, CA 94550 ^382 
(415) 449-4412 
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Applied Economic Analysis 



Dr. David Chereb 



A noted authority on 
microcomputing, Dr. 
Chereb has developed 
these software systems 
for TRS-80 K users. 



* 



This is the most powerful 
and comprehensive fore- 
casting system available 
for any microcomputer. 

■ COMPREHENSIVE 

This package can fully analyze all 
your important data. Whether you 
want to find the trend line for your 
sales and plot the results or build a 
simultaneous equation forecasting 
model, this system will do the job. 
This is a product you will grow into, 
not out of. The package contains 
several forecasting methods to fit 
your precise needs, and includes: 

■ Advanced Multiple Regres- 
sion with Auto Correlation 
correction 

■ 1 Data Transformation options 

■ Disc Data Management 
System 

■ Adaptive Filtering option . . . 
And much more 

While these are sophisticated tech- 
niques, this package has been de- 
signed to be easily used by the non 
technical businessman. Small busi- 
nesses through large corporations 
have reaped the benefits of AEAs 
Business Planning & Forecasting 
Package (BPFP). 

■ VERSATILE 

With the "BPFP", you can create 
a data series, store it on a disk, and 
analyze the data by using the var- 
ious system modules. The results of 



m % 




Applied Economic Anal 
RO. Box 302 
Allamuchy, NJ 07820 
k (201)852-3573 



PACKAGE 



the analysis can then be listed as a 
table or plotted as a graph. As an 
option, results from the "BPFP" can 
be stored on disk for use as a 
VISICALC File. 

■ CONVENIENT 

To use the package, just load "BPFP" 
and you're off. Every part of the 
process has a menu to simplify re- 
sponses. A second disk in the pack- 
age, the Econdata File, covers over 
30 vital topics, including the GNR 
retail sales, money supply, and 
mortgage rates from the 1st quarter 
of 1955, through the 4th quarter of 
1980. Users will also receive our 
User Notes for the "BPFP", which con- 
tain useful analytical examples. 

■ PACKAGE CONTENTS 

A sturdy three ring binder 

Over 70 pages of instruction and 

documentation 

2 mini diskettes with the programs 

on one disk and the Econdata File 

on the other 

■ HARDWARE REQUIREMENTS 

TRS-80 " with at least 48 K of RAM for 
Mod l&lll, 64 K of RAM for Mod II 
One disk (two are preferred) 
TRSDOS" 



To order, check software desired: 

□ Business Planning & Forecasting 

□ Box-Jenkins Forecasting 

□ United States Simulation Model 

□ Risk Analysis 

□ Econdata File 



Model l&lll 199.00 
Model l&lll 199.00 
Model l&lll 299.00 
Model l&lll 149.00 
Model l&lll 29.00 



Make check or money order payable to: 

Applied Economic Analysis 

RO. Box 302, Allamuchy, NJ 07820 

(201)852-3573 



Name (print) 

Company 

City 



Model II 299.00 
Model II 299.00 
Model II 399.00 
Model II 249.00 
Modelll 39.00 




Applied Economic Analysis 



10% Discount when ordering 2 or more programs of any mix. 

New Jersey residents add 5% sales tax. 

Shipping and handling prepaid in the U.S. 

For overseas airmail delivery, add $19.00 shipping charges. 



Title 



State 



Address 
_Zip_ 



Tele. No. 




Figure 9: This is based on an eight leaf rose; the small star in the center was an accident. 



100 REM DESIGN NO. 9 

110 FORT=OT02*PI STEP PI/60 

120 R«COS<4*T>*200 

130 >a=COS<T>*R+202:Yl=SIN<T>*R+202 

140 fl=T+PI/4 

150 R2=COS<4*fi>*200 

1 6 X2-COS < fl >*R2+2 02 i Y2=S I N < R > *R2+2 02 

170 GOSUB 1500 

180 NEXT T 



curves as well as straight lines, as long as 
you begin with two sets of lines, such as the 
set from each of the circles in the example. 
These lines should be nearly parallel at 
some point. 

Fig. 4 was one of my great failures. It was 
first done with a simpler program, but I for- 
got to save the program and had to write a 
longer one to reproduce it. My original in- 
tention was to produce a square spiral in 



which the distance between the lines in- 
creased as the length of the sides grew 
longer. I ended up with this design which I 
call "The Tunnel". This design sounds very 
odd when it is printing because of the regu- 
lar spacing of the vertical lines. 

Fig. 5 is a very simple, attractive, disk. 
It was created by taking 100 regularly 
spaced point on a circle and connecting 
them with points 3/4 n further around the cir- 



c q££ catalogue 
y with every order! 

SCRIPMOD 

By TERRY FIVEASH 



Scripmod Features 

• Allows you to use all those neat things 
your printer does from Scripsit! 

• For use with any smart printer. 

• Does not require special drives for 
your printer. 

• Use with LP IV, DW II, IDS 440, IDS 
460, NEC, DIABLO, QUME, and 
more! 

UNDERLINING, SUPERSCRIPT, 

SUBSCRIP, BOLD TYPE, PITCHES. 

YOU CAN EVEN UNDERLINE SPACES! 



This Program is a must for 

every Scripsit user. 

Scripmod is supplied on disc 

with full documentation. 

$39.95 



Print Central 

A utility for those with smart printers. 
To send a control code to your printer, 
simply press the clean key and the ap- 
propriate letter key and see instant 
execution. Any code from 1 to 31 may be 
sent. 

MODEL I — $24.95 



' 'SP ? ' 


Sfcf, 


|k@Pl 



THE BLACK BOX 

By Ken Hayes 
Shoot rays through black 
box, in search ot hidden 
stars. Watch out! 
They're not always 
where they seem. Model 
I or III. 16K Level II Min- 
imun. $14.95 



80 KISMET 

By Wendell Routon 
Super version of this 
old game for your 
Model I or Model III 
TRS-80. Graphics. 16K 
Level II Minimum. 

$14.95 



BLACK 




VIDEO SCREEN FILTER 

Hard acrylic plastic screen 
that's easy to install— easy 
on your eyes. 

GS1 -Model I $14.95 

GS 2 -Model II, III $14.95 
GS3-Leedex 100.. $14. 95 
Special Size $16.95 



BOX 



THE TEMPLE OF RAH 

By Dan Case 
Rescue the fair prin- 
cess from the clutches 
of the people of Rah 
before it's too late! 
Super adventure with 
sound! For Mode! I or 
III, 16K Level II minl- 
mun. $14.95 

THIJWT 



w 



GRtEk 



VISA — MASTERCARD 

Add 3% 

Oklahoma Residents add 2% tax. 
C.O.D.'s WELCOME! 



VISA' 




I7g03 



^38 

PRODUCTS CO 

414 South Oak 
Sapulpa, Okla. 74066 



[918] 224-9588 
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**SPECIAL**SPECIAL** 

TRS-80 ADD ON DRIVES 

IMMEDIATE DELIVERY 



SINGLE SIDED 
DOUBLE SIDED 



$225.00 
$345.00 



COMPLETE SYSTEMS 
SINGLE SIDED $365.00 
DOUBLE SIDED $485.00 

INCLUDES 
MINI DISK DRIVE 
FUSED POWER SUPPLY 
VENTED CABINET 
CABLE 

90 DAY WARRANTY 
FACTORY ASSEMBLED 
FACTORY TESTED 

THESE ARE NEW 5" FD's 



I 



? INTERFACE, INC ^e 

20932 CANTARA ST 
CANOGA PARK, CA 91304 
(213)341-7914 

VISA AND MASTER CHARGE ACCEPTED 



MACHINE LANGUAGE 

PROGRAMS 

"BUGGING" YOU?? 

Debug them -- with C-ALLH 

• GENERAL OPERATION MODE 
machine language tape I/O, user 
memory and CPU register control, I/O 
port control, memory operations like fill, 
block move, and search 

• DISASSEMBLY MODE 

dump to screen or screen and printer the 
assembly language mneumonics for 
instructions or data of a known format. 
Includes page formatting and breakpoint 
control. 

• TRACE MODE 

large number of options: default displays 
four lines of CPU data, trace address, 
hex code and assembly language 
mneumonic prior to execution. Delay is 
1 second or 1/16 second! with shift 
pressed. Top of CRT displays CPU 
register and memory data; bottom 
displays last 7 instructions executed. 
Optional dump to printer. 

C-ALL: JUST $19.95 

(Level II or DOS, 32K recommended) 



1806 Ada Street 

Lansing, MI 48910 

517-487-3358 

517-485-0344 



Add: $2. 00 '/postage, $1.50/ 'COD, 4%/ Visa. 



"(This figure) is entirely made of 
equilateral triangles. The spiral 
shape comes from an Archimedes 
Spiral which is computed in line 120." 

cle. By changing the number in line 130, the The remainder of the designs, including 

size of the internal circle can be controlled. Fig. 5, all use mathematical formulae of 



1 


REM DESIGN HO. 10 




110 


FORT=OT02 : + : PI STEP PI/30 




120 


R*T*31 




130 


X 1 =COS >:. T ::• *R+2 02 : Y 1 =3 1 N < T ; 


*R+2 02 


140 


fl=T+2+PI.--3 




150 


X2«COStfl>*R+202 i v2=sin<:r; 


*R+2Q2 


160 


GOSUB 1500 




170 


B=T+4+PI.--3 




ISO 


X1»COS<B>*R+202:Y1«SIN<CB: 


*R+202 


190 


GOSUB 1500 




200 


X2-C0S < T > *R+2 02 : Y2=S I N < T 


• *R+202 


210 


GOSUB 1500 




220 


NEXT T 
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Figure 10: This is completely made of triangles. 
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Most people just sell disks. 

I sell you a complete system, and then 
I help you make it work. 



It's called support, and it's a rare commodity 
in the microcomputer world. 

It's also one big reason why they call my programs 
"the standard of the industry." 

I'm Irwin Taranto, the one who changed the 
TRS-80* into a serious business computer. When you 
buy my TRS-80 systems (or, for that matter, one of 
my own computers that says "Taranto" on it), you 
buy me. 

You buy my experience in making TRS-80 systems 
work in thousands of businesses around the world. 

You buy the corrections, modifications and 
upgrades I constantly make on my TRS-80 systems. 

And you buy my telephone number. You see, most 
of those thousand businesses needed a little help 
getting their systems up and going, and they called. 
We answered all their questions, and talked them 
through their problems. Every time the questions 
got really tough or really unusual, I'd answer them 
myself, on the phone, right then and there. I still do. 

That pays off in two ways. It makes sure you get 
your systems working. It also alerts me to any little 
operating inefficiencies I might have designed into 
my systems. If there are any general business pro- 
grams anywhere in the world, of any kind, that are 
checked out any better than my TRS-80 systems, 




I turned the TRS-80 into a serious computer. 



The Model I, II and III business systems. 

So far, I have six systems for the Model I, 
at $99 each: 

Accounts Payable General Ledger 

Accounts Receivable Payroll 

Invoicing Inventory Control 

For the Cash Journal option on the General Ledger, add $50. 

I also have six systems for the Model II : 

General Ledger/Cash Journal $ 299 

Accounts Payable/Purchase Order 349 

Open Accounts Receivable /Invoicing 349 

Additional for Sales Analysis 100 
Balance Forward Accounts Receiyable 399 

Payroll, without Job Costing 299 

Additional for Job Costing 100 

Inventory Control 399 

For the Model III, we offer expanded versions 
of the six Model I systems, at $199 each. 

Just call the number below and I'll send you any 
or all of the Model I or Model III systems by return 
mail. If you call about the Model II, I send you 
a questionnaire before I'll send you any systems. 
That lets me individualize the programs to your 
specific applications. 

Why I call them "systems," not "programs!' 

There's a one-word answer: interaction. Each 
of the three sets of programs links to the General 
Ledger, and wherever it's useful, they cross-link 
to each other. For instance, "Sales Analysis" figures 
in a salesman's commission rate, so it links to 
"Payroll." Since it computes profitability within 
product categories, it links to "Invoicing." 

That's what a system is. And that's one big 
difference between the Taranto TRS-80 business 
systems and somebody else's collection of business 
program disks. 

If you like, I'll sell you the hardware, too. 

I offer the TRS-80, Model II, along with selected 
peripherals. If you buy the computer from me, 
you get some extra advantages — hardware that's 
absolutely tailored to the programs, plus even 
more hand-holding from Taranto & Associates. 
The equipment won't cost you any more. 

I can sell you a truly serious, completely supported, 
thoroughly proven business computer system for 
as little as $8000, hardware and software both. 

There's nothing else like it in the market. Believe 
me, it's a far cry from that collection of program 
disks they're selling down the street. 



^45 



Taranto 

& ASSOCIATES, INC. 



"A trademark of the Tandy Corporation 

>sSee List of Advertisers on page 306 



The Total System Store. 

121 Paul Drive, San Rafael CA 94903. 

Outside California, toll free (800) 227-2868. In California, (415) 472-2670. 

Authorized dealers throughout America. 
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common polar coordinate shapes. Fig. 5 
uses the conversion formulae from polar 
coordinates to Cartesian coordinates. The 
formulae are: X = Rcos(T), Y = Rsin(T). In 
Fig. 5, the radius, R, is 200. The design in 
polar coordinates would have its center at 
the pole or the origin in Cartesian coordi- 
nates. J ust as the center of the video screen 
is not (0,0) but (63,23), the center of the 
design is (202,202). To translate the center 
from (0,0) to (202,202), 202 must be added to 
the conversion formulae. These formulae 
are now: X = 200*cos(T) + 202, Y = 200* 
sin(T) + 202. 

Fig. 6 is an example of an Archimedes 
spiral. The formula in polar coordinates is 
simply R = T. R = 5T produces an identically 
shaped spiral, which widens more rapidly. 
Line 1 10 provides angles for five revolutions 
with forty points on each revolution. Line 
120 puts the (X1.Y1) point on the spiral, and 
lines 130 and 140 put the (X2.Y2) point one- 
third of a revolution further around the 
spiral. 

An unlimited number of spirals can be 
created by using different numbers in this 
program. One of my favorite designs is 
made up of points on one spiral connected 
to equivalent points on another spiral which 
rotates in the opposite direction. (The best 
way to create patterns is by trial and error. 
From more than a hundred different de- 
signs, these eleven are the best). 

Fig. 7 was another accident. I really didn't 
know what I would get with this program. 
This design uses a shape known as the four 
leaf rose. Its formula in polar coordinates is 
R = cos(2T). An endless set of roses with dif- 
ferent numbers of petals can be created by 
changing the number two in the equation. If 
the equation were R = cos(3T), a three leaf 
rose would be produced. R = cos(4T) will 
produce an eight leaf rose. 

A very small change in a program using 
polar coordinates can cause a major 
change in the design. The only differences 
between Fig. 7 and Fig. 5 are a different step 
in line 110 and a different offset in line 140. 
Fig. 8 is another of my favorites because it 
is completely made up of squares. It was 
another accident. 

Fig. 9 is also very similar to Fig. 8, using 
an eight leaf rose rather than the four leaf 
rose. This is the fourth of four accidents. 
The small center star makes this design an 
amazing design instead just average. 

The relationship between the step in line 
110 and the offset in line 140 determines 
whether the ends of lines will meet. In Fig. 9, 

Continue to 142 




Figure 1 1: This design is made of triangles. 



100 


REM DESIGN NO. 11 


105 


R=l 


110 


FORT=0TO3.24 STEP PI. -30 : REM MAKES 32 TRIRNGLES 


120 


R=R*1 . 1755? 


130 


:=«1 =COS ■:: T > *R+2 02 : Y 1 =S I N <: T > +R+2 02 


14 


R=T+2 : + : PI--3 


150 


rt2=COS'::fi:: |:+: R+202 : Y2s=SIN<fl>*R+'202 


160 


GOSUB 1500 


170 


B=T+4*PI---3 


ISO 


:=< 1 =CGS < B > *R+2 02 ! Y 1 =S I N '-. B :> *R+202 


190 


GOSUB 150 


200 


X2=CGS'::T;'*R+202: Y2=SINCT>*R+202 


210 


GOSUB 1500 


220 


NEXT T 




Program Listing 1. BASIC Error Checking Routine 




10 REM PROGRAM NO. 1 BASIC ERROR CHECKING AND CALL I 




NG 




20 OPEN 




30 PI=3.1416 




100 REM DESIGN NO. 1 




110 INPUT"NUMBER OF POINTS (SAMPLE HAS 18) ";N 




120 DIM A(N) ,B(N) 




130 FORT=0TO2*PI-.001 STEP 2*PI/N 




140 Z=Z+1 




150 A(Z)=COS(T)*200+202:B(Z)=SIN(T)*200+202 




160 NEXT T 



136 • 80 Microcomputing, May 1981 



FOR TRS-80* MODEL I USERS ONLY 







16 Times 
Normal Speed 



TRS-80 is a trademark of Tandy Corp. 



High speed load TRS-80* Level II cassettes 
Input 15K byte Level II program in 15 seconds 
Search BASIC or SYSTEM programs by name 



Unlike other high speed tape input de- 
vices, FASTLOAD uses standard format 
cassettes. Therefore, there is no need to 
re-record on other media. At 8000 baud, 
FASTLOAD is faster than disk for short 
programs. FASTLOAD reads tapes at the 
fast-forward speed of the CTR-41 cassette 
recorder. The recorder can also be used 
for CSAVE at the normal speed. 



FASTLOAD connects to the 40 pin I/O or 
to the Expansion box. The control program 
does not use computer memory because 
it is in a built-in PROM. Other valuable 
features are keyboard debounce program, 
automatic key repeat routine and key- 
beep via cassette speaker. Price is $188.00 
for FASTLOAD and $95.00 for the modi- 
fied CTR-41 recorder. 



,x422 



Personal Micro Computers Inc. 

475 Ellis Street, Mountain View, CA 94043 (415) 968-1604 



sSee List of Advertisers on page 306 
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Throw 
It Awa 



(your dictionary, that is) 




Now you can proofread and correct ten pages of text in less 
than one minute, with MICROPROOF dictionary software 



• EASY TO USE: Prepare your text on any Z-80 based microcomputer, using any of a number of popular word 
processing programs. When you are finished, enter the appropriate command, and MICROPROOF proofreads 
your document, displaying misspellings and typos on the screen. Then MICROPROOF displays each error 
separately, requesting you to enter the correct spelling for each. Finally, MICROPROOF corrects your document. 
All in less than a minute. 

• COMPREHENSIVE: MICROPROOF comes with a 50,000 word vocabulary. That's equivalent to a Webster's 
Pocket Dictionary. And MICROPROOF's dictionary is INFINITELY EXPANDABLE. You can add your own 
technical words and jargon. 

• RECOGNIZES prefixes, suffixes, hyphenation and comment lines. 

• REQUIRES ONLY 32K of memory and one single or double density b% inch or 8 inch disk drive. 

• AFFORDABLE: Available in three forms: fully independent program to identify errors, independent program 
to identify and correct errors, or with a conversion program that will permit MICROPROOF' to operate from 
within your own word processing software. 



PRICES 



TRS-80® Model I version 


$125.00 


Correcling Feature 


$60.00 


TRS-80® Model II version 


$200.00 


Word Processing Conversion 




CP/M® version 


$200.00 


Scripsit" or Electric Pencil® 


$35.00 


APPLE® version 


available soon 


Separate User's Manual 


$5.00 



Master Charge and Visa accepted. No COD please. California residents add 6% sales tax. 
Send for a brochure- specify type of microcomputer and word processing software used. Dealer inquiries welcome. 

CORNUCOPIA SOFTWARE .3 78 

Post Office Box 5028 

Walnut Creek, California 94596 

(415) 524-8098 
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"An unlimited number of spirals 

can be created by using 

different numbers in this program." 



17 F0RS=1T0N-1:F0RD=S+1T0N 




180 X1=A(S) :Y1=B(S) 




190 X2=A(D) :Y2=B(D) 




270 GOSUB1500 




280 NEXT D,S 




1000 


INPUT"CONTINUE";A 




1010 


CLOSE 




1020 


END 




1500 


REM LINE ROUTINE 




1510 


PRINT" <"; 




1520 


IF XI < OR XI > 405 THEN 


PRINT"X1 ILLEGAL" :END 


1530 


IF X2 < OR X2 > 405 THEN 


PRINT"X2 ILLEGAL" :END 


1540 


IF Yl < OR Yl > 40 5 THEN 


PRINT'Yl ILLEGAL" :END 


1550 


IF Y2 < OR Y2 > 405 THEN 


PRINT"Y2 ILLEGAL" :END 


1560 


IF INT(X1)=INT(X2) AND INT (Yl) =INT (Y2) THENPRINT"V 




ALUE TOO CLOSE" :RETURN 




1600 


X3=INT(Xl/256) :X4=INT (X2/256 ) 


1610 


Y3=INT(Yl/256) : Y4=INT (Y2/256 ) 


1620 


POKE25241,Xl-X3*256:POKE25242,X3 


1630 


POKE25245,Yl-Y3*256:POKE25246,Y3 


1640 


POKE2524 9,X2-X4*256:POKE25250,X4 


1650 


POKE25253 ,Y2-Y4*256 :POKE25254 , Y4 


1660 


LINE 




1670 


PRINT" > "; 




1680 


RETURN 











Progra 


m Listing 2. Line Drawing Routine 






00100 


;LINE DRAWING 


ROUTINE FOR BASE 


2 PRINTER AND 32K LEVEL II 






00110 


;BOB BOOTHE 7 


-8-80 




41A3 




00120 




ORG 


16804-1 


;LINE LOCATION 


41A3 


C3AF62 


00130 




jp 


LINE 


; AUTOMATICALLY ENABLE 


417 9 




00140 




ORG 


16762-1 




417 9 


C39563 


00150 




JP 


OPEN 




4185 




00160 




ORG 


16774-1 




4185 


C3B063 


00170 




JP 


CLOSE 




6297 




00180 




ORG 


25239 


;SO END IS BELOW 25603 


6297 


0000 


00190 


STARTX 


DEFW 


; RESERVE 4 BYTES FOR EACH VARIABLE 


6299 


0000 


00200 




DEFW 







629B 


0000 


00210 


STARTY 


DEFW 







629D 


0000 


00220 




DEFW 







629F 


0000 


00230 


ENDX 


DEFW 







62A1 


0000 


00240 




DEFW 







62A3 


0000 


00250 


ENDY 


DEFW 







6 2A5 


0000 


00260 




DEFW 







62A7 


0000 


00270 


DIRX 


DEFW 


; LEAST 


SIGNIFICANT 


62A9 


0000 


00280 




DEFW 


; MOST 


SIGNIFICANT 


62AB 


0000 


00290 


DIRY 


DEFW 







6 2 AD 


0000 


00300 




DEFW 







62AF 


D9 


00310 


LINE 


EXX 




; SAVE REGISTERS 


62B0 


2AA16 2 


00320 




LD 


HL, (ENDX+2) 


; GET END OF X POINT 


62B3 


ED5B9962 


00330 




LD 


DE, (STARTX+2) 


; START OF X 


62B7 


B7 


00340 




OR 


A 


; RESET CARRY FLAG 


62B8 


ED52 


00350 




SBC 


HL,DE 


; FIND DIFFERENCE 


62BA 


22A762 


00360 




LD 


(DIRX) ,HL 




62BD 


CB7C 


00370 




BIT 


7,H 


; IS THE RESULT NEGATIVE 


62BF 


2805 


00380 




JR 


Z,DX0 




62C1 


21FFFF 


00390 




LD 


HL,-1 


; YES, THEN MAKE MSW NEG 


62C4 


1803 


00400 




JR 


PDX 




62C6 


210000 


00410 


DX0 


LD 


HL,0 


; NO, MAKE MSW 


62C9 


22A962 


00420 


PDX 


LD 


(DIRX+2) ,HL 




62CC 


2AA562 


00430 




LD 


HL, (ENDY+2) 


; REPEAT ABOVE FOR Y 


62CF 


ED5B9D62 


00440 




LD 


DE, (STARTY+2) 




62D3 


B7 


00450 




OR 


A 




62D4 


ED52 


00460 




SBC 


HL,DE 




62D6 


22AB62 


00470 




LD 


(DIRY) ,HL 




62D9 


CB7C 


00480 




BIT 


7,H 




62DB 


2805 


00490 




JR 


Z,DY0 




6 2DD 


21FFFF 


00500 




LD 


HL,-1 




62E0 


1803 


00510 




JR 


PDY 




62E2 


210000 


00520 


DY0 


LD 


HL,0 




62E5 


22AD62 


00530 


PDY 


LD 


(DIRY+2) ,HL 




62E8 


2AA762 


00540 




LD 


HL, (DIRX) 




62EB 


ED5BAB6 2 


00550 




LD 


DE, (DIRY) 




62EF 


7C 


00560 




LD 


A,H 




62F0 


E680 


00570 




AND 


80H 


; PUT BIT 7 OF H IN B 



DISK BASED WOBD 
PROCESSOR 7.50 

A complete word processing system for your TRS-81 
Provides full editing capability including paragraph 
move, line deletion, insertion and correction. 
Store text on disk, print business/personal letters, 
reports with numbered pages and title pages. 
Text is stored on disk as blocks are created so texts 
are not limited by the available memory. 
Requires 16K and one or more disk drives. 
Comes complete on cassette with software to 
produce upper/lower case at printhead, and 
keyboard reverse. 

Full right/left justification and much more. 
Send cheque, money order or order by phone, 24 
hours, 7 days a week. Mastercharge and Visa 
cards welcome. 
Please include $1 .00 extra for first class post. 



MAILING LIST 



ABV,f 



AVA"j$f 



OPTION 7.50 

A complete mailing list option for the owners of the 
Pensa-Write Word Processor. 
Capacity for 300 names per disk. 
Sorts by postal code, prints business letters 
(created by Pensa-Write) against mailing list or 
portion thereof depending on selectable criteria. 
Prints labels in user definable format: Any number 
of columns (up to 5) across the page, any tab 
postions, and any number of spaces between rows. 
Interfaces directly with Pensa-Write Software to 
form the complete word processing/mailing system. 
Requires 32K and one disk drive. 
Please note: Pensa-Mail is not a "stand alone" 
program and is designed to be used with Pensa-Write. 

Both systems available on Diskette for $19.95 



^207 



^_ 4441 WEST FIRST AVE. 
VISA I VANCOUVER, B.C.. V6R4H9 
604-224-3107 



SQ95 



SQ95 



little Bee<^) 

EDUCATIONAL 

PROGRAMS 

For TRS* 80 Level II 16 K CASSETTE 

Upper/Lower Case Matching K-1 

Provides a drill to associate upper 

case letters to corresponding 

lower case letters. 

ABC sequence K-1 

Marching letters reinforce 

alphabet sequence. 

Listen and Spell (Wh-Th Words) 2-4 

Provides drill for troublesome 

Wh-Th words. s 9 95 

Calendar Tic-Tac-Toe 2-4 

Provides drill on sequence of months 

and days including current day and 

month for one or two students, s-i 495 

Math Facts K-6 

Teacher selectable drill for math 

facts. Teacher selects + , 

- , x , -5- and limits. s 9 95 

Contractions 2-4 

Drill for students to provide the two 

words that make up contraction^ 95 

Self correcting jnd scoring, positive reinforcement 
'Trademark of Tandy Corp ^t\j^. 

Little Bee^ 

EDUCATIONAL PROGRAMS . 208 

P.O. Box 262 Massillon. Ohio 44646 



^See List of Advertisers on page 306 
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DOES YOUR SMART 
PRINTER SUDDENLY 

BECOME DUMB 
WHEN YOU PRINT 

FROM SCRIPSn? 

Is your printer capable of underlining 
but not from Scripsit? 

Is your printer capable of Bold Printing 

but not from Scripsit? 

Can your printer super script and , script 
but not from Scripsit? 

Can your printer change pitches 
but not from Scripsit? 

The answer is SCRIPMOD 

SCRIPMOD does not require a separate printer driver. With 
SCRIPMOD control codes can be embedded in the test of your 
document. You use the same format line syntax you're used to 
now. SCRIPMOD adds one format instruction to Scripsit & two 
control codes. 

>C = N J = N CC = H 
The above line tells SCRIPMOD to justify text and to backspace 
the printer upon encountering a Text Character in the document. 
The Text Character is entered by placing the cursor at the place 
in text where the control code is to take place and typing on 
@T. Of course your printer must be capable of backspacing and 
must use the ASCII code 8 (or H) as the control for backspace. If 
the code is something different there is no problem as the 
• correct code may always be sent. Any control code your printer is 
capable of using from 1 to 31 with or without an ESCAPE lead 
in many be sent. 

The second control code which is added in the MENU command. 
You press an (aM and the screen clears and prompts you to 
select a drive from through 3 or return to the text. All visible 
files can be displayed on the screen at this time. When you select 
to return to the text, the cursor is placed on the exact character 
it was on when you selected @M. 

The minimum system required for SCRIPMOD is the Mod I 32K 
disk system with either the RS lower case mod or the EP lower 
case mod. 

SCRIPMOD is supplied on disk with full documentation for $39.95. 

PENCIL-FIX Save your warranty. Use PENCIL-FIX to avoid 
custom control key on your keyboard. Redefines the control key 
for EP to be the (a key. Use RS lower case mod or the EP mod 
without the control key. Disk based EP only . . . $14.95 

PRINT-CENTRAL Send any control code directly to your 
smart printer from the BASIC command mode or from DOS. 
Avoid having to type such things as "LPRINT CHR$(31) just to 
change pitch. Use CLEAR right arrow (two key strokes) instead. 
Any code from 1 to 31 may be sent. Mod I 32K disk . . . $24.95 

SPOOL-REL An in-memory print buffer that runs in Mod I 
32K or 48K disk systems. Fully relocatable code and buffer. A 
true background spooler at an unbelievably low price . . . $24.95 

TIGGER-GRAF Create engineering, scientific, business, or 
just plain fun on your IDS 440G or 460G printer. Resolution is 
495 x 575. Easy BASIC programs provided for data entry and 
machine language module for speed. Includes setting individual 
points, drawing lines, shading shapes. Several graphs may be 
catenated along the Y-axis for larger graphs. Requires Mod I 32 
or48K 1 disk . . . $149.95 

VERN STREET PRODUCTS " 111 

THE COMPUTER STORE 4949 S. Peoria • Tulsa, OK 74105 '918-747-2550 



ACCEL/ACCEL2 SPEEDUPS 

TRS-80 Model I BASIC Compilers 

Table below shows the BASIC subset translated by ACCEL and ACCEL2 to machine code 
Figures represent the minimum expected ratio ot execution times, compiler to interpreter. All 
other BASIC statements and (unctions run at interpreter speed alter compilation. 



Assignment (LET) 

Array Reference (1-dim) 

AND or OR 

Compare (< .etc) 

Add, Subtract, Concat 

Multiply (•) 

Divide (/) 

Reference to a constant 

FOR with NEXT 

POKE 

SET or RESET 

IF THEN ELSE 

ON expression GOTO 

Functions 

VARPTR 

USR 

POINT 

PEEK 

LEN 

MIDS 

LEFTS 

RIGHTS 

CHRS 

ASC 

CVI 

Flow of Control 

GOSUBwith RETURN 

C0T0 

All other BASIC 

statements and functions 
ACCEL: For 16K TRS-80 Model I. Compiles boldface subset in INTEGER variable type. Compile- 
time size 2816 bytes, run-time size 256 bytes. Trade up later to ACCEL2 for the price difference. 

$44.95 + .75 Shipping 
ACCEL2: For 32K TRS-80 Model I Compiles subset in all variable types. Compile-time size 
5120 bytes, run-time size 1024 bytes. Local and Global options help control growth ol the compiled 
code. Output save to Disk , Stringy/Floppy. TRSDOS and most vendor DOSs supported . Use ACCEL2 
duringBASlCprogramdeveiopmentforeasyhugespeedups. $88.95 + 1 . 50 shipping 

TSAVE: Writes ACCEL/ACCEL2 compiler output to independent SYSTEM tape. $9 95 



NTEGER 


SINGLE 


DOUBLE 


STRING 


115 


33 


3.4 


7.6 


35 


78 


66 


34.5 


41 


2.5 


2.0 




30 


1.6 


1.4 


4.2 


47 


2.0 


1.6 


4.9 


3.3 


2.0 


1.5 




2.0 


2.0 


1 02 




69 


65 


54 


2.1 


15 








82 


4.6 


3.6 




6.7 


3.1 


2.6 




11.1 


3.0 


2.3 


7.6 


15.8 


3.2 


2.8 




33 


47 


47 


44 


11.2 


3.7 


2.8 




6.9 


3.0 


2.5 




52 


4.4 


3.5 


43 
4.1 
3.0 
2.8 
4.7 

30 



137 
204 



1.0 



1.0 



1.0 



1.0 



Developed in Britain 
by Southern Soltware 



ALLEN GELDER SOFTWARE "' 79 
Box 11721 Main Post Office 
San Francisco, CA 94101 

; TRS-80, TRSDOS tm Radio Shack 
' Stringy/Floppy tm exatron. inc 



Mastercharge/Visa 
Ca add 6% 



CONVERT YOUR TRS-80 MODEL-I INTO A 

DEVELOPMENT SYSTEM 

Now you can develop Z-80 based, stand-alone devices such as games, robots, 
instruments and peripheral controllers, by using your TRS-80 as a development system. 
The DEVELOPMATE plugs into the expansion connector of your TRS-80 and adds 
PROM PROGRAMMING and IN-CIRCUIT-EMULATION capabilities to your 
system (with or without expansion interface). 

Complete instructions and sample schematics are included to help you design your 
own simple stand-alone microcomputer systems. THESE SYSTEMS CAN BE AS 
SIMPLE AS FOUR ICs^ oneTTL circuit for clock and reset, a Z-80, an EPROM. and 
one peripheral interface chip. 

When the In-Circuit-Emulation cable is plugged 
into the Z-80 socket of your stand-alone system, 
the system becomes a part of your TRS-80: You 
can use the full power of your editor/assembler s 
debug and trace programs to check out both the 
hardware and the software. Simple test loops 
can be used to check out the hardware, then the 
system program can be run to debug the logic of 
your stand-alone device 

Since the program is kept in TRS-80 RAM. 
changes can be made quickly and easily. When 
your stand-alone device works as desired, you 
use the Developmate s PROM PROGRAMMER 
to copy the program into a PROM. With this 
PROM, and a Z-80 in place of the emulation 
cable, your stand-alone device will work by itself. 

The DEVELOPMATE is extremely compact: Both the PROM programmer and the 
In-Circuit-Emulator are in one small plastic box only 3.2 "* 5.4". A line-plug mounted 
power supply is included. The PROM programmer has a personality module' which 
defines the voltages and connections of the PROM so that future devices can be 
accommodated However, the system comes with a universal personality module 
which handles 2758.2S08I.8K). 2716,2516(16K), 2532I32K), as well as the new elec- 
trically alterable 2816 and 48016I16K EEPROMs) 

The COMPLETE DEVELOPMATE 81. with software, power supply, emulation 
cable. TRS-80 cable, and universal personality module, is ONLY S329! 
The PROM PROGRAMMER is available separately tot ONLY S239. 

ORION INSTRUMENTS ^ 376 

1 72 Otis Avenue. Dept. M, Woodside. CA 94062 

(415)851-1172 

Masier Charge and Visa phone orders accepted. 

California residents please add 6% sales tax. 
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62F2 


47 


00580 




LD 


B,A 




62F3 


7A 


00590 




LD 


A,D 




62F4 


E6 80 


00600 




AND 


80H 


; PUT BIT 7 OF D IN C 


62F6 


4F 


00610 




LD 


C,A 




62F7 


CB25 


00620 


SHIFT 


SLA 


L 


; EXPAND DIRECTION UNTIL 


62F9 


CB14 


00630 




RL 


H 


; BIT 7 CHANGES 


62FB 


CB23 


00640 




SLA 


E 


; THIS GIVES MAX. SPEED 


62FD 


CB12 


00650 




RL 


D 




62FF 


7C 


00660 




LD 


A,H 




6300 


E680 


00670 




AND 


80H 




6302 


B8 


006 80 




CP 


B 




6303 


2008 


00690 




JR 


NZ, DSHIFT 




6305 


7A 


00700 




LD 


A,D 




6306 


E680 


00710 




AND 


80H 




6308 


B9 


00720 




CP 


C 




6309 


2002 


00730 




JR 


NZ, DSHIFT 




630B 


18EA 


007 40 




JR 


SHIFT 




630D 


22A762 


00750 


DSHIFT 


LD 


(DIRX) ,HL 


; DONE SHIFTING SO STORE 


6310 


ED53AB62 


00760 




LD 


(DIRY) ,DE 




6314 


CD6163 


00770 


NXTBLO 


CALL 


SET 


; SET 1ST POINT 


6317 


AF 


007 80 




XOR 


A 


; RESET CARRY FLAG 


6318 


2AA162 


007 90 




LD 


HL, (ENDX+2) 




631B 


ED5B9962 


00800 




LD 


DE, (STARTX+2) 




631F 


ED52 


00810 




SBC 


HL,DE 


; DOES START = END YET 


6321 


2830 


00820 




JR 


Z , MAYBE 




6323 


2A9762 


00830 


NOTYET 


LD 


HL, (STARTX) 


; ADD DIRECTION TO START 


6326 


ED5BA762 


00840 




LD 


DE, (DIRX) 




632A 


19 


00850 




ADD 


HL,DE 


; ADD LSW'S FIRST 


632B 


229762 


00860 




LD 


(STARTX) ,HL 




632E 


2A9962 


00870 




LD 


HL, (STARTX+2) 




6331 


ED5BA962 


00880 




LD 


DE, (DIRX+2) 


; (DIRX+2) SHOULD BE 


6335 


ED5A 


00890 




ADC 


HL,DE 


; ADD CARRY FROM LSW'S 


6337 


229962 


00900 




LD 


(STARTX+2) ,HL 


; REPEAT FOR Y'S 


633A 


2A9B62 


00910 




LD 


HL, (STARTY) 




633D 


ED5BAB62 


00920 




LD 


DE, (DIRY) 




6341 


19 


00930 




ADD 


HL,DE 




6342 


229B62 


00940 




LD 


(STARTY) ,HL 




6345 


2A9D62 


00950 




LD 


HL, (STARTY+2) 




6348 


ED5BAD62 


00960 




LD 


DE, (DIRY+2) 




634C 


ED5A 


00970 




ADC 


HL,DE 




634E 


229D62 


00980 




LD 


(STARTY+2) ,HL 




6351 


18C1 


00990 




JR 


NXTBLO 




6353 


B7 


01000 


MAYBE 


OR 


A 


; ARE Y'S ALSO EQUAL 


6354 


2AA56 2 


01010 




LD 


HL, (ENDY+2) 




6357 


ED5B9D62 


01020 




LD 


DE, (STARTY+2) 




635B 


ED52 


01030 




SBC 


HL,DE 




635D 


20C4 


01040 




JR 


NZ, NOTYET 


; NO, GO BACK AND FINISH 


635F 


D9 


01050 




EXX 




; GET BACK OLD REGISTERS 


6360 


C9 


01060 




RET 




; RETURN TO PROGRAM 


6361 


0600 


01070 


SET 


LD 


B,0 


; ROUTINE TO SET A POINT 


6363 


2A9D62 


01080 




LD 


HL, (STARTY+2) 




6366 


110700 


01090 




LD 


DE,7 


; GOING TO DIVIDE BY 7 


6369 


B7 


01100 




OR 


A 


; RESET CARRY FLAG 


636A 


ED52 


01110 


DIV7 


SBC 


HL,DE 


; DIVISION BY SUBTRATION 


636C 


3803 


01120 




JR 


C, DONDIV 




636E 


04 


01130 




INC 


B 


; COUNT THE 7 ' S 


636F 


18F9 


01140 




JR 


DIV7 




6371 


19 


01150 


DONDIV 


ADD 


HL,DE 


; PUT BACK LAST 7 


6372 


4D 


01160 




LD 


C,L 


; PUT REMAINDER IN C 


6373 


04 


01170 




INC 


B 


; SO B ISN'T 


637 4 


119601 


01180 




LD 


DE,406 


; 406 BYTES PER LINE 


6377 


216D62 


01190 




LD 


HL, 25603-406 


; COMPENSATE FOR (INC B) 


637A 


19 


01200 


MULT 


ADD 


HL,DE 


; ADD 406 FOR EACH LINE 


637B 


10FD 


01210 




DJNZ 


MULT 




637D 


ED5B9962 


01220 




LD 


DE, (STARTX+2) 


; GET X COLUMN 


6381 


19 


01230 




ADD 


HL,DE 


; MAKE ADDRESS 


6382 


41 


01240 




LD 


B,C 




6383 


04 


01250 




INC 


B 


; SO B DOESN'T EQUAL 


6384 


118D63 


01260 




LD 


DE,TABLE-1 


; COMPENSATE FOR (INC B) 


6387 


13 


01270 


FINDT 


INC 


DE 




6388 


10FD 


01280 




DJNZ 


FINDT 


; FIND LOCATION IN TABLE 


638A 


1A 


01290 




LD 


A, (DE) 




638B 


B6 


01300 




OR 


(HL) 


; SET THAT BIT 


638C 


77 


01310 




LD 


(HL) ,A 


; STORE 


638D 


C9 


01320 




RET 




; FINALLY DONE 


638E 


01 


01330 


TABLE 


DEFB 


01H 


; BIT 


638F 


02 


01340 




DEFB 


02H 


; BIT 1 


6390 


04 


01350 




DEFB 


04H 


; SO ON 


6391 


08 


01360 




DEFB 


08H 




6392 


10 


01370 




DEFB 


10H 




6393 


20 


01380 




DEFB 


20H 




6394 


40 


01390 




DEFB 


40H 





SPECTACULAR 
OFFERS 



BASF "FLFXYDISK"... 

Superior Quality data 

storage medium. 

Certified and guaranteed 

100% error free. ^ 

SINGLE SIDED-SINGLF DENSITY 

5Vt" or 8" Diskettes 10/$24 

5V4" or 8" Vinyl Storage Pages 10/$5 




MAXELL DISKETTES 
The best quality 
diskette money can buy. 
Approved by Shugart 
and IBM. 



sold 




5" 1 -side $3.30 

8" 1-side $3.90 

5" 2-side $4.25 

8" 2-side $5.60 

ALL MAXELL DISK ETTES AKb DOUBLt DENSITY 

tIBRARY CASE... 

3-ring binder album. 

Protects your valuable 

programs on disks 

Fully enclosed and 

protected on all sides. 

Similar to Kas-sette storage box 



Library 3-Ring Binder $6.50 

5' a" Mini Kas - sette/10 $2.49 

8" Kas-sette/10 $2.99 




DISKETTE DRIVE HEAD CLEANING KITS 
Prevent head crashe-. and 
insure efficient, error- 
tree operdt'on. 

5'V or 8" 



$19.50 



SFD CASSETTES 

C-10 Cassettes 10/$7 

(All cassettes include box & labels! 

Get 8 cassettes.C-10 sonic and 
Cassette/8 libiary album for 

only $8.00 

I.As illustrated) 




HARDHOLE 
Reinforcing ring ot 
tough mylar protects 
disk from damage 
8" Applicator $4 5' 
50/8" Hardholes $8 




Applicator $3 
5V4" Hardholes 



VISA • MASTERCHARCE • MONEY ORDtRS 
CERTIFIED CHECK • FOR PERSONAL CHECKS 
AI.LOWTWO WEEKS • C.O.D. REQUIRES A 10"i. 

DEPOSIT • CAL. RES. ADD 6% SALES TAX 

MIN $2 SHIPPING & HANDLING • MINIMUM 

ORDER $10 • SATISFACTION GUARANTEED 

OR FULL REFUND 

Write for our free catalog 



ABM 

PRODUCTS 

631 B ST. 

SAN DIEGO, CA 92101 

(714)235-6602 
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"This design took more work 

than any other design because 

the numbers had to be precisely calculated. 



6395 


D9 


01400 


OPEN 


EXX 




; SAVE REGISTERS 


6396 


210364 


01410 




LD 


HL, 25603 


; START PICTURE 


6399 


110464 


01420 




LD 


DE, 25604 


; START +1 


639C 


01FB5B 


01430 




LD 


BC, 23547 


; LENGTH 


639F 


3680 


01440 




LD 


(HL),128 


; BIT 7 ON, REST OFF 


63A1 


EDB0 


01450 




LDIR 




; COPY ALL THE WAY 


63A3 


D9 


01460 




EXX 




; GIVE 'EM OLD REGISTERS 


63A4 


C9 


01470 




RET 




; GET BACK TO FUN STUFF 


63A5 


E5 


01480 


PRTOUT 


PUSH 


HL 


; SAVE HL 


63A6 


21E837 


01490 




LD 


HL,37E8H 


; LP POINTER 


63A9 


CB7E 


01500 


PRTLP8 


BIT 


7,(HL) 


; BIT 7 ON MEANS BUSY 


63AB 


20FC 


01510 




JR 


NZ,PRTLP8 




63AD 


77 


01520 




LD 


(HL) ,A 


; LP READY, SO OUTPUT 


63AE 


El 


01530 




POP 


HL 


; GET BACK HL 


63AF 


C9 


01540 




RET 




; BACK TO WORK 


63B0 


D9 


01550 


CLOSE 


EXX 




; YOU KNOW WHAT THIS DOES 


63B1 


3E1B 


01560 




LD 


A, 27 


; ESCAPE 


63B3 


CDA56 3 


01570 




CALL 


PRTOUT 




63B6 


3E32 


01580 




LD 


A, 50 


; 96 CHARACTERS PER LINE 


63B8 


CDA56 3 


01590 




CALL 


PRTOUT 




63BB 


3E1B 


01600 




LD 


A, 27 


; ESCAPE 


63BD 


CDA56 3 


01610 




CALL 


PRTOUT 




63C0 


3E62 


01620 




LD 


A, 98 


; SET VERTICAL LINE 


63C2 


CDA56 3 


01630 




CALL 


PRTOUT 




63C5 


3E0E 


01640 




LD 


A, 14 


; SPACING TO 14 HALF DOTS 


63C7 


CDA56 3 


01650 




CALL 


PRTOUT 




63CA 


063A 


01660 




LD 


B,58 


; NUMBER OF LINES 


63CC 


210364 


01670 




LD 


HL, 25603 


; FIRST BYTE LOCATION 


63CF 


C5 


01680 


LOOP 


PUSH 


BC 


; SAVE LINE COUNTER 


63D0 


3E1B 


01690 




LD 


A, 27 


; ESCAPE 


63D2 


CDA56 3 


01700 




CALL 


PRTOUT 




63D5 


3E63 


01710 




LD 


A, 99 


; TRANSMIT GRAPHICAL DATA 


63D7 


CDA56 3 


01720 




CALL 


PRTOUT 




63DA 


06 5 5 


01730 




LD 


B,85 


; NUMBER OF BLANKS 


63DC 


3E80 


017 40 


BLANK1 


LD 


A, 128 


; IT IGNORES BIT 7 


63DE 


CDA563 


01750 




CALL 


PRTOUT 




63E1 


10F9 


01760 




DJNZ 


BLANK 1 




63E3 


019601 


01770 




LD 


BC,406 


;NO. CHARS FROM MEMORY 


63E6 


7E 


017 80 


CHAR 


LD 


A, (HL) 




63E7 


CDA56 3 


017 90 




CALL 


PRTOUT 




63EA 


23 


01800 




INC 


HL 


; INC ADDRESS AFTER EACH 


63EB 


0B 


01810 




DEC 


BC 


; DEC COUNTER AND CHECK 


63EC 


79 


01820 




LD 


A,C 




63ED 


B0 


01830 




OR 


B 




63EE 


20F6 


01840 




JR 


NZ,CHAR 




63F0 


0655 


01850 




LD 


B, 85 


; MORE BLANKS AT END 


63F2 


3E80 


01860 


BLANK 2 


LD 


A, 128 




63F4 


CDA56 3 


01870 




CALL 


PRTOUT 




63F7 


10F9 


01880 




DJNZ 


BLANK 2 


; THAT FINISHES ONE LINE 


63F9 


3E0D 


01890 




LD 


A, 13 


; CAUSES LINE FEED 


63FB 


CDA56 3 


01900 




CALL 


PRTOUT 




63FE 


CI 


01910 




POP 


BC 


; GET LINE COUNTER 


63FF 


10CE 


01920 




DJNZ 


LOOP 




6401 


D9 


01930 




EXX 






6402 


C9 


01940 




RET 


; ADDRESS SHOULD 


BE 6402H WHEN ASSEMBLING 


1A19 




01950 




END 


1A19H 


; ENTRY TO LEVEL II BASIC 


00000 TOTAL 


ERRORS 











60/4 = 15. Because 15 is an integer, the ends 
will meet. However, in Fig. 5, 50*(3/4) = 37.5. 
Since 37.5 is not an integer, the ends will not 
meet. 

Fig. 10 is made up entirely of equilater- 
al triangles. The spiral shape comes from 
an Archimedes spiral which is computed in 
line 120. The first corner is computed in line 
130, and the other corners are computed by 
adding an angle to it without changing 
the radius. All previous programs calcu- 
lated a new radius whenever the angle was 
changed. 

Fig. 1 1 is the same as Fig. 10 except that 
it is based on a logarithmic spiral instead of 
an Archimedes spiral. This design took 
more work than any other design because 
the numbers had to be precisely calculated 
so that each triangle would just touch but 
not overlap the previous one. 

Some very good designs can be pro- 
duced by combining several triangles. I 
have a more complicated program which 
draws six of these triangles together to 
form a fascinating hexagonal pattern. 

A simple exercise in graphics is to make 
Fig. 1 in the shape of an elipse instead of a 
circle. A slightly more difficult problem is to 
make Fig. 10 rotate in the opposite direc- 
tion. A very tricky problem is to make a de- 
sign similar to Fig. 8 out of triangles or even 
hexagons. I will leave the rest to you, your 
imagination and luck. ■ 

Next month: the third dimension. 

Bob Boothe is 18 years old and will grad- 
uate from Rolling Hills High School in June. 
He presently plans to enter the University of 
California at San Diego (the home of Pas- 
cal), in September, to major in Computer 
Science. 




All you have to do is send a No. 10 size 
envelope, self-addressed and stamped, to: 



«^62 

CECDAT, INC. 

P. O. Box 8963 
Moscow, ID 83843 



The most unique concept 
in software ideas. Are you 
tired of not knowing those 
tricks and shortcuts which 
the expert programmer uti- 
lizes without even thinking 
twice? Now you can pick 
up some tips and novel 
routines which will simpli- 
fy your own BASIC pro- 
gramming. TRS-80 Model I 
Lll. 

TRS-80 is a trademark of 
Tandy Corp. 

Free Idea Seeds is a trade- 
mark of CECDAT, INC. 
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FAST, REALTIME ACTION WITH SOUND 




By John Allen 

Get your flipper fingers ready for action in this 
real-time machine language game. 

Lots of sound and flashing graphics make .this 
fast action game so much like the real thing 
that you'll have to remind yourself not to 
shake yourTRS-80* Choose from five playing 
speeds to match your skill— but be prepared 
for a lot of practice if you ever hope to master 
the fastest speed. 

Can you beat your friends' scores? Will you 
avoid the dreaded "Bermuda Square?" Get 
PINBALL today and find out. Available for 
$14.95 on tape or $20.95 on disk. 




By John Allen 

Fast machine language action game, with 
sound, from the author of the acclaimed 
"PINBALL"! 

Try to keep up with the action and outscore 
your opponent in five minutes of one-on-one 
basketball. Steal the ball, duck around your 
opponent and slant toward the basket for a lay 
up! The graphics are based on a 3-dimension- 
al depiction of a basketball court, and ball 
dribbling sounds add to the realism. Compete 
against a friend or your computer. 

It's all there but the cheers— on tape for only 
$14.95, disk version for $20.95. 





By Leo Christopherson 

Your 'droid has already learned NIM, so now 
it's time to teach it how to wield a laser sword ! 
For DUEL-N-DROIDS, a new type of animation 
and high-quality sound has been developed by 
Leo Christopherson, author of "Android NIM" 
"Dancing Demon" and other animations. 

Your 'droid starts out as a lowly clown. You teach 
it how to use a laser sword by controlling its 
movements. After it attains the rank of "Grand 
Master," enter it in the tournament against the 
program. Entertainment for all ages! 

Available for $14.95 on tape, $20.95 for disk. 



By Carl Miller 

A new and faster machine language approach to this 
classic (and addictive) space game. As you play, the 
aliens drop bombs, move from side to side, and try to 
overrun your bases. All you have to do is shoot them 
down. It's easy — until they speed up their action! 

You choose the speed, enemy bomb frequency 
and accuracy, and how many shots and bases 
you have. Unlike other games of this type, you 
can move your base and simultaneously fire at 
the invaders. Fun for all ages and skill levels, it 
has full sound effects for even more excitement. 

Available for only $14.95 on tape or $20.95 on disk. 



Available now from these and other fine Acorn dealers 



AUTHORS & DEALERS WANTED 



* Bfl P Software Products, Inc. 
634 North Carolina Avenue, S.E., Washington, DC. 20003 



Acorn 



ADVENTURE INTERNATIONAL 
Box 3435 
Longwood, FL 32750 

COMPUTERLAND/CLEVELAND 
1288 SOM Center Rd. 
Mayfield Hts., OH 44124 

and 
4579 Great Northern Blvd. 
Cleveland, OH 44070 

DIGIBYTE COMPUTER CENTER 
31 East 31st St. 
New York, NY 10016 

E.B. GARCIA & ASSOCIATES 
203 North Wabash 
Chicago, I L 60601 



H & E COMPUTRONICS 
50 North Pascack 
Spring Valley, NY 10977 

HOBBY WORLD ELECTRONICS 
19511 Business Center Dr. 
North Ridge, CA 91324 

THE PROGRAM STORE 
4200 Wisconsin Ave. 
Washington, DC 20016 

and 

W. Bell Plaza 
6600 Security Blvd. 
Baltimore, MD 21207 

'TRS-80 is a trademark of Tandy Corp. 



.'See List of Advertisers on page 306 
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EST 

/MlCROCO/MPUrER 

TECHNOLOGY 
.INCORPORATED 



SPRI NG SALE 



y 



CLEARANCE SPECIAL 

SHUGART SA400 (tf-3) 

35 track disk drive 

includes power supply * f^ f*^ f^ 
and chassis. 9 sKJ^J 

LIMITED SUPPLY ^MM 

[F^FREE FULL YEAR WARRANTY ™=g 
\ with purchase of new 

SHUGART SA400 (TF-3L) 

comes complete with 

power supply, chassis, 

cable b NEW DOS 80 

OK- $4 -J 9 



Jf=Jr=Jr 



p^Jp^rrrJ^Tf 



r=JF=Jr=JF=ir=JF=Jr=Jr^|5 



THE MICROCONDUCTOR™ 

the ultimate data base manager 
for your TRS-80® 

The MICROCONDUCTOfV" is nor jusr a file manager bur a rrue Dara 
Base Managemenr Sysrem suirable for borh rhe novice and professional 
users. 

DATA FILES — No limir on rhe number of records a file can have. 

FIELDS— Any rype (string, inrerger. single, double) Eighr entry modes 
(including defaults, counting, and suppress). 
REPORTS— Four ways to generore reports. Totol numeric column(s). 
Print on any paper in any formar (sraremenrs. labels, ere). 
SORT— Any field(s) (i.e. multiple-key sort). Any size file, numeric or 
ASCII. Ascending or descending. 
MAINT— Command anriciparion Record duplication. Direcr access 
and sequenrial search. 
UPDATING/— Add. subtract multiply, divide fields Combine resulrs from 
MERGING previous calcularions. Tesr for ony condirion and rake acrion. 

TRS-80® MODEL I M59 

TRS-80® MODEL II *399 

NEW FOR TRS-80® 



TF-8 80 TRACK DISK DRIVE 
byMPI 

Double your capacity. 
Single head mini floppy. 
More rhan 200K byres of 
srorage. Complete wirh 
power supply and chassis. 



J 619 



TF-9 DUAL 80 TRACK DISK 
DRIVE by MPI 

Quadruple your capacity. 
400K bytes of storage (like 
having 4-40 track drives in 
one unit). Complete with 
power supply and chassis. 



$ 769 



MOD II 8" Disk System 

1 Drive Sysrem *949 

2 Drive Expansion System $ 1,445 



Disk Drive Sale! 

with FREE power supply and chassis. 

Shugart SA400L, 40 rrk 

Perrec FD200, 40 rrk 

TF-5 MPI B5 1,40 rrk 

TF-7 Mircopolis, 77 rrk 

TDH-1 Dual sided drive, 35 rrk 

TF-3M Drive sys. 2 Shugarr 40 rrk 

SOFTWARE SALE 

NEWDOS80 

NEWDOS+40rrk $ 110 30rrk 

AJA Business Pkg $ 359 

The Source M 00 Basic Compiler 



$ 329 

*379 

$ 349 

$ 559 
$449 

J 649 

M49 
*99 



H95 



MONTHLY SPECIAL 

Shugart SA801 Bore Drive 



*459 




MOD I Disk Expansion Systems 

• 2 Shugart 5A400 TF-3 $ 658 

• 1 Two-Drive Cable $ 26 

• 1 Expansion Interface 32K $ 439 

• 1 DOS+ >99 

TOTAL LIST PRICE M,222 



SPECIAL PRICE ONLY 



$ 1,077 



• DARE DRIVES FOR ANY MICROCOMPUTER 



Perrec FD200 

Shugart SA400 35 track 

MPID51 

MPI D91 



'282 
'269 
'279 
'399 



FD250 

SA400L 40 rrack 

052 

B92 



'359 
'279 
'349 
'525 



Memory Kit (16K) $ 43.00 

AC Isolator (6 socker) J 49.95 

Disk Head Cleaner *1 9.95 

Diskettes Verbatim (1 0) hard ring $ 00.00 




^N 



>i:£: 



..}f 



Anadex 9500 ..'1,449 



Prinrers 

Microline 82 '849 

Microline83 '1,060 

Centronics 779 M ,069 

Centronics 700 M.129 

Dase2 '649 

Centronics 737 J 839 

Centronics 702-9... '1,995 

Malibu '2,093 

Paper Tiger '895 

Daisy Wheel '1,799 



INTRODUCTORY OFFER 
SAVE $300 LIST *949 

Okidata 
Microline 80 



$ 599 



EPSON 
PRINTER, 



J 595 




Registered trademark of Radio Shack 



x: 



j 
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TRS-80® MODEL III OWNERS 

We think our disk system for 
exponding your capacity is just 
as good as theirs - and we know 
it costs much less . . . 



COMPLETE SYSTEMS 
AND COMPONENTS* 

TRS-80® MOD III SYSTEM 



with 2 

disk drives, 48K* 



SAVE $500 
OFF LIST PRICE 



H ,899 

16K RAM, Model III Basic *899 

MTI DISK DRIVES for MOD III 

Internal Kits 
Disk Drivel $ 649 

Disk Drive 2 *279 

External Add-on Kits 
Disk Drive 3 *379 

Disk Drive 4 J 359 

Model III DOS & Manual *2 1 .95 

16KRAMKit $ 59 

RS-232 Serial Interface *95 




New low cost internal disk kit avail- 
able to expand your storage capability. 
With this kit, now, you may expand 
your Model III computer up to four MTI 
40 track disk drives, giving 175,000 
bytes of storage per drive for a total of 
700K. 

The kit includes one 40 track disk 
drive, controller, power supply, cables, 
mounting hardware and installation 
documentation. 



Manufacturer Direct 

Price ONLY 



*649 



IS 



MICROCOMPUTER TECHNOLOGY, INCJ 

0304 W. MACARTHUR, SANTA ANA, CA 92704 
* PHONE (714) 979-9923 • TELEX #678401 TAD IRIN 



*Uses MTI Memory, Disk Drives & Components 

® TRS-80® IS A REGISTERED TRADEMARK 
^ OF TANDY CORPORATION 



M3-D 




sSee List of Advertisers on page 306 
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TUTORIAL 



Here's a RAM/ROM tutorial that even includes memory test routines. 



Memories Are 
Made of This 



Robert D. Randall 
841 So. 50th St. 
Lincoln, NE 68510 



This article should answer some of the 
questions you have about computer 
memory and how it works in the TRS-80. I 
will also take a look at expanding memory 
in the keyboard and the expansion inter- 
face, as well as what to do if your computer 
memory ever goes on the blink. 

To begin, let's look at the computer 
memory of a few decades ago. Magnetic 
core memory was probably the most popu- 
lar for small computers and also used as 
secondary or external memory for larger 
systems in the 1950's and 60's. Magnetic 
core memory was developed at the Massa- 
chusetts Institute of Technology for the 
Whirlwind I computer. It had an access time 
of a few microseconds, (millionths of a sec- 
ond), was reliable, and was somewhat less 
expensive when compared to other types of 
memory in use at that time. It was not un- 
common to have memories in the range of a 
few thousand to 32,000 words of storage. 
The drawbacks to these systems were their 
large physical size, their high power con- 
sumption, and their high price tags. 



The magnetic core was made up of ferrite 
material, usually in the shape of little 
doughnuts. These doughnut shaped core 
elements were a millimeter or so in diam- 
eter and were strung by the thousands on a 
grid of wires. To store data the ferrite core 
was magnetized to read data, the magne- 
tized ferrite core was used to induce an 
electrical current. 

Random Acess Memory 

Large scale integration has revolution- 
ized the design of computers and other 
electronic devices. This is the process 
whereby tens of thousands of tiny circuits 
are fabricated upon a tiny chip of silicon, at 
times no morethan a quarter of an inch on a 
side. What this has meant to computers 
should be apparent every time you power up 
your TRS-80. 

If you own a TRS-80 with 16K memory, 
you will have eight 4116 16K RAM chips in 
your keyboard unit. 4116 is the model 
number of the RAM chip; 16K means the 
chip contains over 16,000 bits of storage; 
and RAM is an acronym for Random Access 
Memory. 



RAM is a memory device that will write in- 
to or read from its storage any data the 
CPU/microprocessor requires, at any ad- 
dress the CPU specifies. The time required 
to do this is known as the RAM chips' ac- 
cess time, which is usually expressed in 
nanoseconds (NS). When you see an adver- 
tisement for extra memory, you will usually 
see a number like 450 ns or 250 ns after the 
chip model, meaning that the chip has an 
access time of 450 nanoseconds or 250 
nanoseconds, which is fast when you think 
that a nanosecond is one billionth of a sec- 
ond. A nanosecond is to one second what 
one second is to 31.7 years. 

There are eight RAM chips in the key- 
board of the TRS-80 because the micropro- 
cessor chip is an eight-bit processor. This 
means that data is read into and from the 
chip eight bits at a time. In computer jargon, 
four bits equal one nybble and eight bits 
equal one byte. Twelve to sixteen bits equal 
a word. 

Eight RAMs are necessary because only 
one bit may be addressed at a time in the 
4116 RAM. In order to access eight bits of 
storage, you would need to access the 





Table 1 






Phase 1 


FF FF OO FF FF OO FF FF 


FF = Major 


OO = Minor 


Phase 2 


00 00 FF 00 00 FF OO OO 


OO = Major 


FF = Minor 


Phase 3 


FF 00 FF FF 00 FF FF 00 


FF = Major 


00 = Minor 


Phase 4 


00 FF 00 00 FF 00 00 FF 


00 = Major 


FF = Minor 


Phase 5 


OOFFFFOOFFFFOOFF 


FF = Major 


00 = Minor 


Phase 6 


FF OO OO FF 00 00 FF 00 


00 = Major 


FF = Minor 
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6 ways to give 
your TRS-80* a 



+ PLUS 



Exhaustive research and professional standards 
bring you the best in business software. 



EASYTRAK ,m 

KEEP YOUR SALES CURVING UP- 
WARD WITH EASYTRAK tm , a powerful, 
all-purpose activity tracking system. Gser- 
specified options enable you to monitor 
sales activity by territory, product line, 
salesman, or by combinations. Can 
monitor inquiries, sales calls and order 
booking. Production activity (by shift, by 
product, by day, by team, 
etc.), spending or in- 
come activity are simple 
to set up with EASY- 
TRAK tm . Extensive video 
displays make available 
individual, group or total summaries, rela- 
tive averages, and percentage data all at the 
touch of a button. Use of an 80-column 
printer is optional. 




MODEL I/III 
MODEL II 



$100 
$140 




+ ACCOUNTS RECEIVABLE 

PUT MORE CASH IN 
YOUR BANK AC- 
COUNT with +Account 
Receivable's many col- 
lection/credit features, 
including average pay- 
ment days, aging 
schedule and statements, 
Open-item system records sales activity 
this year and last, optional automatic dis- 
counts and salesman assignment. Cash re- 
ceipts and A/R adjustments feature exten- 
sive on-line validation. And, yes, f Accounts 
Receivable handles the pesky new 9-digit 
zip code. Other optional features include 
service charges to selective customers; 
partial and "on-account" payments. Posts, 
at your option, to + General Ledger. 

MODEL I/III $250 
MODEL II $300 



+ GENERAL LEDGER 

SLICE OUT MORE PROFIT by using 
+General Ledger to monitor your financial 
status. Features include fully-flexible finan- 
cial statements, both budget and last year 
comparisons, special report options, 
monthly and quarterly trial balances, man- 
ual and/or automatic journal entries all with 
extensive audit trails. You structure the 
chart of accounts with up to 5 digit account 
numbers. 

MODEL I/III $250 

MODEL II $300 




+ FIXED ASSETS 

A POWERFUL SET OF TOOLS TO 
CALCULATE and monitor fixed asset ex- 
penditures, book and tax depreciation, in- 
vestment tax credit, etc. Will even forecast 
future depreciation for you. (Handy at 
budget time!) Code structure enables you 
to classify assets by departments, buildings, 
groups or other categories. Handles seven 
depreciation methods. Can post to +Gen- 
eral Ledger for you. 

MODEL I/III $250 
MODEL II $300 




+ ACCOUNTS PAYABLE 

FUNNEL THAT STACK OF BILLS into 
+ Accounts Payable system and create an 
orderly, manageable flow of vendor his- 
tories, cash requirements forecasts, check 
registers and checks, aging schedules, etc. 
Will accept manual checks, 
reversals, and adjustments. 
Pay by selected vendor, in- 
voice, due date, discount 
dates, and optionally post di- 
rectly to your +General 
Ledger. Supports 5-digit 
vendor numbers. 

MODEL I/III $250 
MODEL II $300 




+ PAYROLL 

KEEP YOUR EMPLOYEES HAPPY and 

smiling with prompt, accurate and profes- 
sional payroll records. Will handle weekly, 
biweekly, semimonthly, monthly payrolls, 
produce checks, check 
registers, labor reports, 
earnings reports, Form 
941's, W2's, etc. Can 
handle fixed/voluntary 
deductions, hourly/ 
salary employees, 
bonuses, city and state taxes, etc. Easy to 
use and update tax tables. Automatic 
+ General Ledger posting. 

MODEL I/III $250 
MODEL II $300 




SPECIAL! All of the above: MODEL I/III $1250 MODEL II $1500 

+PLUS SOFTWARE comes to you feature-packed from on-line validation to 
machine-language file handling. Extensive documentation and thorough installa- 
tion guide accompany each order. All systems are furnished on disc. Source code 
is included. Texas residents add 5% sales tax. 



+ PLUS 



To order, call TOLL-FREE 24 hours 
1-800-528-6050 EXT. 1562 

(In Arizona, 1-800-352-0458 Ext. 1562) 



PLUS COMPUTER TECHNOLOGY. INC. ^131 

POST OFFICE BOX 1152 

ANGLETON. TEXAS 77515 (713) 849-1108 



Dealer inquiries invited 

•TRS-80 is a registered trademark of Tandy Corp. 
'EASYTRAK is a trademark ot Plus Computer Tech. Inc. 



sSee List of Advertisers on page 306 
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same RAM chip eight times at eight differ- 
ent locations, increasing the time needed to 
access memory. Using eight RAM chips, all 
eight may be accessed simultaneously. 

If you refer to the TRS-80 Technical 
Reference Handbook, you will see these 
eight RAM chips. They are represented by 
Z13 through Z20 on the first schematic 
sheet. The four most significant bits (MSB) 
of a byte are stored in RAM Z13, Z14, Z20, 
and Z15, and the four least significant bits 
(LSB) of a byte are stored in RAM chips Z19, 
Z18, Z16, and Z17. (The MSB of the hex num- 
ber 7F is 7, the LSB is F.) 

How Ram Works 

Bits are stored in tiny cells in a rectangu- 
lar array within the chip. To access any one 
of these cells, a coded binary address is in- 
put to an address decoder within RAM that 
selects one column and one row of the ar- 
ray. At the same time, a signal is sent from 
the CPU telling the RAM chip if it is to be a 
read or write operation. The desired data is 
then sent through the data lines. 

The most simple storage cell in use today 
is made up of a small capacitor used to 
store a small electrical charge that repre- 
sents a binary value of either 1 or 0. Usually 
1 is represented by a plus charge of up to 
five volts and is represented by ground, or 
one or two volts. An on/off switch (made of a 
small transistor) is used to connect the stor- 
age capacitor to a data line. There may be a 
large number of these storage capacitors 
sharing the same line, but only one cell can 
use the data line at any one time. 

A storage cell is accessed as follows. The 
data lines act as a column indicator to the 
memory array. Selection lines correspond 
to rows at right angles to the data lines. 
When a selection line is activated, all stor- 
age cells on that line have their transistors 
turned on; because only one of these stor- 
age cells is on an activated data line at a 
time, only one storage cell is accessed. 

The charge in the capacitor of a memory 
cell must be refreshed from time to time 
because of loss through capacitor leakage 
and accesses to it. Devices in RAM known 
as thresholding amplifiers, located on each 
of the RAM data lines, are responsible for 
this task. Whenever RAM is accessed the 
thresholding amplifier takes a sample of 
the signal and compares it to the threshold 
level. The threshold level is usually the 
charge midway between binary 1 and 0. The 
amplifier then regenerates the necessary 
binary level if the signal is low. 

Regeneration of the threshold level is 
known as the refresh cycle of the RAM chip. 
If a RAM needs to be refreshed, it is known 
as a dynamic memory RAM. The TRS-80 is 
of this type. If a RAM does not need a 
refresh cycle, it is known as a static RAM. 

Other Memory Devices 

The TRS-80 also uses a memory device 
called a ROM, which contains BASIC and 
otherroutinesneededforoperation.ROMis 
an acronym for Read Only Memory. You 



3C00 
3C9 5 
3C9B 
3CA9 
3CC0 
3CC9 
3CDD 
3C37 
3D1C 
3DC0 
30CE 
3D0B 
3FC0 
3FD2 
3FD0 
3C06 
3C3E 
4020 
28A7 
05D9 



Listing 1. 



1 CLS:INPUT"STARTING ADDRESS(XXXXD)";S:INPUT"ENDING ADDRESS(XXXXD)";E 

5 D = 225:F0R L = STO EtPOKE L,D:IF PEEK(L>OD THEN 15 ELSE NEXTL 

10 PRINT'TEST COMPLETED, NO ERRORS":STOP 

15 PRINT L;"SHOULD'VE BEEN 225, BUT IT CONTAINS";PEEK(L):STOP 



Listing 2. 



42E9 




42E9 


218747 


42EC 


3600 


42EE 


218547 


42F1 


3600 


42F3 


CDC901 


42F6 


111C3D 


42F9 


ED532040 


42FD 


21CA45 


4300 


CDA728 


4303 


11CE3D 


4306 


ED532040 


430A 


21D345 


430D 


CDA728 


4310 


0604 


4312 


C5 


4313 


010000 


4316 


CD6000 


4319 


CI 


431A 


10F6 


431C 


CD8544 


431F 


11C03D 


4322 


ED532040 


4326 


21F745 


4329 


CDA728 


432C 


2A2040 


432F 


C00905 


4332 


7E 


4333 


FE2A 


4335 


CAEB43 


4338 


CD0244 


433B 


ED537047 


433F 


2A8147 


4342 


35 


4343 


B7 


4344 


ED52 


4346 


FA5B43 


4349 


C08544 


434C 


11C030 


434F 


E0532040 


4353 


215947 


4356 


CDA728 


4359 


18B5 


435B 


CD8544 


435E 


11C03D 


4361 


ED532040 


4365 


211E46 


4368 


CDA728 



0010 
0015 
0020 
0025 
0030 
0035 
0040 
0045 
0050 
0055 
0060 
0065 
0070 
0075 
0080 
0085 
0090 
0095 
0100 
0105 
0110 
0115 
0120 
0125 
0130 
0135 
0140 
0145 
0150 
0155 
0160 
0165 
0170 
0175 
0180 
0185 
0190 
0195 
0200 
0205 
0210 
0215 
0220 
0225 
0230 
0235 
0240 
0245 
0250 
0255 
0260 
0265 
0270 
0275 
0280 
0285 
0290 
0295 
0300 
0305 
0310 
0315 
0320 
0325 
0330 
0335 
0340 
0345 
0350 
0355 
0360 
0365 
0370 
0375 
0380 
0335 
0390 



; #*****************##*#:#**:«****#*********************** 

;* SET-UP CONSTANTS FOR RAMTST 



DCOU-JT 

0PHASE 

DPHASD 

DMAJBT 

01NFDM 

0C0NT S 

DMABYT 

DERR0R 

DTITLE 

DPROMP 

DAUTHR 

DFLASH 

DTSTL0 

D START 

DSP END 

DSPCM0 

DSPEAD 

CURSOR 

PRINT 

INPUTK 



E0U 
E0U 
E0U 
EQU 
E0U 
EOU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



3C00H 

3C00H+149 

3C00H+155 

3C00H+169 

3C00H + 192 

3C0OH+2O1 

3C00H+221 

3C00H+55 

3C00H+284 

3C00H+443 

3C00H+14 

3C00H+475 

3C00H+960 

DTSTLO+18 

DTSTLO+29 

3C00H+6 

DERROR+7 

4020H 

28A7H 

0509H 



;*******##*##****:***:*>!<* ****** 

;* START OF MAIN DRIVE 

;**************************** 

; INITL. RAM LOCATION 

ORG 42E9H 
LD HL, PHASE 
LD (HL).OOH 
LD HL, ERROR 
LD (HLJ.00H 
CALL 01C9H 
LD DE, DTITLE 
LD (CURSOR), DE 
LD HL.TEXT1 
CALL PRINT 



LD 
LD 
LD 



DE, DAUTHR 
(CURSOR) ,DE 
HL.TEXT2 



CALL PRINT 



LDSTUP 
GODLAY 



LD 



B,4 



PUSH BC 



LD 



BCtO 



CALL 0060H 
POP BC 
DJNZ GODLAY 
CALL CLPRMP 
LD DE.DPROMP 
LD (CURSOR), DE 
LD HL.TEXT3 

CALL PRINT 
LD HL, (CURSOR) 

CALL INPUTK 
LD A,(HL) 

CP 02AH 

JP Z.AUTO 

CALL COVINP 
LD ( START ),DE 

LD HL,(AUT0L0) 

INC DE 
OR A 
SBC HL.DE 
JP M.GETEND 
CALL CLPRMP 
LD DE.DPROMP 

LD (CURSUR).DE 
LD HL.TEXT15 
CALL PRINT 
JR LDSTUP 
GETEND CALL CLPRMP 

LD DE.DPROMP 

LD (CURSOR), DE 
LD HL.TEXT4 
CALL PRINT 



;C0UNT DSP. 
; PHASE DSP 
;DATA DSP 
;MAJ0R DSP 
; INFORM DSP 
;C0NTENTS DSP 
;MAJ0R BYTE CSP 
; ERROR DSP 
;TITLE DSP 
;PR0M DSP 
;PR0GR NAME 
;FLASH DSP 
;L0W EXT. DSP 
; ST ART DSP 
;END DSP 
;C0UNT DATA 
•.ERROR DATA 
;CURSCR POINTER 
;SUB PRINT 
;SUB INPUT 

************************** 

R 

************************** 

s 

; START OF PROG 
;GET LOC 
;ZAP PHASE 
;GET LOC 
;ZAP ERROR 
;CLS 

;GET LOC 
;L0AD CURSOR 
;P0INT TO TEXT 
;DISPLAY 
;GET LOC 
;L0AD CURSOR 
; POINT TO TEXT 
;DISPLAY 
;LOAD COUNTER 
;SAVE B 
;ZAP B 
;0ELAY SUB 
-.GET B 

;LOOP UNTIL B=0 
;ZAP PROMPT 
;GET LOC. 
;L0AD CURSOR 
;P0INT TO TEXT 
;DISPLAY IT 
;SET UP POINTER 
;SUB INPUT 
;GET 1ST BYTE 

;IS IT •*• 

;YES-00 AUTO 
;N0-C0NVERT INP 
; STORE START 
;GET FIXED LOW 
; ADJUST 
;ZAP FLAG 
•.SUBTRACT 
; INPUT OK-GO ON 
;ZAP PROMPT 
;GET LOCATION 
{LOAD CURSOR 
;POINT TO TEXT 
; DISPLAY 
;GOTO DELAY 
;ZAP PROMPT 
;GET LOCATION 
;LOAD CURSOR 
;POINT TO TEXT 
;DISPLAY 

Program continues 
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436B 


2A2040 


0395 




LD 


HL, (CURSOR) 


;SET POINTER 


436E 


C0D905 


0400 




CALL 


INPUTK 


;SUB INPUT 


4371 


CD0244 


0405 




CALL 


COVINP 


;CONVERT TO HEX 


4374 


ED537F47 


0410 




LD 


(END) ,DE 


; STORE END 


4378 


CD8544 


0415 


GETC*T 


CALL 


CLPRMP 


;ZAP PROMPT 


437B 


11C03D 


0420 




LO 


DE.DPROMP 


;GET LOCATION 


437E 


ED532040 


0425 




LD 


(CURSOR) ,DE 


;LOAD CURSOR 


4382 


213C46 


0430 




LD 


HL, TEXTS 


;POINT TO TEXT 


4385 


C0A728 


0435 




CALL 


PRINT ' 


;DISPLAY 


4388 


2A2040 


0440 




LD 


HL, (CURSOR) 


;SET POINTER 


438B 


CDD905 


0445 




CALL 


INPUTK 


;SUB INPUT 


438E 


CD0244 


0450 




CALL 


COVINP 


;CONVERT TO HEX 


4 391 


ED5383A7 


0455 




LD 


(COUNT) ,DE 


; STORE COUNT 


4395 


11003C 


0460 




LD 


DE.DCOUNT 


;GET LOCATION 


4398 


ED532040 


0465 




LD 


(CURSOR) ,DE 


;LOAD CURSOR 


439C 


215F46 


0470 




LD 


HL.TEXT6 


;POINT TO TEXT 


439F 


CDA728 


0475 




CALL 


PRINT 


;DISPLAY 


43A2 


CD4944 


0480 




CALL 


CNTDSP 


;OISPLAY COUNT 


43A5 


11373C 


0485 




LD 


DE.DERROR 


;GET LOCATION 


43A8 


ED532040 


0490 




LD 


(CURSOR), DE 


;LOAD CURSOR 


43AC 


216646 


0495 




LD 


HL.TEXT7 


;POINT TO TEXT 


43AF 


C0A728 


0500 




CALL 


PRINT 


{DISPLAY 


43B2 


CD5B44 


0505 




CALL 


ERRDSP 


;DSP ERROR DATA 


43B5 


CD8544 


0510 




CALL 


CLPRMP 


;ZAP PROMPT 


43B8 


11C03F 


0515 




LD 


OE.DTSTLO 


;GET LOCATION 


43BB 


E0532040 


0520 




LD 


(CURSOR), OE 


;LOAD CURSOR 


43BF 


216E46 


0525 




LD 


HL.TEXT8 


; POINT TO TEXT 


43C2 


CDA728 


0530 




CALL 


PRINT 


{DISPLAY 


43C5 


CD6644 


0535 




CALL 


DSPLOC 


;OISP EXTENTS 


43C8 


11C03D 


0540 




LD 


DE,DPROMP 


;GET LOCATION 


43CB 


ED532040 


0545 




LD 


(CURSOR), DE 


{LOAD CURSOR 


43CF 


219146 


0550 




LD 


HL.TEXT9 


{POINT TO TEXT 


4302 


COA728 


0555 




CALL 


PRINT 


{DISPLAY 


43D5 


CD9344 


0560 




CALL 


TEST 


{MAIN SUB 


4308 


CD8 544 


0565 


PGDONE 


CALL 


CLPRMP 


{ZAP PROMPT 


43DB 


11C03D 


0570 




LD 


DE.DPROMP 


{GET LOCATION 


43DE 


ED532040 


0575 




LD 


(CURSOR), DE 


{LOAD CURSOR 


43E2 


21AB46 


0580 




LD 


HL.TEXT10 


{POINT TO TEXT 


43E5 


CDA728 


0585 




CALL 


PRINT 


{DISPLAY 


43E8 


C3191A 


0590 




JP 


IA19H 


{END-RETURN TO BASIC 






0595 


;********#****************************************#***#*< 






0600 


;* 


END 


OF DRIVER PROGRAM 






0605 


;************ ******** ***********************************:< 






0610 


;***************************************** ******** ****** 






0615 


;* 




SUBROUTINES 








0620 


;* AUTO * FINO THE TOP OF MEMORY 






0625 


;*******************«********** *********** .m,******,,, **,,,$ 






0630 


; 








43EB 


2A8147 


0635 


AUTO 


LD 


HL,(AUTOLO) 


{GET LOW MEMORY 


43EE 


227D47 


0640 




LD 


(START) ,HL 


{STORE IN START 


43F1 


36AA 


0645 


FILLUP 


LD 


(HD.OAAH 


{STICK IN AA 


43F3 


7E 


0650 




LD 


A,(HL) 


{READ BACK 


43F4 


FEAA 


0655 




CP 


OAAH 


{IS IT AA? 


43F6 


2807 


0660 




JR 


Z.LOOP 


{NO-CONTINUE 


43F8 


2B 


0665 




DEC 


HL 


{YES-CORRECT PCINTER 


43F9 


227F47 


0670 




LD 


(END) ,HL 


{STORE END OF TEST 


43FC 


C37843 


0675 




JP 


GETCNT 


{GET REPETITION'S 


43FF 


23 


0680 


LOOP 


INC 


HL 


{ADJUST POINTER 


4400 


18EF 


0685 
0690 




JR 


FILLUP 


{LOCK HIGHER 






0695 


; ******************** *************************,(,*,»***,(,*$* 






0700 


;* COVINP 


CCNVERT ASCII TO 


HEX 






0705 


;****************************** *********** ***********#*» 


4402 


CD0B44 


0710 


COVINP 


CALL 


ASXHEX 


{CONVERSION SUB 


4405 


57 


0715 




LD 


D,A 


{STORE HEX IN 


4406 


CD0B44 


0720 




CALL 


ASXHEX 


{CONVERSION SUB 


4409 


5F 


0725 




LD 


E,A 


{STORE HEX IN E 


440 A 


C9 


0730 




RET 




{RETURN W/HEX IN CE 


440B 


0E00 


0735 


ASXHEX 


LD 


CfOOH 


{ZAP REG C 


440 


7E 


0740 




LD 


A,(HL) 


{GET 1ST BYTE 


440 E 


C01844 


0745 




CALL 


CVERT 


{CALL BYTE CONVERTER 


4411 


23 


0750 




INC 


HL 


{POINT TO NEXT BYTE 


4412 


7E 


0755 




LD 


A,(HL) 


{GET 2ND BYTE 


4413 


CD1844 


0760 




CALL 


CVERT 


{CONVERT BYTE 


4416 


23 


0765 




INC 


HL 


{POINT TO NEXT 


4417 


C9 


0770 




RET 




{BYTE CONVERTED 


4418 


CB21 


077 5 


CVERT 


SLA 


C 


{SHIFT C LEFT 1 


441A 


CB21 


0780 




SLA 


C 


{AGAIN 


441C 


CB21 


0785 




SLA 


C 


{AGAIN 


441E 


CB21 


0790 




SLA 


c 


{DO ONE MOR TIPE 


4420 


0630 


0795 




SUB 


30H 


{SUBTRACT 30H 


4422 


FEOA 


0800 




CP 


10 


{GREATER THAN 10 


4424 


FA2944 


0805 




JP 


M, JUMP 


{NO-STORE IT 


4427 


0607 


0810 




SUB 


7 


{SUBTRACT 7 


4429 


81 


0815 


JUMP 


ADD 


A,C 


{PUT WITH REG C 


442A 


4F 


0820 




LD 


CA 


{COPY BACK TC C 


442B 


C9 


0825 
0830 




RET 




{RETURN-HEX IN REG C 






0835 


;******************#**«**♦**#*#****:«****************#*** 






0840 


;* BXASH 


CONVERT HEX BACK TO 


ASCII AND DISPLAY 






0845 


;************ ********************** **** * ** **** * * ******** 


442C 


3EF0 


0850 


BXASH 


LD 


A.OFOH 


{PUT MASK IN A 


442 E 


Al 


0855 




AND 


C 


{MASK OFF C 


442F 


OF 


0860 




RRCA 




{ROTATE RIGHT 

Program continues 



cannot write into ROM, only read from it. 
Data is put into the ROM at the time it is 
manufactured. ROMs are like RAMs, except 
their storage capacitors are replaced with 
an open circuit or are connected to ground, 
representing one or the other of the two 
binary states. 

Another memory device is called PROM. 
PROM is an acronym for Programmable 
Read Only Memory. When a PROM is manu- 
factured, its storage cells have a small fusi- 
ble link from their transistors to ground in 
place of the storage capacitors. Data is 
placed in the array by applying a pattern of 
electrical signals strong enough to break 
the unwanted links. Once a PROM has been 
programmed, it cannot be altered. A PROM 
will retain its data after power has been 
removed from it. 

The next device is an EPROM, an 
acronym for Erasable Programmable Read 
Only Memory. Data is written into an 
EPROM through electronic means, but only 
after all storage cells have been erased. In 
order to erase the cells, ultraviolet light is 
used. Once data has been written into the 
cells, they cannot be altered until all cells 
are once again erased. 



Enlarge Your Memory 

The Z-80 microprocessor in the TRS-80 
will address up to 65536 bytes of RAM. If 
you have a 4K system, you can add up to 
16K of total RAM within the keyboard by 
buying one of many conversion kits or by 
having Radio Shack install one. Most of 
these kits come with the RAM chips, jump- 
ers needed for installation and instructions. 

(Remember that if you open up your key- 
board, you will void your warranty if it is still 
in effect.) 

If you already have 16K of RAM in your 
keyboard and want more, you will need to 
buy an expansion interface. This can give 
you up to 48K of memory. 

If you buy the interface without memory, 
it's easy to install. If you are inserting only 
16K of RAM, find RAM sockets Z9 through 
Z16 in the interface. If you are installing 32K 
of RAM at one time, you needn't worry 
about which sockets you fill first. For 32K, 
you will fill sockets Z1 through Z8 and 
sockets Z9 through Z16. You will want to 
use low power 41 16 RAMs with an access of 
at least 450 ns. 

Caution is the word when handling RAM 
chips. They will arrive sitting in conductive 
foam or in a conductive tube or foil (any 
static discharge will damage the chips). 
When handling MOS (Metal Oxide Semicon- 
ductor) devices you might considerground- 
ing yourself with special straps. Try not to 
wear clothing that contains static. Using an 
IC insertion tool, such as Radio Shack's 
276-1574, is also helpful when working with 
chips. 

The number one pin of the chip must 
agree with the number one hole of the 
socket. The first pin usually has a small cir- 
cle over it, or a notch cut into the end where 
the number one pin is located. If you are un- 
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COMPLETE 




MODEL 

DISK SYSTEMS 

FROM AEROCOMP 



AT LAST 

This is what you have been waiting for! 
Complete, on-board disk systems 
featuring the latest Radio Shack Model 
III * computers and the finest disk 
drives on the market - AEROCOMP. 
Four models to choose from - all with 
48k RAM. The AEROCOMP/Mod. Ill 
Systems are available with 40-track 
"flippy" drives, 80-track "flippy" drives, 
40-track dual-headed drives or 80-track 
dual-headed drives. There's one to suit 
your needs. 

DOUBLE DENSITY 

All models of the AEROCOMP/Mod. Ill 
operate in double density. This means 
something in the order of 1 .8 times the 
storage of single density. That means 
fewer diskettes ( a big cost savings 
over the long run ) and more data on 
line at any given time. 

OPERATING SYSTEM 

Every AEROCOMP/Mod. Ill System in- 
cludes the Model III DOSPLUS 
Operating System. This system is com- 
patible with the Mod. I software and will 
read Mod. I disks with NO conversion. 
You will find this an outstanding disk 
operating system loaded with great 
features. 



TRADE MARK OF TANDY CORP. AROCOMP(21 



FOUR MODELS 

• MOD III/40F 

48K Mod. Ill with two on-board 
40-track "flippy" disk drives & Mod. 
Ill DOS $2,350.00 

• MOD III/80F 

48K Mod. Ill with two on-board 
80-track "flippy" disk drives & Mod. 
Ill DOS $2,499.00 

• MOD III/40DH 

48K Mod. Ill with two on-board 
40-track Dual-headed disk drives & 
Mod. Ill DOS $2,499.00 

• MOD III/80DH 

48K Mod. Ill with two on-board 
80-track Dual-headed disk drives & 
Mod. Ill DOS $2,899.00 

COMPARE FEATURES 

^C Choice of "Flippy" or Dual-Headed 

drives. 
^C Radio Shack warranty on computer 

-90 days. 
5fc AEROCOMP warranty on the drives 

-120 days. 
sfcMod. Ill DOSPLUS Operating System 

included. 
5fc48K Ram. 
^J Double Density - 80% increase in 

storage over single density, 
if: Convenient desk- top enclosure with 

no cables strung all over. 
jJcPlug it in and GO! 



ORDER TODAY! 

See the opposite page for our standard 
ordering policy. The only difference in 
our regular policy will be: NO COD's on 
the AEROCOMP/Mod. Ill's. We will ac- 
cept only VISA & MASTERCARD or 
payment with order. These units ship by 
motor freight and will be shipped freight 
charges collect. Please remember our 
toll free lines will accept orders only 
and will not answer questions. The 
number for technical information is 
(214) 337-4346. Please note that 
quanities are limited and we will ship on 
a first come first served basis. Thank 
you for making AEROCOMP a success! 

PRINTER SPECIAL 
EPSON MX80 $499.00 

Add $30.00 for TRS80 cable and $6.00 for shipping & ins. 



ORDER TODAY FROM 

Ac^GCGFilP 

Redbird Airport, Bldg. 8 
P.O. Box 24829 "38? 
Dallas, TX 75224 

See Opposite Page [^> 
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40 & 80 Track 
"FUPPV'Drives 



REAL VALUE 

AEROCOMP offers the best value in 
microcomputer disc drives on the market 
today! Reliability, features and cost tough 
to beat. We deliver... and we stand behind 
our products, as evidenced by the only 
FREE TRIAL OFFER in the industry. Ex- 
amine your systems needs and order to- 
day! 

MYSTERY REMOVED 

There appears to be some confusion in the 
terminology used to describe disc drives 
and their features. Here's what we mean: 

• FLIPPY Allows the use of both 
sides of a diskette with a single- 
headed drive by simply turning the 
diskette over (model 40-1&80-1). 

• TRACK DENSITY Specified in 
tracks per inch (TPI). Refers to the 
number of tracks per radial inch on 
the diskette. Typically 48 TPI = 40 
usable tracks and 96 TPI = 80 usable 
trsck^ 

• DOUBLE DENSITY Refers to 
recording density in bits per inch 
(bpi). Typically single density means 
data can be recorded up to 2,938 
bpi; double density means data can 
be recourded up to 5,876 bpi. 

• DOUBLE SIDED Refers to number 
of read/write heads. Single-sided is 
one head, read/write one side only; 
double-sided is dual heads allowing 
read/write operations on both sides 
of the diskette. A double sided drive 
appears as two seperate drives to 
the controller. (Model 80-2 & 160-2) 

• ACCESS TIME The time required 
for the head to move from one track 
to the next. Typacilly 5 to 40 
milliseconds (ms) 



for TRS-80* 

SELECT YOURS! 

• 40-Track "FLIPPY" $349.95 

(Model 40-1) 48 TPI, single dens. 
125K bytes/side, double dens. 
250K/side. 

• 80-TRACK "FLIPPY" $459.95 
(Mod. 80-1) 96 TPI, single dens. 
250K bytes/side, double dens. 
500K/side. 

• 40 TRACK DUAL HEAD $459.95 
(Mod. 80-2) 48 TPI, double-sided, 
40 tracks/side; single dens. 250K 
bytes, double dens. 500K. 

• 80 TRACK DUAL HEAD $599.95 
(Mod. 160-2) 96 TPI, double-sided, 
80 tracks/side; single dens. 500K 
bytes, double dens. 1 megabytes. 

NOTE: All capacity values are unformated. All 
models capable of single or double density. All 
with power supply/silver enclosure. 1 1 5 VAC. 
50-60 Hz 1 1 5/230 VAC available. 

STARTER A 

40-Track drive, 2-drive cable, 
TRSDOS 2.3 Disk & Manual, 
Freight & Ins. 

$339.95 

(Reg. $380.00) 

STARTER B 

40-Track FLIPPY drive, 2-drive 
cable.TRSDOS 2.3 Disk & 

Manual, Freight & Ins. 

$369.95 

(Reg. $401.00) 

*SPECIAL PACKAGES* 

#1 40-Track FLIPPY drive 
2-Drive cable 
Newdos/80 
Freight & lns.$459.00(reg.$528.oo) 

#2 80-Track FLIPPY drive 
2-Drive cable 
Newdos/80 
Freight & Ins. $569.00 (reg.$638.oo) 

#3 TWO (2) 40-Track FLIPPY drives 
4-Drive cable 
Newdos/80 
Freight & Ins. $785.00 <reg $893 ooi 



COMPARE AND BUY AEROCOMP! 



ACCESS HEAD DISC CAPACITY EASY- FREE 
"FLIPPY" TIME LOAD EJECTOR (onlormoted ENTRY TRIAL 
(track to SOLENOID single DOOR 

track) density) 


AEROCOMP 


YES 


Smi. 


YES 


YES 


2SOK bytes 
(both .Id..) 


YES 


YES 


RADIO 
SHACK* 


NO 


40ms. 


YES 


NO 


109K bytes 


NO 


NO 


PERCOM 


YES 


25ms. 


YES 


NO 


250K bytes 
(both sides) 


YES 


NO 


MPI 


NO 


5ms. 


YES 


YES 


125K bytes 


YES 


NO 


SHUGART 


NO 


40ms. 


YES 


NO 


109K bytes 


NO 


NO 


TANDON 


NO 


5ms. 


NO 


NO 


I25K bytes 


NO 


NO 



Factual material from current manufacturer s dota sheets is believed reliable but cannot be quoronteed comparing Ae 
Model 401 to similar models 



#4 TWO (2) 80-Track FLIPPY drives 

4-Drive cable 

Newdos/80 

Freight & Ins. $999.00 (reg$ni3 85) 
#5 TWO (2) 40-Track DUAL HEAD 
Drives 
Cable 
Newdos/80 
Freight & Ins. $995.00 (Reg $110500) 

#6 TWO (2) 80-Track DUAL HEAD 

Drives 

Cable 

Newdos/80 

Freight* Ins. $1,245.00 

(Reg. $1,385.00) 

FREE TRIAL OFFER 

Order your AEROCOMP Disc Drive and use 
it with your system for up to 1 4 days. If you 
are not satisfied for ANY REASON 
(except misuse or improper handling), return 
it, packed in the original shipping container, 
for a full refund. (Special packages will be prorated). 
We have complete confidence in our pro- 
ducts and we know you will be satisfied! 
ORDER TODAY!! 

WARRANTY 

We offer you a 1 20 day unconditional war- 
renty on parts and labor against any defect 
in materials and workmanship. In the event 
service, for any reason, becomes 
nescessary, our service department is fast, 
friendly and cooperative. 

100% TESTED 

AEROCOMP Disc Drives are completely 
assembled at the factory and ready to plug 
in when you receive them. Each drive is 
1 00% bench tested prior to shipment. We 
even enclose a copy of the test checklist, 
signed by the test technician, with every 
drive. AEROCOMP MEANS RELIABILITY! 

ORDER NOW!! 

To order by mail, specify Model Number(s) of 
Drive, cable, etc. (above), enclose check, money 
order, VISA or MASTERCHARGE card number 
and expiration date, or request COD. shipment. 
Texas residents add 5% sales tax. Add $5.00 
per drive for shipping and handling. Please allow 
2 weeks for personel checks to clear our bank. 
No personel checks will be accepted on COD. 
shipments-cash, money orders or certified 
checks only. You will receive a card showing the 
exact COD. amount before your shipment ar- 
rives. Be sure to include your name and shipping 
address. WE SHIP PROMPTLY! In the event 
there is a slight delay, you will be notified of the 
shipping date and we will NOT charge your 
bankcard until the day we ship! 

WRITE AEROCOMP TODAY 
FOR MORE VALUES !!! 



CALL TOLL FREE FOR FAST SERVICE 
(800) 824-7888, OPERATOR 24 

FOR VISA/MASTERCHARGE/C.O.D. ORDERS 

California dial (800) 852-7777, Operator 24. Alaska 
and Hawaii dial (800) 824-7919, Operator 24. 
TOLL FREE LINES WILL ACCEPT ORDERS ONLYI 

For Applications and Technical information, coll 
(214) 337-4346 or drop us a card. 



The TRS-80- expans 



lits the track lo track access time to 12ms 



•Trademork of Tandy Radio Shack. 



Dealers inqiries invited 

Redbird Airport, Bldg. 8 ^ 
P.O. Box 24829 
Dallas, TX 75224 



^See List of Advertisers on page 306 
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sure about the pins, find someone to help 
you. If you plug the chip in backwards, you 
could fry it when you turn on the power. 

After you have the chip sitting in the 
socket, make sure you haven't bent any 
pins under the body of the chip. Don't use 
too much force when you press the chip in- 
to the socket. 

Once you've seated the chips, put every- 
thing back together and power up your sys- 
tem. Remember, if you do not have a disk on 
your expansion interface, hold the Break 
key down when you power up. This avoids a 
screen full of garbage. Type in "? MEM", 
and your new amount of RAM should be dis- 
played in decimal on the CRT. 

Memory Failure 

RAM problems may show up in a variety 
of ways. I will list only a few of the more 
common symptoms. 

If you are running a program known to be 
error free and the program begins to bomb 
out (abend), or if your known variables begin 
to become different values for no reason, or 
the graphics begin to look like garbage on 
the tube, it might not be a bad idea to check 
your memory. If your memory checks out 
okay, I would suggest taking your system to 
a Radio Shack Repair Center. 



"If. . .your program begins 

to bomb out. . . it 
might not be a bad idea 
to check your memory. " 



The best way to find a RAM problem is to 
let your computer find it. Load a diagnostic 
program into your system that will read and 
write specific data into and out of specific 
address locations. When the program finds 
a location that does not respond in the way 
that it should, your problem is half solved. 
The next problem is to determine which of 
the eight RAM chips are bad. 

An easy approach to the first problem 
would be to write a simple program in 
BASIC (Listing 1). This program will write a 
value of 255 (FF in hex) into the RAM loca- 
tions you input through prompts from the 
program. The program will first write 255 in- 
to an address and then read the data back 
and compare it. If the compare is not equal, 
the program will branch to an error display 
routine and stop. If no errors are encoun- 
tered, the program will display this informa- 
tion at the end of the test. 

Listing 1 is not very fast, nor is it com- 
pletely accurate. What, for example, would 
happen if a bit in RAM was stuck at 1 (a bit 
that would not register a 0)? Program 
Listing 1 would never detect such an error. 
Whai would happen if the error was in the 
area of RAM that our program must execute 
out of? The program might not work, or the 
problem might not be detected. 



4430 


OF 


0865 




RRCA 




;AGAIN 


4431 


OF 


0870 




RRCA 




;AGAIN 


4432 


OF 


0875 




RRCA 




-.ONE MORE TIKE 


4433 


CD3D44 


0880 




CALL 


CVERT1 


;DO CONVERSION 


4436 


3E0F 


0885 




LD 


A.OFH 


;L0AD A WITH OF 


443 8 


Al 


0890 




AND 


C 


;MASK OFF C 


4439 


CD3D44 


0895 




CALL 


CVERT1 


;C0NVERT 


443C 


C9 


0900 




RET 




CONVERSION DONE 


4430 


C630 


0905 CVERT1 


ADD 


A.30H 


;ADD 30H 


443F 


FE3A 


0910 




CP 


3AH 


;IS IT LESS THEN 107 


4441 


FA4644 


0915 




JP 


M, JUMPi 


;YES-GET READY TO STORE 


4444 


C607 


0920 




ADD 


A, 7 


; NO-ADJUST 


4446 


77 


0925 JUMP1 


LD 


(HL)iA 


;DISPLAY IT 


4447 


23 


0930 




INC 


HL 


; POINT TO NEXT 


4448 


C9 


0935 
0940 




PET 




; RETURN AND GET NEXT BYTE 






0945 


;#**#*******#****************************************** 






0950 


;* CNTDSP 


DISPLAY PROGRAM 


REPETITIONS 






0955 


;*#******#********#************************************ 


4449 


E5 


0960 


3NTDSP 


PUSH 


HL 


;SAVE ON STACK 


444A 


21063C 


0965 




LD 


HL.DSPCND 


;PCINT FOR DISPLAY 


4440 


ED5B8347 


0970 




LD 


DE, (COUNT) 


;GET COUNT 


4451 


4A 


0975 




LD 


CO 


;LOAD MSB INTC C 


445 2 


CD2C44 


0980 




CALL 


BXASH 


;C0NVERT TO ASCII 


445 5 


4B 


0985 




LD 


C,E 


;L0AD LSB INTC C 


4456 


CD2C44 


0990 




CALL 


BXASH 


•.CONVERT TO ASCII 


4459 


El 


0995 




POP 


HL 


;GET HL BACK 


445A 


C9 


1000 




RET 




;RETURN-COUNT DISPLAYED 






1005 


;*****************#*#********************************** 






1010 


;* ERRDSP 


DI SPLAY NUMBER 


OF ERRORS 






1015 


;#****#************¥************♦********************** 


445B 


213E3C 


1020 


ERROSP 


LO 


HL.DSPERD 


-.POINT FOR DISPLAY 


445E 


3A8547 


1025 




LD 


A, (ERROR! 


;GET ERROR CCUNT 


4461 


4F 


1030 




LD 


C,A 


-.LOAD INTO C 


446 2 


CD2C44 


1035 




CALL 


BXASH 


;C0NVERT TO ASCII 


4465 


C9 


1040 




RET 




;RETURN-COUNT OF ERRORS 
DISP. 






1045 


; **#* ************************************************** 






1050 


;* OSPLOC 


DISPLAY MEMORY 


LOCATION 






1055 


; **************** ************************************** 


4466 


21D23F 


1065 


DSPLOC 


LD 


HLiDSTART 


;P0INT TO SCREEN 


4469 


E05B7D47 


1070 




LD 


DE, (START) 


;GET START 


4460 


4A 


1075 




LD 


CD 


;L0AD MSB 


446 E 


C02C44 


1080 




CALL 


BXASH 


;C0NVERT TO ASCII 


4471 


4B 


1085 




LD 


CE 


;L0A0 LSB 


447 2 


CD2C44 


1090 




CALL 


BXASH 


;C0NVERT TO ASCII 


4475 


21DD3F 


1095 




LD 


HL.DSPEND 


;P0INT TO DISPLAY 


4478 


ED5B7F47 


1100 




LD 


DE.(END) 


;GET END 


447C 


4A 


1105 




LD 


CD 


-.LOAD MSB 


447 D 


CD2C44 


1110 




CALL 


BXASH 


;C0NVERT TO ASCII 


4480 


4B 


1115 




LD 


CE 


;LOAD LSB 


4481 


CD2C44 


1120 




CALL 


BXASH 


;C0NVERT TO ASCII 


4484 


C9 


1125 




RET 




;RETURN-COMPLETE 






1130 


% ****************************************************** 






1135 


;* CLPRMP ZAP PROMPT POSITION 






1140 


• f **** **************** ********************************** 


4485 


11C03D 


1150 


CLPRMP 


LD 


DE.DPROMP 


;GET LOCATION 


4488 


ED532040 1155 




LD 


(CURSOR), DE ; LOAD CURSOR 


448C 


21EA46 


1160 




LD 


HL, BLANK 


;P0INT TO TEXT 


448F 


CDA728 


1165 




CALL 


PRINT 


;DISPLAY 


449 2 


C9 


1170 




REV 




-, PROMPT CLEAR-RETURN 






1175 


• f ******************************** ********************** 






1180 


;* TEST 


>1AIN SUBROUTINE 


TEST MEMORY 






1185 


;****************************************************** 


4493 


3E02 


1195 


TEST 


LD 


A, 2 


;LOA0 SPACE KEY 


449 5 


328647 


1200 


NEX0.ME 


LD 


(CNTPOS).A 


;SAVE IT 


4498 


3EFF 


1205 




LD 


A.OFFH 


;LOAD A WITH FF 


449 A 


4F 


1210 


GETNEX 


LD 


C,A 


; STORE IN C 


449 B 


CD9D45 


1215 




CALL 


PHASEP 


;DISPLAY PHASE 


449 E 


CDB744 


1220 




CALL 


FILMEM 


; LOAO UP MEMCRY-ALL 


44A1 


C0C644 


1225 




CALL 


FILLOP 


;L0AD UP MEMORY-SCME 


44A4 


CDDB44 


1230 




CALL 


VERIFY 


;CHECK-OUT LCADS 


44A7 


79 


1235 




LD 


A,C 


;GET FILL BYTE 


44A8 


2F 


1240 




CPL 




;COPPLIMENT A 


44 A9 


B7 


1245 




OR 


A 


;IS IT ZERO? 


44AA 


28EE 


1250 




JR 


Z, GETNEX 


;YES-D0 NEXT PHASE 


44AC 


3A8647 


1255 




LD 


A,(CNTP0S) 


;GET SPACE 


44AF 


FE00 


1260 




CP 


00 


;ARE WE DONE? 


44B1 


CA0D45 


1265 




JP 


Z.CHKCNT 


;TEST DONE-IS PROGRAM? 


44B4 


3D 


1270 




DEC 


A 


; NO-DC NEXT SPACE 


44B5 


180E 


1275 




JR 


NE XONE 


CONTINUE 


44B7 


21DB3D 


1280 


FILMEM 


LD 


HL, OF LASH 


;GET LOCATION 


44BA 


3657 


1285 




LD 


(HD.57H 


;DISPLAY W 


44BC 


CDFC44 


1290 




CALL 


GETEXT 


;GET EXTENTS 


44BF 


71 


1295 


STUFF 


LD 


(HL).C 


; STUFF BYTE 


44C0 


C00245 


1300 




CALL 


CHKEND 


;IS MEMORY FULL 


44C3 


C8 


1305 




RET 


Z 


;IF Z THEN RETURN 


44C4 


18F9 


1310 




JR 


STUFF 


;KEEP STUFFING 


44C6 


CDFC44 


1315 


FILLOP 


CALL GETEXT 


;GET EXTENTS 


44C9 


47 


1320 




LD 


B,A 


;LOAD B WITH SPACE 


44CA 


FEOO 


1325 




CP 


00 


-.TEST ALL SPACES DCNE? 


44CC 


2005 


1330 




JR 


NZ.SPADWN 


;NO-SPACE DOWN 


44CE 


79 


1335 


STUFIT 


LD 


A,C 


;L0AD A 


44CF 


2F 


1340 




CPL 




-.COMPLIMENT A 

Program continues 
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44D0 


77 


1345 




LD 


(HLI.A 


;STUFF A 


44D1 


0603 


1350 




LO 


B,3 


;load SPACE 


44D3 


CD0245 


1355 


SPADUN 


CALL 


CHKEND 


;IS MEMORY FULL 


44D6 


C8 


1360 




RET 


Z 


;RETURN IF YES 


4407 


10FA 


1365 




DJNZ 


SPADWN 


;SPACE UNTIL RIGHT 


4409 


18F3 


1370 




JR 


STUFIT 


;D0 ANOTHER STUFF 


44DB 


21DB3D 


1375 


VERIFY 


LD 


HL.DFLASH 


;GET LOCATION 


44DE 


3652 


1380 




LD 


(HLJ.52H 


;DISPLAY R 


44E0 


CDFC44 


1385 




CALL 


GETEXT 


SGET EXTENTS 


44E3 


47 


1390 




LD 


B,A 


;LOAD SPACE 


44E4 


FEOO 


1395 




CP 


00 


;is SPACE 00? 


44E6 


2007 


1400 




JR 


NZ, VERFAL 


;CHECK MAJOR 


44E8 


79 


1405 


VERSOM 


LD 


A,C 


;LOAD A 


44E9 


2F 


1410 




CPL 




;COPPLIMENT A 


44EA 


BE 


1415 




CP 


<HL> 


;ARE THEY EQUAL? 


44EB 


0603 


1420 




LD 


B.3 


;LOAD SPACE 


44ED 


1802 


1425 




JR 


ERROUT 


;CHECK FOR ERROR 


44EF 


79 


1430 


VERFAL 


LD 


A,C 


;LOAD A 


44F0 


BE 


1435 




CP 


<HU 


;IS MEMORY CORRECT? 


44F1 


C42445 


1440 


ERROJT 


CALL 


NZ.FAIL 


; NO-GOT FAIL 


44F4 


CD0245 


1445 




CALL 


CHKEND 


;END OF MEMORY? 


44F7 


C8 


1450 




RET 


Z 


;YES, RETURN 


44F8 


10F5 


1455 




DJNZ 


VERFAL 


;CHECK MAJOR 


44FA 


18EC 


1460 




JR 


VERSOM 


;CHECK MINOR 


44FC 


2A7D47 


1465 


GETEXT 


LD 


HLt(START) 


;GET START 


44FF 


3A8647 


1470 




LD 


A.CCNTPOSI 


;GET SPACE 






1475 


;**************** ************ ********************* ******* 






1480 


i* CHKEND CHECK FOR END OF 


MEMORY EXTENT 






1485 


;******************************************************** 


4502 


E5 


1490 


CHKEND 


PUSH 


HL 


;SAVE HL ON STACK 


4503 


EB 


1495 




EX 


DE.HL 


;LOAD DE 


4504 


2A7F47 


1500 




LD 


HL,(£ND) 


;PUT END IN HL 


4507 


B7 


1505 




OR 


A 


;CLEAR FLAG 


4508 


ED52 


1510 




SBC 


HL.DE 


;ARE WE AT END CF MEMORY? 


450A 


El 


1515 




POP 


HL 


;GET HL BACK 


450B 


23 


1520 




INC 


HL 


; POINT 1 HIGHER IN CASE NOT 


450C 


C9 


1525 




RET 




;RETURN-IF Z THEN EXIT 
CALLER 






1530 


;******************************************************* 






1535 


;* CHKCNT 


CHECK ON PROGRAM 


REPETITIONS 






1540 


;******************************************************* 


450D 


2A8347 


1545 


CHKCNT 


<-P 


HL,(COUNTI 


;GET PROGRAM COUNT 


4510 


2B 


1550 




DEC 


HL 


;DEC. ONE FRCM COUNT 


4511 


228347 


1555 




LD 


<COUNT) ,HL 


; STORE NEW CCUNT 


4514 


CD4944 


1560 




CALL 


CNTDSP 


;DISPLAY NEW COUNT 


4517 


3E00 


1565 




LD 


A.O 


;ZAP 


4519 


BC 


1570 




CP 


H 


; IS MSB=0? 


451A 


C29344 


1575 




JP 


NZ.TEST 


; NO-DC ANOTHER TEST 


451D 


BO 


1580 




CP 


L 


;IS LSB=0? 


451E 


C29344 


1585 




JP 


NZ.TEST 


; NO-DO ANOTHER TEST 


4521 


C3D843 


1590 




JP 


PGDONE 


; YES-PROGRAM ABCUT CONE 






1595 


;****************************************************> 






1600 


;* FAIL 


BAD 


MEMORY BYTE HAS BEEN FOUND 






1605 


;****************************************************> 


4524 


C5 


1610 


FAIL 


PUSH 


BC 


;SAVE BC 


4525 


E5 


1615 




PUSH 


HL 


;SAVE HL 


4526 


E5 


1620 




PUSH 


HL 


; AGAIN 


4527 


C5 


1625 




PUSH 


BC 


;SAVE BC AGAIN 


4528 


E5 


1630 




PUSH 


HL 


;SAVE HL ONE MOPE TIME 


4529 


11C03C 


1635 




LD 


DE f DINFORM 


;GET LOCATION 


452C 


ED532040 


1640 




LD 


(CURSOR) ,DE 


;LOAD CURSOR 


4530 


213B47 


1645 




LD 


HL.TEXT14 


;POINT TO TEXT 


4533 


CDA728 


1650 




CALL 


PRINT 


;DISPLAY IT 


4536 


El 


1655 




POP 


HL 


;GET MEMORY LOCATICN 


4537 


4E 


1660 




LD 


C,(HU 


;load CONTENTS 


4538 


21C93C 


1665 




LD 


HL.DCONTS 


;POINT TO CRT 


453B 


CD2C44 


1670 




CALL 


BXASH 


;CONVERT TO ASCII AND 
DISPLAY 


453E 


CI 


1675 




POP 


BC 


;GET MAJOR BYTE 


453F 


21DD3C 


1680 




LD 


HL.DMABYT 


•.POINT TO CRT 


4542 


CD2C44 


1685 




CALL 


BXASH 


;CONVERT AND DISPLAY 


4545 


218547 


1690 




LD 


HL, ERROR 


;GET ADDRESS 


4548 


34 


1695 




INC 


(HL) 


;ADD 1 TO ERROR CCNTENTS 


4549 


C05B44 


1700 




CALL 


ERRDSP 


;DISPLAY EPRCRS 


454C 


CD8544 


1705 




CALL 


CLPRMP 


;ZAP PROMPT 


454F 


11C03D 


1710 




LD 


DE.DPROMP 


;GET LOCATION 


4552 


E0532040 


1715 




LD 


(CURSOR) ,DE 


;LOAD CURSOR 


4556 


21C446 


1720 




LD 


HL.TEXT11 


;POINT TO TEXT 


4559 


C0A728 


1725 




CALL 


PRINT 


;DISPLAY 


455C 


2A2040 


1730 




LD 


HL, (CURSOR) 


;GET READY 


455F 


Dl !. 


1735 




POP 


DE 


;GET BAD ADDRESS 


4560 


4A 


1740 




LD 


CD 


;LOAD MSB 


4561 


CD2C44 


1745 




CALL 


BXASH 


;CONVERT TO ASCII 


4564 


46 


1750 




LD 


C.E 


;LOAD LSB 


4565 


CD2C44 


1755 




CALL 


BXASH 


;CONVERT TO ASCII 


4568 


222040 


1760 




LD 


(CURSOR), HL 


;LOAD CURSOR 


456B 


21D746 


1765 




LD 


HL.TEXT12 


;POINT TO TEXT 


456E 


CDA728 


1770 




CALL 


PRINT 


;DISPLAY 


4571 


2A2040 


1775 




LD 


HL,(CJRSOR) 


;GET READY FCR INPUT 


4574 


CD0905 


1780 




CALL 


INPUTK 


;GET INPUT 


4577 


7E 


1785. 




LD 


A,(HL) 


;GET 1ST CHARACTER 


4578 


FE59 


1790 




CP 


59H 


;IS IT Y? 


457A 


C2D843 


1795 




JP 


NZ, PGDONE 


;NO-GET READY TC END 


457D 


C08544 


1800 




CALL 


CLPRMP 


;yes-clear PRCKFT 

Program continues 



If you're looking for 

the best prices 
in the U.S.A. on 




TRS-80 

MICROCOMPUTERS 

We have consistently offered the 
TRS-80 line at savings up to 20%, 
which means you can save $150 
to $1500 by buying directly from 
Computer Discount of America. 

TRS-80 Model II, 64K System, 
with disc drive only $3385.00 

Other TRS-80 Model II, or Model 
III computers and systems, Color 
Computers, and Pocket Computers 
are in stock at similar savings. 

Our savings are as big on expan- 
sion interfaces, printers, diskettes - 
everything for your TRS-80 System. 



ATARI 

MICROCOMPUTERS 




We have the full line of ATARI 
personal computers and systems, 
including Models 400 and 800. 
The computers, accessories, and 
hardware are brand new, in 
factory sealed cartons, and carry 
a full factory warranty. 
Most models are in stock for 
immediate delivery (usually 
within 7-10 days), and a price 
quote is as near as your phone. 
So if you're looking for the best 
prices in the U.S.A., for micro- 
computers and accessories, call 
Computer Discount of America, 
Inc., West Milford, New Jersey 
07480. 201-728-8080. NO TAX ON 
OUT-OF-STATE SHIPMENTS. 



TOLL FREE 800-526-5313 



Computer 



of America 



Authorized TRS-80 dealer, store B-282. 



sSee List of Advertisers on page 306 
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if He'd used select 
it wouldn't have taken seven days 

Learn SELECT* in just 90 minutes. A whole new word processing software 
concept that kicks the coded key habit and frees you from complicated instruction 
manuals. SELECT is fast. SELECT is logical. With single key mnemonics, you'll use 
dozens of commands that instantly access the rich capabilities of this system. There's 
nothing like it. 

Simply hit "C" and you'll be ready to Create a document. 

Key "I" and you'll be in the Insert mode. 

Key "M" and Move entire blocks of text . . . and key dozens more. 

That's all there is to it. You'll get all that word processing software promises . . . plus a 
few surprises. 

SELECT with SUPERSPELL.* The only microcomputer software with an integrated 
spelling dictionary. To proof your text all you do, of course, is to key "S". SUPERSPELL 
with its 10,000 word dictionary scans your text at computer speed then displays and 
corrects all your typing errors. You can increase SUPERSPELL's word power and 
customize the dictionary by adding new words, one at a time. Ask to see it today at 
your local dealer. 



SELECT with SUPERSPELI Just a little byte more. 



TM 



ect 



^50 



SELECT will run on any machine that uses CP/M or MPIM" or its derivatives, 
it needs 40K of RAM and two disk drives. Special version now available for 
Radio Shack Mod II*** and Apple II****. 

•SELECT and SUPERSPELL are trademarks of Select Information Systems Inc. 
**CP/M and MP/M are trademarks of Digital Research. 
***A trademark of Tandy Corp. 

J^JJ^J^S^S ^5 ^■^■kVk^fe. ' " ' " A trademark of Apple Computer Inc. 

^^m ^^W ^» ^V ^^ ^V ^V ^^B ^^% 

INFORMATION SYSTEMS 919 Sir Francis Drake Boulevard • Kentfield, California 94904 • (415) 459-4003 
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RAMTST 

I wrote a machine language program to 
test the RAM in my system. The name of my 
program is RAMTST. RAMTST (Listing 2 ) is 
a machine language program written with 
the help of the Radio Shack Editor/Assem- 
bler (EDTASM). With all the comments that 
are in the source of the program, you will 
need a system of at least 32K to assemble 
it. The advantage of using EDTASM would 
be that you could compile the program to 
use any address you want to execute from. 
If you do not have EDTASM or 32K RAM, you 
could use T-BUG to inset the code into 
RAM, which might be a big job, as RAMTST 
has 1182 bytes of object code to type in. 

The version of RAMTST I use is loaded in- 
to addresses 42E9H through 4787H. The 
program tests RAM locations 4788 to the 
top of memory. RAMTST is loaded like any 
other system tape, and loads in about 25 
seconds. Type / (enter) after the program 
has loaded to begin execution. 

RAMTST will first ask for the starting ad- 
dress of the location of RAM to be tested. If 
the location entered is below 4788 (hex), the 
program will respond with an error mes- 
sage. (The program will not allow you to kill 
it by writing over it in RAM.) If you respond 
with "*", the program will do an automatic 



"Large scale integration 
has revolutionized 

the design of 
computers. 



phase that will find the top of memory with- 
out your help, and go on to the third prompt. 
The second prompt asks for the end ad- 
dress of memory that you want tested. The 
third prompt asks for how many repetitions 
of RAMTST you want. You can enter up to 
65000 plus if you want, but it will take a 
while to execute. After all prompts are satis- 
fied, the program will begin execution. In a 
system of 32K RAM, one repetition of 
RAMTST will take about 40 seconds. 

What RAMTST Does 

RAMTST will process through six 
phases. We will take a look at each phase in 
turn. 

Phase one writes FF H into all bytes of 
RAM. It then writes 00 H into every third 
RAM byte (Table 1). The upper left-hand cor- 
ner of your screen will display the repeti- 
tions left to complete RAMTST. The right- 
hand corner will display the number of er- 
rors encountered. The middle of the screen 
will show that the program is running, as 
well as what the major byte is. 

In phase one, the major byte would be FF 
H and the minor byte would be OO H. The 
program will also display what phase is cur- 
rently processing, as well as whether it is 
writing out data or whether it is verifying 
data displayed as W for write and R for read 



4580 


11C03C 


1805 




LD DE.DINFOM ;P0INT TO CRT 


4583 


ED532040 


1810 




LD (CURSOR*, OE ; LOAD CURSOR 


4587 


21EA46 


1815 




LD HL, BLANK ;P0INT TO BLANK 


458A 


CDA728 


1820 




CALL PRINT ;DISPLAY 


4580 


11C03D 


1825 




LD DE.DPROMP ;GET LOCATION 


4590 


E0532040 


1830 




LD (CURSOR), DE ;L0AD CURSOR 


4594 


219146 


1835 




LD HL.TEXT9 ;P0INT TO TEXT 


4597 


C0A728 


1840 




CALL PRINT ;DISPLAY 


459A 


El 


1845 




POP HL ;GET ADDRESS 


459B 


CI 


1850 




POP BC ;GET BYTE 


459C 


C9 


1855 




RET ;ERR0R DISPLAYED RETURN 






1860 


J***-?************** **************************** ******** 






1865 


; PHASEP 


DISPLAY CURRENT PROGRAM PHASE 






1870 


;****************************************#************* 


4590 


C5 


1885 


PHASEP 


PUSH BC ;SAVE BC ON STACK 


459E 


C5 


1890 




PUSH BC ;AGAIN 


459F 


218747 


1895 




LD HL, PHASE ;GET PHASE AODRESS 


45A2 


34 


1900 




INC (HL) ;ADD 1 TO PHASE 


45A3 


7E 


1905 




LD A,(HL) ;PUT PHASE INTO A 


45A4 


FE07 


1910 




CP 7 ;IS IT = TO 7? 


45A6 


2002 


1915 




JR NZ.PHASEDP ;NO-DISPLAY IT 


45A8 


3601 


1920 




LD (HLI.l ;RESET TO I IF YES 


45AA 


11953C 


1925 


PHASOP 


LD DE,DPHASE ;GET LOCATION 


45A0 


ED532040 


1930 




LD (CURSOR), DE ; LOAD CURSOR 


45B1 


212647 


1935 




LD HL.TEXT13 ;P0INT TO TEXT 


45B4 


CDA728 


1940 




CALL PRINT ;DISPLAY IT 


4567 


218747 


1945 




LD HL, PHASE ;P0INT TO PHASE 


45BA 


4E 


1950 




LD C,(HL) ;L0AD PHASE INTO C 


45BB 


219B3C 


1955 




LD HL.DPHASD ;P0INT TO CRT 


45BE 


C02C44 


1960 




CALL BXASH ;C0NVERT TO ASCII AND OSP 


45CI 


CI 


1965 




POP BC ;GET BACK BYTE 


45C2 


21A93C 


1970 




LD HL.DMAJBT 5P0INT TO CRT 


45C5 


CD2C44 


1975 




CALL BXASH ;C0NVERT AND DISPLAY 


45C8 


CI 


1980 




POP BC ;GET BYTE 


45C9 


C9 


1985 
1990 




RET ;RETURN-PHASE DISPLAYED 






1995 


;***#************************************************** 






2000 


;* TEXTS AND STOREAGE LOCATIIONS 






2005 


;************************ *************** *************** 






2010 


5 




45CA 


52414D20 


2015 


TEXT1 


DEFM 'RAM TEST' 


45CE 


5445 53 54 








4502 


00 


2020 




DEFB 00H 


4503 


42592052 


2025 


TEXT2 


DEFM 'BY ROBERT D. RANDALL AUG. 31, 1980' 


45D7 


4F424552 








45DB 


5420442E 








45DF 


2052414E 








45E3 


44414C4C 








45E7 


20202041 








45EB 


55472E33 








45EF 


312C2031 








45F3 


393830 








45F6 


00 


2030 




DEFB 00H 


45F7 


454E5445 


2035 


TEXT3 


DEFM 'ENTER »,0R STARTING ADDRESS (XXXXH) • 


45FB 


5220202A 








45FF 


202C4F52 








4603 


20535441 








4607 


5254494E 








460B 


47204144 








460F 


44524553 








4613 


53202858 








4617 


58585848 








461B 


2920 








4610 


00 


2040 




DEFB 00H 


461E 


454E5445 


2045 


TEXT4 


DEFM 'ENTER ENDING ADDRESS ( XXXXH I • 


4622 


5220454E 








4626 


44494E47 








462A 


20414444 








462E 


52455353 








4632 


20285858 








4636 


58584829 








463A 


20 








463B 


00 


2050 




DEFB 00H 


463C 


454E5445 


2055 


TEXT5 


DEFM 'ENTER REPETITIONS OF TEST (XXXXH) • 


4640 


52205245 








4644 


50455449 








4648 


54494F4E 








464C 


53204F46 








4650 


20544553 








4654 


542028 58 








4658 


58585848 








465C 


2920 








465E 


00 


2060 




OEFB 00H 


465F 


434F554E 


2065 


TEXT6 


DEFM «C0UNT=« 


466 3 


5430 








4665 


00 


2070 




DEFB 00H 


466 6 


4552524F 


2075 


TEXT7 


DEFM «ERR0RS=' 


466A 


525330 








4660 


00 


2080 




DEFB 00H 


466E 


5445 5354 


208 5 


TEXT3 


DEFM 'TESTING LOCATIONS= H THRU H* 


4672 


494E4720 








4676 


4C4F4341 








467A 


54494F4E 








467E 


53302020 








4682 


20204820 






Program continues 
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or verify. At the bottom of the display, the 
program will display the area of RAM being 
tested. This area will be the one that was 
entered through prompts from the program 
or the address that was located by the auto 
function of RAMTST. 

If an error should be encountered, a dis- 
play will show you the location where the er- 
ror occurred, as well as what the contents 
of the byte are and what the contents 
should have been. You will then be prompted 
as to whether you want to continue with the 
test or end RAMTST and return to BASIC 
mode. If you wish to continue testing, the 
error counter will update itself to show the 
error. 

If every byte checks out in phase one, the 
program will switch the major and minor 
byte and fill all locations as in phase one. 
This will be phase two. 

In phase three, the major byte becomes 
FF H and the minor bytes becomes 00 H. 
/ II core positions are loaded with the major 
byte, but this time the first minor byte will 
be loaded one byte sooner than in phase 
one (Table 1). Every third byte is then loaded 
in turn with the minor byte, as before. 

Phase four switches the major and minor 
bytes and loads as in phase three. See 
Table 1 for what happens in phases five and 
six. 

If an error is found and you decide not to 
continue with the test and respond NO to 
the prompt, you will return to BASIC mode. 
If you wish to return to RAMTST, from 
BASIC, you may do so by typing SYSTEM 
and / (enter). Caution: this will only work if 
you have not disturbed RAMTST in memory. 
If RAMTST has found a bad location in 
memory, you must find out which one of the 
RAM chips is at fault. 

In the TRS-80, each bit in a byte will be 
found in one RAM chip. The most signifi- 
cant four bits of a byte are in RAM chips 
Z13, Z14, Z20, and Z15, and RAM chips Z19, 
Z18, Z16, and Z17 contain the least signifi- 
cant four bits. As an example, assume that 
byte 32781 contains A3 H or 10100011 
binary. At location 32781 of each of the 
eight RAM chips, the bit would be as 
follows: Z13 would be a one, Z14 would be a 
zero, Z20 would be a one, and Z15 would be 
a zero. Of the least significant four bits, Z19 
and Z18 would have a zero, and Z16 and Z17 
would both have a one at the position. 

Knowing where there is a possible RAM 
problem and how the RAM chips store data, 
it should not be much of a problem discov- 
ering which of the RAM chips is at fault. You 
can use a program such as Listing 3 to find 
any stuck bits. 

Listing 3 will display what it was trying to 
write and what the byte contains. From this 
you should be able to determine the bit at 
fault. In other words, if the program was try- 
ing to write 04 H (00000100 B) and the byte 
contained OO H (00000000 B), this would 
point to RAM chip Z18. Substituting a good 
RAM chip at this socket and running the 
program again without errors, will assure 
you theat you have found the bad RAM 
chip.B 



4686 


54485255 








468A 


20202020 








468E 


2048 








4690 


00 


2090 


DEFB 00H 




4691 


52414D20 


2095 TEXT? 


DEFM "RAM TEST IS NOW EXECUTING' 




469 5 


54455354 








4699 


20495320 








469D 


4E4F5720 








46A1 


45584543 




. 




46A5 


5.554494E 








46A9 


47 








46AA 


00 


2100 


DEFB 00H 




46AB 


52414D20 


2105 TEXT10 


DEFM 'RAM TEST IS NOW COMPLETE' 




46AF 


54455354 








46BE 


20495320 








46B7 


4E4F5720 








46BB 


434F4050 








46BF 


4C455445 








46BF 


4C45 5445 








46CB 


00 


2110 


DEFB OOH, 




46C4 


2B455252 


2115 TEXT11 


DEFM '+ERR0R+ L0CATI0N=' 




46CB 


4F522B20 








46CC 


4C4F4341 








4600 


54494F4E 








4604 


3D22 








4606 


00 


2120 


DEFB 00H 




4607 


48202843 


2125 TEXT12 


DEFM 'H (CONTINUE? Y-NI • 




460B 


4F4E5449 








46DF 


4E55453F 








46E3 


20592D4E 








46E7 


2920 








46E9 


00 


2130 


DEFB OOH 




46EA 


20202020 


2135 BLANK 


DEFM • 




46EF 


20202020 








46F3 


20202020 








46F4 


20202020 








46F8 


20202020 








46FG 


20202020 








4700 


20202020 








4704 


20202020 








4708 


20202020 








470C 


20202020 








4710 


20202020 








4714 


20202020 








4718 


20202020 








471C 


20202020 








4720 


20202020 








4724 


20 








4725 


00 


2140 


DEFB OOH 




4726 


50484153 


2145 TEXT13 


DEFM 'PHASE= MAJOR BYTE=' 




472A 


45302020 








472E 


204D414A 








4732 


4F522042 








4736 


59544530 








473A 


00 


2150 


DEFB OOH 




473B 


434F4E54 


2155 TEXT14 


DEFM «C0NTENTS= SHOULD HAVE 8EEN= 




473F 


454E5453 








4743 


3D202020 








4747 


53484F55 








474B 


4C442048 








474F 


41564520 








4753 


4245454E 








4757 


30 








4758 


00 


2160 


DEFB OOH 




4759 


2A434155 


2165 TEXT15 


DEFM '*CAUTI0N* ADDRESS TOO LOW, RE- 


INPUT' 


4750 


54494F4E 








4761 


2A204144 








4765 


44524553 








4769 


5320544F 








4760 


4F204C4F 








4771 


572C2052 








4775 


452D494E 








4779 


505554 








477C 


00 


2170 


OEFB OOH 




4770 


0000 


2175 START 


OEFW 0000H 




477F 


0000 


2180 END 


DEFW 0000H 




4781 


8847 


2185 AUTOLO 


DEFW 4788H 




4783 


0000 


2190 COUNT 


DEFW 0000H 




4785 


00 


2195 ERROR 


OEFB OOH 




4786 


00 


2200 CNTP3S 


DEFB OOH 




4787 


00 


2205 PHASc 


DEFB OOH 




42E9 




2210 END 


42E9H 




0000 


TOTAL ERRORS 







Listing 3. 

1 CLS:INPUT"ENTER RAM ADDRESS(XXXXXD(";L:D = • 

5 POKE L,0:IF PEAK(LK>0 THEN PRINT"BYTE";L;"WON'T CLEAR TO ZERO, IT CONTAINS";PEAK(L):STOP 

10 FOR X = TO 8:POKE L,D:IF PEAK(L) D THEN 20 

15 D = D*2:IF D>128 THEN PRINT'TEST COMPLETE, NO ERRORS":STOP:ELSE NEXT X 

20 PRINT-ERROR AT";L;" SHOULD'VE CONTAIN ED";D;" BUT IT CONTAINED";PEEK(L);"INSTEAD":STOP 
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FMG CORPORATION NOW CARRIES GRAHAM-DORIAN & PEACHTREE SOFTWARE 



SfflPD 



(T) 



M-530 BbHI ' 




ifpN P.O. Box 16020 

Fort Worth, Texas 

76133 

-n (817)294-2510 



» 



iducts Include All Ne 



NEW 

VERSATILITY 

For Your TRS-80 




CONTROL PROGRAM 
FOR MICROCOMPUTERS 
ENABLING YOU TO RUN 
SOFTWARE PUBLISHED 
FOR CP/M 1.4 ON THE 
TRS-80 
CP.'M is considered the industry stand- 
ard disk operating system because it 
gives you the hardware-independent 
interface you need to make your com- 
puter work for you. CP/M 2.0 is the 
latest in the evolution of a proven relia- 
ble and efficient software system. FMG 
CORPORATION NOW OFFERS THE 
CP/M 2.0 FOR THE TRS-80. 
It features an enhanced upward com- 
patible file system and powerful new 
random access capabilities. The CP-M 
2.0 from FMG provides the ability to 
run software published for the CP. M 
system, on the TRS-80 Model II. From 
minidisks, floppy disks, all the way to 
high-capacity hard disks, the flexibility 
of CP/M 2.0 makes it a truly universal 
operating system. The package in- 
cludes an 8" system disk, editor, as- 
sembler and debugger for the TRS-80 
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nwmi 

MUlTl-PKOGfUMMING MONITOR 

NEW INDUSTRY 
STANDARD 

A deluxe operating system that 
provides big computer facilities at 
small computer prices. MP/M is a 
monitor program which operates 
with your microcomputer to provide 
multi-terminal access with multi- 
programming at each terminal. 
Best of all, it's CP/M compatible 
which means you can run a wide 
variety or programming languages, 
applications packages, and devel- 
opment software. 

You can run simultaneous edi- 
tors, program translators, and 
background printer spoolers. Or 
you can use MP/M for data entry or 
data-base access from remote ter- 
minals. Or you can use MP/M real- 
time features to monitor an assem- 
bly line and automatically schedule 
programs for execution throughout 
the day. MP/M makes an excellent 
focal point for a cluster of con- 
nected microcomputers. The pos- 
sibilities are limitless. 



•CP/M and MP/M are trademarks of Digital Res 
Z10 is a trademark ol Ziiog, Inc. 
TRS-80 is a trademark ol Tandy Corp. 
Pascal'M is a trademark ot Sorcim. 
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MICROPRO INTERNATIONAL manu»i 
SUPER-SORT I - Sort, merge, extracl utility j 
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8", Rings 
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HEAD CLEANING DISKETTE-Cleans the drive I 
Write head in 30 seconds Diskette absorbs 
oxide particles, fingerprinis, and other foreign 
cles that might hinder the performance of the 
head Lasts at least 3 months with daily use. 
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DESPOOL— Allows flexibility and efficiency. 
(Disk file printing can be accomplished while 

simultaneously using the computer for other 
tasks) Slower printers do not tie up the com- 
puter. Requires 32K minimum S75/S10 

• SCREEN EDIT — Text editor for program en- 
try — allows user the ability to see entries as 
they are being made. Has command which en- 
ables user to move the viewed position of the 
file anywhere within the current data file OR 
add information anywhere in the file. Requires 

16K minimum S125/S2S 

(Also available in TRS DOS format. 
Specify model or TRS-80) 

• MAC — Disk-based, powerful macro assem- 
bler utilizes Standard Intel Mnemonics. In- 
cludes macro processor. 

The CP-M 8080 Macro Assemble 
sembly language statement from 
file and produces an Intel "HEX" fo 
file on the disk suitable for proces 
TRS CP M environment. Requires 

mum and CP.'M 

•ZSID — Efficient and reliable progi 
system for 280 microcomputers. Capabilitie 
include traceback and histogram facilities. Al- 
lows real time break points. 
ZSID is a symbolic debugger which expands 
upon the features of the TRS-CP M standard de- 
bugger, providing greatly enhanced facilities 
for assembly language program check-out. Re- 
quires 32K minimum and CP M $99/S25 

OMAIL LIST — Mailing list maintenance package. 
No sorting required to print normal address la- 
bels in zip code sequence. Supports new larger 
m zip code. Sorts and selects on multiple fields. 
»*' Labels may be printed in user selectable for- 
mats. Includes sort and select utilities S300/S35 
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a diskette 
-nat object 
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32K mini- 

$100/$25 
testing 



FMG's LIBRARY: 



PEACHTREE SOFTWARE SYSTEMS 

GENERAL LEDGER - Records details of all 1 
transactions Generates a balance sheet and an in- 
come statement. Flexible and adaptable design for 
both small businesses and firms performing client 
writeup services. Produces reports as follows: Trial 
Balance. Transaction Registers, Balance Sheet. Prior 
Year Comparative Balance Sheet. Income Statement. 
Prior Year Comparative Income Statement and De- 
partment Income Statements. Interactive with other 
PEACHTREE accounting packages. Supplied in 

source code lor Microsoft BASIC $990/$30 

d aged 
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orporates a check 
Maintains a complete vendor file will 
purchase orders and discount terms i 
account status. Produces reports a 
Voucher Report. Accounts Payable A 
Cash Requirements. Provides input 
General Ledger Supplied in source 
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ging Report and 
to PEACHTREE 
code for Micro- 
$990,530 
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kable module i 

ft formal. Sons fixed or variable records with data 
in binary, SCO. Packed Decimal, EBCDIC. ASCII, 
floating & fixed pomt, exponential, field justified, etc. 
Even variable number of fields per record! $225;$25 
SUPER-SORT II -Above available as absoluto pro- 
gram only $175/$25 

SUPER-SORT III -As II without SELECT-EXCLUDE 

$125/$25 

WORD-STAR - Menu driven visual word processing 
system for use with standard terminals. Text format- 
ting performed on screen. Facilities for text paginate, 
page number, justify, center and underscore. User 
can print one document while simultaneously editing 
a second. Edit facilities include global search and 
replace Read'Wrile to otner text files, block move, 
etc. Reouires CRT terminal with addressable cu'sor 

positioning $495<$40 

WORD-STAR Customization Notes - For sophisticated 
users who do not have one of the many standard 
terminal or printer configurations in the distribution 
version of WORD-STAR NA/$95 

WORD-MASTER Text Editor - In one mode has super- 
set of CP.-'M's EO commands including global search- 
ing and replacing, forwards and backwards in file in 
video mode, provides full screen editor for users with 
serial addressable-cursor terminal S150/S25 



FLOPPY SAVER - Protection for center holes ol 5" 
and 8" floppy disks. Only l needed per diskette. Kit 
contains centering post, pressure tool and tough 
7 mil mylar reinforcing rings for 25 diskettes. 

5". Kit 

5". Rings only 



m PAYROLL - Prepa 
commissioned *mi 
terly and 



$14.95 

$7.95 
$16.95 
$8.95 



! regis- 
nplete monthly statements. Tracks current 
and aged receivables. Maintains customer file includ- 
ing credil information and account status. The cur- 
rent status of any customer account is instantly avail- 
able. Produces reports as follows: Aged Accounts 
Receivable. Invoice Register, Payment and Adjust- 
ment Register and Customer Account Status Report. 
Provides input to PEACHTREE General Ledger. Sup- 
plied in source code for Microsoft BASIC . $990/$30 
payroll for hourly, salaried an3 
ployees. Generates monthly, quar- 
annual returns. Prepares employee W-2's. 
inciuaes tables for federal withholding and RCA as 
well as withholding for all 50 states plus up to 20 
cities from pre -computed or user generated tables. 
Will print checks', Payroll Register, Monthly Summary 
and Unemployment Tax Report. Provides input to 
PEACHTREE General Ledger. Supplied in source 
code for Microso'l BASIC $990/$30 



tion, unit of measure, vendor and reorder data, 
activity and complete information on current item 
costs, pricing and sales. Produces reports as follows: 
Physical Inventory Worksheet, Inventory Price List. 
Departmental Summary Report. Inventory Status Re- 
port, The Reorder Report and the Poriod-to-Date and 
Year-to-Date reports. Supplied in source code for 
Microsoft BASIC $1,190/$30 

m MAILING ADDRESS - Keeps track of name and ad- 
dress information and allows the selective printing of 
this information in the form of mailing lists or ad- 
dress labels. Allows the user to tailor the system to 
his own particular requirements. User-defmed for- 
mal and print-out system lsos a special format file 
which tells programs how to print the mailing list or 
address labels. Standard format files are included 
with system. Automatic sorting ol data uses indexed 
file management routines which allow the name and 
address information to be sequenliaily retrieved and 
printed without file sorting. Supplied in source code 
for Microsoft BASIC $790/$30 

^^ • GRAHAM-DORIAN SOFTWARE SYSTEMS 

L* GENERAL LEDGER - An on-line System; no batch- 
ing is required. Entries to other GRAHAM-DORIAN 
(T) accounting packages are automatically posted. User 
1 'establishes customized C.O.A. Provides transaction 
register, record of journal entries, trial balances and 
monthly closings. Keeps 14 month history and pro- 
vides comparison of current year with previous year. 
Requires CBASIC-2 Supplied in source . $995/$35 

m ACCOUNTS PAYABLE - Maintains vendor lis! and 
check register. Performs cash flow analysis. Flexible 
— writes checks lo specific vendor for certain 
voices or can make partial payments. Automatic 
posts to GRAHAM-DORIAN General Ledger or runs as 
stand alone system. Requires CBASIC?. Supplied in 
source $995/535 



MICROSOFT PRODUCTS 

BASIC-BO- Disk Extended BASIC. ANSI compatible 
In long variable names, WHILE/WEND, chaining. 

triable length file records $350'$25 

BASIC COMPILER - Language compatible with 
BASIC-80 and 3-10 times faster execution. Produces 
standard Microsoft relocatable binary output. In- 
cludes MACRO-80. Also linkable to FORTRAN-80 or 

COBOL-80 code modules $395/525 

FORTRAN-80 - ANSI 66 (except for COMPLEX) plus 
many extensions. Includes relocatable object com- 
piler, linking loader, library with manager. Also in- 
cludes MACRO-80 (see below) S500/$25 

COBOL-80 - Level 1 ANSI '74 standard COBOL plus 
most of Level 2. Full sequential, relative, and in- 
dexed file support with variable file names. STRING. 
UNSTRING. COMPUTE. VARYING/UNTIL, EXTEND. 
CALL. COPY. SEARCH. 3-dimensional arrays, com- 
pound and abbreviated conditions, nested IF. Power- 
ful interactive screen-handling extensions. Includes 
compatible assembler, linking loader, and relocat- 
able library manager as described under MACRO-80 

S750/S25 

MACRO-80 • 8080/Z80 Macro Assembler. Intel and 
Ziiog mnemonics supported Relocatable linkable 
output. Loader, Library Manager and Cross Refer- 
ence List utilities included S150S25 

_- XMACRO-86 - 8086 cross assembler. All Macro and 

(»/ utility features of MACRO-80 package. Mnemonics 

Slightly modified from Infel ASM86 Compatibility data 

sheet available $300/$25 
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ords invoices. Provides complete information describ- 
ing customer payment activity. Receipts can bo 
posted to different ledger accounts Entries auto- 
matically update GRAHAfv'-DOPiAN General Ledger 
or runs as stand alone system. Requires CBASIC-2 
Supplied tn source $995/$35 

m PAYROLL SYSTEM - Maintains employee master file. 
Computes payroll withholding lor FlCA. Federal and 
State taxes. Prints payroll register, checks, quarterly 
reports and W-2 forms. Can generate ad hoc reports 
and employee form letters with mail labels. Requires 
CBASlC-2. Supplied in source $590/$35 



achon information may be entered for reporting by 
salesman, type of sale, date of sale, etc Reports 
available both for accounting and decision making. 
Requires CBASIC-2 Supplied in source . .$590/$35 
jned for 
ely with othe'r GRAHAM-DORIAN 
accounlmg packages for tracking and analysing ex- 
penses User establishes customized cosl categories 
and job phases Permits comparison of actual versus 
estimated costs Automalically updates GRAHAM- 
DORIAN General Ledger or runs as stand alone sys- 
tem. Requires CBASIC-2 Supplied in source $995/$35 
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PASCAL/M* - Compiler generates P code from ex- 
tended language, implementation of standard PAS- 
CAL. Supports overlay structure through additional 
procedure calls and the SEGMENT procedure type. 
Provides convenient string handling capability with 
the added variable type STRING. Untyped files allow 
memory image I/O. Requires 56K CP/M . . . $150/$20 
PASCAL/Z - Z80 native code PASCAL compiler. Pro- 
duces optimized. ROMable re-entrant code. All inter- 
facing to CP/M is through -he support library. The 
package includes compiler. Microsoft Compatible re- 
locating assembler and linker, and source for all 
library modules. Variant records, strings and direct 
I/O are supported. Requires S6K CP.'M and Z80 CPU. 

$395/$25 

PASCAL/MT - Subset of standard PASCAL. Gener- 
ates ROMable 8080 machine code. Symbolic debug- 
ger included Supports, interrupt procedures. CP/M 
file I/O and assembly language interface. Real vari- 
ables can be BCD, software floating point, or AMD 
9511 hardware floating point. Version 3 includes 
Enumeration and Record data types. Manual explains 
BASIC to PASCAL conversion. Source for the run- 
time package requires Digital Research's MAC Re- 
quires 32K $250/$30 

CBASIC-2 Disk Extended BASIC- Non-interactive 
BASIC with pseudo-code compiler and run-time in- 
terpreter. Supports full file control, chaining, inteqer 
and extended precision variables, etc $110/515 



BSTAM Utility to link one computer to another also 
equipped with BSTAM. Allows file transfers at full 
data speed {no conversion to hex), with CRC block 
control check 'or very reliable error detection and 
automatic retry. We use it! It's great! Full wildcard 
expansion to send * COM etc 9600 baud with wire. 
300 baud with p-ione connection. Both ends need 
one. Standard and (tf versions can talk to one another. 

$150/$5 

SELECTOR III-C2 - Data Base Processor to create 
and maintain multi Key data bases. Prints formatted 
sorted reports with numerical summaries or mailing 
labels. Comes with sample applications, including 
Sales Activity, Inventory, Payables, Receivables, 
Check Register, and CHent'Patient Appointments, etc. 
Requires CBASIC-2. Supplied in source $349/520 
GLECTOR - General Ledger option to SELECTOR 
III-C2. tnleractive system provides for customized 
COA Unique chart o' transaction types insure proper 
double entry bookkeeping Generates balance sheets, 
P&L statements and journals. Two year record allows 
for statement ol changes in financial position report. 
Supplied in source Requires SELECTOR III-C2. 
CBASIC-2 and 52K system $250/$25 

TEXTWRlTER III - Text formatter to justify and pagi- 
nate letters and other documents Special features 
include insertion of text during execution from other 
disk files or console, permitting recipe documents 
to be crealed from linked fragments on other files. 
Has facilities for sorted tndex. table ol contents and 
footnote insertions. Idea' for contracts, manuals, etc. 
Now,compatible with Electric Pencil' prepared files. 
$125/$20 
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FORMATS AVAILABLE: 

(A) TRS-80 Model I (M) Keys Only 
ORDERS MUST (B) TRS-80 Model II 
SPECIFY DISK (C) TRS-80 Model III (M) Keys Only 
SYSTEMS AND (D) HEATHKIT H89 (M) Keys Only 
FORMATS: (E) NORTH STAR 

(F) SUPER BRAIN QD 

(G) STANDARD UNIMPLEMENTED 



software 

lveys a 



Prices F.O.B. 
Fort Worth. Tex. 
Shipping, hand- 
ling and CO. D. 
charges extra. 
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PASCAL USER MANUAL & REPORT 
(2nd) Edition by K. Jensen and N. Wirth 
• Tutorial Manual and Concise Relerence Report lor Both Pro- 
grammers and Implementors 
■ Includes Helpful Examples lo Demonstrate the Various Fea- 
tures ol PASCAL 

The book consists ol two pans the user manual and the revised 
report The manual is directed lo those who have some familiarity 
with computer programming and who wish to get acquainted with 
the PASCAL language The report detines standard PASCAL, 
which constitutes a common base between various implementa- 
tions of the language 



PASCAL PRIMER Problem Solving 

This book has three major goals: 

• To Introduce all aspects ot the programming and problem 
solving process (includes problem specification and organi- 
zation, algorithms, coding, debugging, testing, documenta- 



lion 



alnte 



I high 



- To teach good programming style and how lo produ 

quality finished product: and 
• To teach the syntax ol the PASCAL programming language. 

Numerous examples are employed throughout the text PAS- 
CAL is used as a vehicle to teach various aspects ot programming 
techniques 



Microcomputer Problem Solving Using Pascal 

by Kenneth L. Bowles 

■ A Book Designed lor Both College Courses AND Individual 
Sell-Study 

■ Ideal lor use wllh UCSD Pascal 

• Includes Extensions lo Standard PASCAL 

This book is designed both lor intioduclory courses in com- 
puter problem solving at the freshman and sophomore college 
tevet. and lor individual sell-study. II includes many examples and 
actually executable programs It includes information on the nec- 
essary tuncnons and procedures lor handling graphics and 
strings. 

Slock No. Price 

#B22 S14.95 

BEGINNER'S MANUAL FOR UCSD PASCAL 
SYSTEM 

• An Enlightening Introduction to UCSD PASCAL 

• Demonstrales How to Use the UCSD PASCAL System and How 
to Program in PASCAL 

■ Includes Many Practical Examples ol PASCAL Programs 

This book is intended to De used as an introduction and refer- 
ence manual lor people jusi beginning to use the UCSD Pascal 
Software System Whether you have never used a computer be- 
fore or whether you arc an experienced programmer who is unfa- 
miliar with UCSD PASCAL, this book will provide a relatively easy 
yet thorough, introduction to UCSD PASCAL. 



PROGRAMING IN PASCAL 

by Peter Grogono 

• An Excellent Introduction to One ot the Fastest Growing Pro- 
gramming Languages Today 

• Sections on Procedures and Files PLUS a Chapter on Dynamic 
Data Structures such as Trees and Linked Lisls 

The text is arranged as a tutorial, containing both examples and 
exercises to increase readei proficiency in PASCAL Concepts are 
illustrated by examples, ranging trom the Tower ot Hanoi problem 
to circumscribing a Circle about a tnangie. PROGRAMMING IN 
PASCAL is sure to hold the reader's interest 



UCSD Reference 

• A Relerence Guide lo 
UCSD PASCAL Syslen 

• Includes Inlormalion i 
Basic. Assembler and 

• Lisls Actual P-Machin 



in Compiler 
Editor 
! Codes 



This relerence book 
through information i 
read manual provides fast access to pertinent data. 



valuable and time-saving guide to 
the UCSD PASCAL system The easy-to- 
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REVIEW 



A BASIC to FORTRAN conversion utility of limited effectiveness. 



FORTRANslator 



FORTRANslator 
The Management 
Aledo, TX 
$29.95 

Richard C. McGarvey 
221 Hirschfield Drive 
Williamsville, NY 14221 



I am going to break some writing rules and 
start this review with a warning rather 
than a catchy introduction: If you are not a 
capable FORTRAN programmer or at least 
a very dedicated learner, skip this article 
and the FORTRANslator utility. However, if 
you are a dedicated learner with a good sup- 
ply of FORTRAN manuals and a good print- 
er you might be interested. 

The reason for this warning is that the 
FORTRANslator utility, despite what you 
might expect, does not really translate BA- 
SIC to FORTRAN. In fact, the resulting 
translation is totally useless to a program- 
mer without a good FORTRAN vocabulary. 

I read about the FORTRANslator utility in 
the New Products section of 80 Microcom- 
puting, and it sounded too good to be true. 
The description promised that a program 
could be written and debugged in BASIC 
and then translated to FORTRAN. Most of 
my programs are written in BASIC, and I 
wanted to learn how to rewrite them in FOR- 
TRAN, but the work involved was prohibi- 
tive. It seemed as though FORTRANslator 
would be the answer. 

The program consists of one disk with 
the BATRAN/CMD program and one page of 
documentation. I rushed to the computer, 
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whipped out some short BASIC programs 
and started to work. 

The Small Problems 

I always expect problems with new pro- 
grams and I was not disappointed this time. 
It appeared that the one page letter includ- 
ed all the instructions I needed to operate 
the program. It also contained a list of what 
the translator did and did not do. It was cer- 
tainly straight-forward. 

The first step is to save the BASIC pro- 
gram in ASCII format (SAVE"TEST/BAS" 
,A). Then go to DOS, run BATRAN/CMD and 
answer the questions that the translator 
asks. They are: SAVE ON DISK?— if YES— 



00100 c 


Convert Fahrenheit to Centigrade 


00200 


Integer F 


00300 


Write(5,5) 


00400 5 


Format(33H Fahrenheit Centigrade) 


00500 


DO 20 F = 20,65,5 


00600 


C = 5./9."(F-32) 


00700 


Write(5,10)F,C 


00800 10 


Format(12X,l2,11X,F6.3) 


00900 20 


Continue 


01000 


End 




Figure 1. 



10 REM CONVERT FAHRENHEIT TO CENTIGRADE 

20 DEFINTF 

30 PRINTTAB(5)"FAHRENHEIT CENTIGRADE 

40 FORF = 20T065STEPS 

50 C = (5/9).(F-32) 

60 PRINTTAB(8)F;" ";C 

70 NEXTF 

80 END 

Figure 2. Basic Version 



ENTER FILESPEC. PRINTER ON LINE?— 
an answer of YES, produces a hard copy of 
the translation. From this point on the 
translator takes over and each ASCII line is 
supposed to be evaluated and placed into 
FORTRAN format. The result should be 
close to FORTRAN, but here is where the 
problems start. 

The instructions indicate what kinds of 
problems may be encountered, however, 
they give no suggestions as to how to solve 
them. Of course, if you don't know FOR- 
TRAN already, there is no chance in hell 
that you will be able to solve them. If the 
author of the translator utility had taken the 
time to work out the more common prob- 
lems, (such as string handling) and include 
the solutions as examples, the beginner 
might have a chance. It also would have 
helped if the documentation described 
what you could expect as a result of transla- 
tion. 

So, documentation is a problem which 
wouldn't be too bad if that was all, but it's 
not. There are problems with the printer out- 
put. The resulting translation requires ex- 
tensive editing and a line printer is a must. 
There was a warning to that effect in the 80 
ad as well as in the documentation. They 
aren't kidding. FORTRAN is longer than BA- 
SIC and much more particular about the for- 
mat of instruction lines. A printout on which 
you can edit before you actually edit the 
program is indispensable. 

The printout procedure has some flaws. 
The first part of the printout is a cross refer- 
ence of BASIC calls that will have to be al- 
tered. It is helpful, but when there is no out- 
put the heading is printed and a whole page 
is wasted. 

The second page is a printout of the ar- 
rays used, broken down by GOTO array and 



subroutine arrays. This is also necessary 
since FORTRAN does not use subroutines 
as BASIC does, and they must all be moved 
to the end of the FORTRAN program. Again, 
when there is a short list or no list, the page 
is headed and wasted. 

The third part of the printout is the FOR- 
TRAN program. It is neat and clean and 
there is plenty of room in which to write edit- 
ing notes. There is no problem here— at 
least, there is no problem with the 
printout. However, the content is another 
story. 

Difficulties with Translation 

OK! So I've been a little picky so far. It 
gets worse. To start, I will use the FOR- 
TRAN do loop as an example of problems 
that occur in the translation. The program 
claims to produce do loops; seeing the 
problems that exist with them gives a clear 
view of the troubles that occur with FOR- 
TRAN conventions that are not produced by 
the translator. 

A do loop is the FORTRAN version of a 
BASIC for-next loop and is used in the same 
way. Here is an example of the do loop, the 
for-next loop and the do loop that is pro- 
duced by the translator. 

Proper Do Loop For Next Loop Translator Do Loop 

Do 10 J = 1,1000 ForJ=TO1000 DoJ=TO1000 

Stepl Stepl Stepl 

Step2 Step2 Step2 



10 Continue 



ContinueJ 



In the correct do loop, do 10 means "Do 
the steps between the do and the continue 
labeled 10." The variable J will equal the val- 
ues 1 to 1000, as in a for/next loop. Arrays 
are used between the do/continue as ar- 
ray^), which will increment from J = 1 to 
J = 1000 as the loop progresses. 

The translator do loop is not correct! It 
must be edited to correct format. Also, the 
correct continue must be labeled. In fact, all 
that the translator does is change the word 
"for" to "do", the word "next" to "contin- 
ue", and add the variable name, resulting in 
continueJ. If the original for/next loop has a 
subroutine branch nested in the loop, it will 
be lost and the logical flow of the program 
must be adjusted or the FORTRAN program 
will not run correctly. 

This occurs throughout the translation. 
BASIC input PRINT, LPRINT, PUT and GET 
are all handled by FORTRAN'S READ and 
WRITE. Each READ or WRITE statement is 
followed by the name of the device to be 
read or written to and the label of the format 
line that tells FORTRAN what to READ or 
WRITE and how. The form is READ(d,1) 
where d is the assigned device number (ie., 
2 for printer, 5 for keyboard and video, 6 for 
disk) and 1 is the label of the format line to 
be used. The translator does not assign the 
correct device number but does assign a 
format line label. The format line will have 
to be corrected for the type of data and de- 
vice. This is difficult if you don't know exact- 
ly which kind of data to expect. Also, 



LPRINTS will be translated as LWRITE(d,1) 
and have to be edited. I imagine that the L 
was left on so the programmer knows that 
when editing, the destination device intend- 
ed was the printer. Without the correct de- 
vice number in the WRITE statement there 
would be no way to know which device was 
intended without checking program logic. 
Disk READ and WRITE are useless as they 
come out of the translator and must be 
completely reworked and formatted. 

Another important consideration is com- 
patibility with the FORTRAN compiler. The 



100 


C 




200 


c 




300 


C Name: 




400 


C Purpose: 




500 


C Calling Sequence: 




600 


C Input Assignments: 




700 


C Output Arguments: 




800 


C Description: 




900 


C Devices: 




1000 


C Notes: 




1100 


c 




1200 


c 




1300 


c 




1400 


C Undefined Variables: 

l,J,K,L,M = Integer. Others Real 




1500 


c 




1600 


Integer 




1700 


c 




1800 


Real 




1900 


c 




2000 


Double Precision 




2100 


c 




2200 


Logical 




2300 


c 




2400 


External 




2500 


c 




2600 


Dimension 




2700 


c 




2800 


Common 




2900 


c 




3000 


Equivilance 




3100 


c 




3200 


Data 




3300 


c 




3400 


C REM Convert Fahrenheit to Centigrade 


3500 


Defint F 




3600 


C 




3700 


Write(3, 110) 




3800 


110 Format (PC, "Fahrenheit 


Centigrade) 


3900 


C 




4000 


DOF = 20T065,5 




4100 


C = (5/9).(F-32) 




4200 


C 




4300 


Write(3, 111) ";C 




4400 


1 1 1 Formal (PC," ) 




4500 


C 




4600 


ContinueF 




4700 


End 






Figure 3. Translator Version 



translator produces text in FORTRAN form. 
It inserts C lines (REM in BASIC) and it 
prints in an easy to read form with room for 
manual editing on the page. The disk output 
is the same text that is on the printer— it will 
not work in the TRS-80 (Microsoft) FOR- 
TRAN compiler. 

In FORTRAN, programming is done in 
columns and each column or group of col- 
umns has a specific use. When a program is 
translated, loaded into the TRS-80 FOR- 
TRAN editor and edited into proper FOR- 



TRAN syntax, the compiler will still gener- 
ate errors for every C line, every label line 
and every statement line. This is due to im- 
proper column arrangement in the transla- 
tion and requires more editing, and spacing 
the lines so that columns are properly 
aligned. 

Note the program in Fig. 1. This is an ex- 
ample program from the Radio Shack (Mi- 
crosoft) FORTRAN package. It is correctly 
columned and can be compiled with no er- 
rors. This program generates the centi- 
grade equivalent for fahrenheit values from 
20 to 65 with increments of five degrees. 
Fig. 2 is a BASIC program that will output 
the data in the FORTRAN example right 
down to the format of video display. Now 
look at Fig. 3; this is the translation of the 
BASIC program in Fig. 2. Note that the for- 
mat of the line numbers are different from 
that in the FORTRAN editor. Also, the (com- 
ment) lines are not spaced the same. This 
makes the entire translation incompatible 
with the FORTRAN editor. 

Not only is the format wrong but the 
statement lines are error-filled. Note line 
4100 in Fig. 3. This is the formula line for 
converting fahrenheit to centigrade. The 
translator has duplicated the formula ex- 
actly as it appears in BASIC. FORTRAN for- 
mulae are different! Look at Fig. 1 , line 600. 
That is correct FORTRAN! Now look at line 
4400 in Fig. 3. This is the format line for the 
data output. Nothing there! If you look at 
Fig. 1, line 800 you will see correct format- 
ting. It is easy to see that a programmer 
who is not familiar with FORTRAN would 
have no use for this translation. 

There are many more problems. Text 
lines are cut off, write lines become dou- 
bled with text format lines, and there are 
still more. Even if we assume that you can 
get a working program out of the translator 
— there is still one last warning to consider. 
The translator does not approach efficient 
use of FORTRAN. Microsoft FORTRAN is 
about 60 times faster than Disk BASIC. This 
estimate is based on a program I wrote to 
check the time difference. The benefit of 
faster FORTRAN is lost if you do not use it 
efficiently. 

Not All Bad 

The translator does have some value. It 
does aid in reducing typing time. And it pro- 
vides a FORTRAN format for the BASIC pro- 
gram that is a skeleton starting point. It aids 
in following the logic of a BASIC program 
that you are rewriting. Also, it is helpful if 
you are learning FORTRAN (have some 
background first or you will be lost). 

One final word. I have only pointed out 
the major problems that occurred in the 
translation of short BASIC programs. You 
can see that the problems are extensive and 
would be insurmountable to a programmer 
without FORTRAN knowledge. I shudder to 
think what problems may occur in the trans- 
lation of an extensive BASIC program. If 
you write the original BASIC program care- 
fully, some of the translation problems I 
have mentioned may be eliminated. ■ 
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OWNERS OF THE TRS-80™* MICROCOMPUTER 



TRS-£ 



IS A TRADEMARK OF TANDY CORP. 
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FOR TRS-80'" 
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CQMPUTRQNICS 



| MONTHLY 

|| NEWSMAGAZINE 

™ FOR TRS-80'" 
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OWNERS 



MONTHLY NEWSMAGAZINE 

Practical Support For Model I, II & III 



PRACTICAL APPLICATIONS 
BUSINESS 

GAMBLING • GAMES 
EDUCATION 
PERSONAL FINANCE 
BEGINNERS CORNER 
NEW PRODUCTS 
SOFTWARE EXCHANGE 
MARKET PLACE 
QUESTIONS AND ANSWERS 
PROGRAM PRINTOUTS 
AND MORE 



NOW IN OUR 4th YEAR 



PROGRAMS AND ARTICLES PUBLISHED IN RECENT ISSUES 
INCLUDE THE FOLLOWING: 

• FINCALC - A COMPLETE FINANCIAL APPLICATIONS PACKAGE 

• INFORMATION SYSTEM REVIEW 

• STATISTICAL COMBINATIONS 

• PASCAL'S TRIANGLE 

• ASSEMBLY LANGUAGE FOR BEGINNERS 

• DISK FILES 

• MOD-HI REVIEW 

• KEYBOARD THUNDER AND LIGHTING EXPLAINED 

• DOS COMMANDS IN LEVEL II 

• PROBABILITY CURVE GENERATOR 

• CALCULATOR SIMULATIONS 

• THE MEGABYTE GAP 

• STOCKS AND BONDS 

• BUDGET ANALYSIS (FOR BUSINESS AND HOME) 

• NEWDOS/80 REVIEW 

• DUTCHING - THE HORSE SYSTEM THAT CANT LOSE 

• A SIMULATED GOLF GAME 

• CONTINUOUS FORM SOURCES 

• TAX/SAVER REVIEW 
AND MORE 



0tf# 



*«£l 



FINCALC 



^°^tJt\°^ L£J?£»!L^£1> *^1^J A Complete Financial Analysis Package Used 

,«gC^ To Calculate Markup, Margin, Annuities, Compound Interest, Nominal 

S* O^ - And Effective Rates, Sinking Funds, Mortgage Calculations, Future Value, 

fdCyJ^ Savings and Insurance, Percentage Difference Between Two Numbers, 

Amortization Schedule and More 



»fc 



SEND FOR OUR NEW 64 PAGE SOFTWARE CATALOG (INCLUDING LISTINGS OF HUNDREDS OF TRS-80" PROGRAMS AVAILABLE ON 
CASSETTE AND DISKETTE). $2.00 OR FREE WITH EACH SUBSCRIPTIONS OR SAMPLE ISSUE 



* All programs are supplied on cassette (add $3 for Diskette Version - add $5 for modified Mod-II Version). 
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50 N. PASCACK ROAD 
SPRING VALLEY, NEW YORK 10977 

ONE YEAR SUBSCRIPTION $24 

TWO YEAR SUBSCRIPTION $48 

SAMPLE OF LATEST ISSUE $ 4 

START MY SUBSCRIPTION WITH ISSUE 

(#1 - July 1978 • #12 - June 1979 • #24 - July 1980 • #30 - January 1981) 
NEW SUBSCRIPTION RENEWAL 



NEW TOLL-FREE 

ORDER LINE 

(OUTSIDE OF N.Y. STATE) 

(800) 431-2818 




HOUR 
24 ORDER 
LINE 

(914) 425-1535 




CREDIT CARD NUMBER . 
SIGNATURE 



NAME. 



ADDRESS . 



.CITY. 



.EXP. DATE. 



.STATE. 



ZIP_ 



*** ADD $12/ YEAR (CANADA, MEXICO) - ADD $24/YEAR AIR MAIL - OUTSIDE OF U.S.A., CANADA & MEXICO *** 
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* TRS-80" is a trademark of the Radio Shack Division of Tandy Corporation 



MOD-II PROGRAMS 



* All orders processed within 24-Hours 
•k 30-Day money back guarantee on all TRSDOS Software 
*Add $3.00 for shipping in UPS Areas 
*Add $4.00 for COD. or NON-UPS Areas 
*Add $5.00 outside U.S.A., Canada & Mexico 
•k We will match any bonafide advertised price 
in any of the Major Computer Magazines 
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(1) ELECTRIC PENCIL (Michael Shrayer Software)... 
Complete word processor with extensive editing and 

printer formatting features $325 (STANDARD 

TRSDOS VERSION). $350 (DIABLO, NEC OR QUME 
TRSQ.OS VERSION) 

(2) GENERAL LEDGER, ACCOUNTS RECEIVABLE, 
ACCOUNTS PAYABLE, INVENTORY CONTROL, 
INVOICING AND PAYROLL (Small Business Systems 
Group). ..an extensive business system for the serious 
user, can be used one module at a time or as a co- 
ordinated system. $225 per module. ..$1299 for the 
complete system 

(3) GENERAL LEDGER. ACCOUNTS RECEIVABLE, 
ACCOUNTS PAYABLE, INVENTORY CONTROL 
AND PAYROLL (Compumax).. a complete user ori- 
ented business system. ..can be used one module at a 
time or as a coordinated system $140 per module.. 
$995 for the complete system. 

(4) MOD-II UTILITY PACKAGE (Racet Computes) ... 
adds important utilities to TRSDOS. copy files 
selectively, faster and more accurate file copying... 
repair bad directories, displays sorted directory of 
all files on 1 to 4 disk drives. ..SUPERZAP. ..change 
disk ID and more $150. 

(5) ADVENTURE #1-#9 (Scott Adams - Adventure 
International) a series of games formally only 
available on the large computers your goal is to work 
your way through a maze of obstacles in order to 
recover a secret treasure or complete a mission, the 
package includes all 9 Adventures written by Scott 
Adams. $99 95 

(6) GSF (Racet Computers) Generalized Subroutine 
Facility a series of super fast machine language 
utilities that can be called from a BASIC program (no 
machine language knowledge required) sorts 1000 
items in under 5 seconds. ..allows PEEK and POKE 
statements move data blocks, compress and un- 
compress data, works under TRSDOS ..$50. 

(7) DSM (Racet Computes) Disk Sort Merge. ..sorts 
and merges large multiple diskette files on a 1 to 4 
drive system NOT AN IN MEMORY SORT can 
actually alphabetize (or any other type of sort) 4 disk 
drives worth of data. ..sorts one complete disk of 
information in 10 minutes. ..information is provided to 
use DSM with the RS MAILING PROGRAM works 
under TRSDOS $150 

(8) RSM (Small Systems Software) a machine 
language monitor and disassembler can be used to 
see and modify memory or disk sectors contains all 
the commands found on the Model-I version plus 
some additional commands for the MOD-II works 
under TRSDOS $39 95 

(9) BLINK BASIC LINK FACILITY (Racet Computes) 
Link from one BASIC program to another saving all 
variables chain programs without losing variables 
...$50. 

(10) BASIC CROSS REFERENCE UTILITY (Racel 
Computes), lists all variables and strings used in a 
program (with the line numbers in which they appear) 
..lists all GOTO's and GOSUBs (with the line num- 
bers in which they appear) searches for any specific 
variables or strings (with the line number in which 
they appear). $50 

(11) DEVELOPMENT PACKAGE (Racet Computes) 
SUPERZAP (to see. print or change any byte on a 
diskette) Disassembler and MOD-II interface to the 



MICROSOFT EDITOR ASSEMBLER PLUS including 
uploading services and patches for Disk I/O. assemble 
directly into memory. save all or portions of source 
to disk. ..dynamic debug facility (ZBUG)...entended 
editor commands. ..$125. 

(12) HARD/SOFT DISK SYSTEM (Racet Computes)... 
The software essential to interface any of the popular 
large hard disk drives. ..completely compatible with 
your existing software and files, allows up to 20 
megabytes of storage (and larger). ..directory expand- 
able to handle thousands of files. ..$400. 

(13) CAMEO HARD DISK DRIVE CONTROLLER 

coming soon (November 1?) 

(14) HARD DISK DRIVES. ..coming soon (Nov. 1?). 

(15) H A E COMPUTRONICS, INC. SHARE-A- 
PROGRAM DISKETTE #1 ...works under TRSDOS. a 
collection of programs written by MOD-II owners... 
programs include data base management. ..a word 
processor mail system. ..mortgage calculations., 
checkbook register ..and many others $8 (add $3 
postage outside of the United States. Canada and 
Mexico). FREE if you send us a diskette containing 
a program that can be added to the SHARE-A-PRO- 
GRAM DISKETTE 

(16) WABASH CERTIFIED DISKETTES $39 95 (per 
box of 10) 

(17) FLIP SORT DISKETTE STORAGE TRAY Stores 
50 diskettes ..comes complete with index -dividers, tilt 
plates and adjustable spacing $44 95 

(18) MASTER PAC 100. .100 essential programs ... 
BUSINESS. PERSONAL FINANCE STATISTICS- 
MATH. GAMBLING GAMES includes 125 page 

manual and 2 diskettes. $99 95 

(19) BUSINESS PAC 100. 100 essential business 
programs. INVENTORY CONTROL PAYROLL ... 
BOOKKEEPING SYSTEM. ..STOCK CALCULA- 
TIONS. CHECKBOOK MAINTENANCE. .AC- 
COUNTS RECEIVABLE ACCOUNTS PAYABLE... 
includes 125 page manual and two diskettes. ..$149 95. 

(20) EDITOR ASSEMBLER (Galactic Software Ltd.)... 
the first user oriented Editor Assembler for the 
MODEL II and was designed to utilize all the features 
of the MODEL II It includes innovative features for 
ease of coding and debugging and complete docu- 
mentation (over 120 pages) works under TRSDOS 
. $229.00 

(21) BASIC COMPILER (Microsoft) ..changes your 
source programs into machine language, increases 
program execution by 3-10 times $395 

(22) MAIL/FILE SYSTEM from Galactic Software Ltd 
stores 2.500 names per disk No sorting time is 
required since the file is automatically sorted by first 
and last name plus Zip Code on input. Retrieve by any 
combination of 19 user codes Supports an 11 digit 
alphanumenca Zip. Supports a message line. Comes 
complete with user-oriented documentation (100- 
page manual) Allows for company name and individ- 
ual of a company and complete phone number (and 
extension) works under TRSDOS $199.00 

(23) INCOME TAX PAC Professional income tax 
package most forms and schedules, output to video 
or line printer automatic memory storage of all 
information, data can be loaded from diskette, 
changed and edited built inerror checking $199 95 

(24) COMPUTER GAMES (SBSG) Mean Checker 
Machine. Star-Trek III. Concentration. TreasureHunt, 
Banco. Dog Star Adventure $74 95. 
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ORDER LINE 

(OUTSIDE OF N.Y. STATE) 

(800) 431-2818 




HOUR 

ORDER 

LINE 




(1) CP/M (Lifeboat Associates) an alternative 

operating system for the MOD-II that allows MOD-II 
owners to use any of the hundreds of programs 
available under CP/M.. : $170. 

(2) CP/M HANDBOOK. ..(Sybex) a step-by-step 
guide to CP/M. ..takes the reader through each of the 
CP/M commands. ..numberous sample programs- 
practical hints reference tables. $13.95. 

(3) GENERAL LEDGER, ACCOUNTS RECEIVABLE, 
ACCOUNTS PAYABLE, INVENTORY CONTROL, 

AND PAYROLL (Peachtree Software). ..requires CP/M 
and MICROSOFT BASIC. ..professional business 
systems, turn key operation. ..can be used as single 
modules or as a coordinated system. ..$500 per 
module. $2500 for the complete system. 

(4) WORD-STAR. ..The ultimate word processor. ..a 
menu driven word processing system that can be used 
with any printer. All standard word processing 
commands are included plus many unique com- 
mands only found on WORD STAR. ..requires CP/M 
...$495. 

(5) MAIL LIST MERGE. ..An add on package that 
allows the user to send form letters (created on 
WORD-STAR) to any compiled mailing list (using any 
CP/M based MAIL program such as the PEACHTREE 
MAIL PROGRAM). ..requires CP/M. WORD STAR and 
andy CP/M based mail program. ..$150 

(6) SELECTOR III (Micro-Ap) ..complete data 
management system ..user defined fields and codes... 
manages any list defined by the user. ..includes 
additional modules for simplified inventory control, 
accounts receivable and accounts payable, requires 
CBASIC-2...$295. 

(7) SELECTOR IV (Micro-Ap). ..the ultimate data 
management system. ..all features use the SELECTOR 
III plus. ..data file format conversions. ..full page report 
formatter. ..computations global search and replace 
...hard disk compatible, oata/text merging. ..$550. 

(8) GLECTOR (Micro-Ap).add on package to the 
SELECTOR. ..general ledger that allows the user to 
define a customized chart of accounts.. $350. 

(9) CBASIC-2 a non-interactive BASIC used for 
many programs that run under CP/M. ..allows user to 
make more efficient use of disk files, eliminates the 
use of most line number references. ..require on such 
programs as the SELECTOR $120. 

(10) MICROSOFT BASIC. ..an enhanced version of the 
MICROSOFT BASIC found on TRSDOS adds 
commands such as chaining (allows the user to LOAD 
and RUN a new program without losing the variables 
currently in memory) !long variable length file 
records, WHILE/WEND and others. ..can be used with 
the BASIC COMPILER to speed up programs (3-10 
times faster execution). ..$325. 

(11) MASTER TAX (CPAids) ..professional tax 
preparation program. ..prepares schedules. A, B. C. D, 
E. F. G, R/RP. SE. TC, ES and forms 2106, 21 19, 2210, 
3468. 3903, 2441, 4625, 4726, 4797, 4972. 5695 and 
6521 . Printing can be on readily available pre-printed 
continuous forms, on overlays, or on computer 
generated IRS approved forms. Maintains dint history 
files. ..interactive with CP/Aids General Ledger $995. 

(12) GENERAL LEDGER II (CPAids). ..designed for 
CPA's... stores complete 12 month detailed history of 
transactions generates financial statements, 
depreciation, loan amortizations, journals, trial 
balances, statements of changes in financial position, 
and compilation letters. ..includes payroll system with 
automating posting to general ledgers. ..prints 
payroll register. W2's and payroll checks. ..$450. 

(13) ELECTRIC PENCIL (Michael Shrayer Software) 
..Complete word processor with extensive editing 
and printer formatting features. ..$275 (Standard 
printer version). ..$300 (DIABLO. NEC or QUME 
version) 

(14) BASIC COMPILER (Microsoft). ..changes your 
source programs into machine language, increases 
program execution by 3-10 times ..$395. 

• (CP/M IS A REGISTERED TRADEMARK 
OF DIGITAL RESEARCH) 
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(914) 425-1535 



NEW!!! 

MOD-II NEWSLETTER 

$ll/year (or 11 issues} j 
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• ••EVERYTHING FOR YOUR TRS-80 ••• 

* TRS-SO'" is a trademark of the Radio Shack Division of Tandy Corporation 

too stfl*» MASTER PAC 100 

•OHOGl^^^ " 2nd EDITION CCOMPLETELY REVISED) I 



FOR YOUR TRS-80™ LEVEL II MICROCOMPUTER 



ALL ON CASSETTE OR DISKETTE 



BUSINESS AND PERSONAL FINANCE 

I. CHECKBOOK MAINTENANCE 

2 TIME FOR MONEY TO DOUBLE 

3. FEDERAL FICA & WITHHOLDING TAX 

3 COMPUTATIONS 

4. HOME BUDGET ANALYSIS — — 
5 ANNUITY COMPUTATION .elWflSs 

6. UNIT PRICING HU^**^ 

7. CHANGE FROM PURCHASE 9m 

8. NEBS CHECK PRINTER 

9. DAYS BETWEEN DATES 

10. MORTGAGE AMORTIZATION TABLE 

11. INVENTORY CONTROL 

12. PORTFOLIO VALUE COMPUTATIONS 

13. VALUE OF A SHARE OF STOCK 

14. SALES RECORD KEEPING SYSTEM 

15. FUTURE VALUE OF AN INVESTMENT 

16. EFFECTIVE INTEREST RATE (LOAN) 

17. PRESENT VALUE OF A FUTURE AMOUNT 

18. RATE OF RETURN-VARIABLE INFLOW 

19. RATE OF RETURN-CONSTANT INFLOW 

20 REGULAR WITHDRAWAL FROM INVESTMENT 

21. STRAIGHT LINE DEPRECIATION 

22. SUM OF DIGITS DEPRECIATION 

23. DECLINING BALANCE DEPRECIATION 

24. BREAK EVEN ANALYSIS 

25. SALVAGE VALUE OF INVESTMENT 

26. PAYMENT ON A LOAN 

27. FUTURE SALES PROJECTIONS 

28. CREDIT CARD FILE 

29. ECONOMIC ORDER QUANTITY (EOQ) 
INVENTORY MODEL 

30. VALUE OF HOUSE CONTENTS 

31. TEXT EDITOR 

32. MONTHLY CALENDAR 

33. DAY OF WEEK 

34. CASH FLOW VS. DEPRECIATION 

35. COMPLETE MAIL SYSTEM 

36. INTEREST RATE ON A LEASE 



flSTlCS 



F EKSO*AL 
F 1*A*CE 



STATISTICS AND MATHEMATICS 

37. RANDOM SAMPLE SELECTION 
38 ANGLO METIC CONVERSION 

39. MEAN, STANDARD DEVIATION. 
MAXIMUM AND MINIMUM 

40. SIMPLE LINEAR REGRESSION 

41. MULTIPLE REGRESSION ANALYSIS 
42 GEOMETRIC REGRESSION 
43. EXPONENTIAL REGRESSION 
44 SIMPLE MOVING AVERAGE 

45. SIMPLE T TEST -,^» «k ' 

46. CHI SQUARE TEST 9 * ** 

47. NORMAL PROBABILITIES 
48 BINOMIAL PROBABILITY 

49. POISSON PROBABILITY 

50. MATRIX ADDITION AND SUBTRACTION 

51. MATRIX TRANSPOSE 

52. MATRIX INVERSE 

53. MATRIX MULTIPLICATION 

54. SOLUTION OF SIMULTANEOUS EQUATIONS 
55 QUADRATIC FORMULA 

56. LINEAR EQUATION SOLUTIONS 

57. ROOT HALF INTERVAL SEARCH 

58. ROOTS OF POLYNOMIALS 

59. ROOTS NEWTON'S METHODS 

60. PRIME FACTORS OF INTEGER 

61. LEAST COMMON DENOMINATOR 

62. RADIAN DEGREE CONVERSION 

63. NUMERICAL INTEGRATION 

UTILITIES 

64. QUICK SORT ROUTINE 

65. PROGRAM STORAGE INDEX 

66. MULTIPLE CHOICE QUIZ BUILDER 

67. FORM LETTER WRITER 

68. SHELL SORT 

69. CASSETTE LABEL MAKER 

70. CODES MESSAGES 

71. MERGE TWO FILES 

72. SORT WITH REPLACEMENT 



MATH 



GRAPHICS 

73. DRAWS BAR GRAPH 

74. DRAWS HISTOGRAM 

75. MOVING BANNER DISPLAY 

GAMBLING AND GAMES 

76. RANDOM SPORTS QUIZ 

77. GOVERNMENT QUIZ 

78. HORSE RACE 

79. MAGIC SQUARE 

80. ARITHMETIC TEACHER 
81 HIGH LOW GAMBLE 

82. UNSCRAMBLE LETTERS 

83. HANGMAN 
84 GAME OF NIM 

85. RUSSIAN ROULETTE 

86. ROULETTE GAME 

87. ONE ARMED BANDIT 

88. HIT THE TARGET 

89. WALKING DRUNK 

90. STATE CAPITAL QUIZ 

91. TIC TAG TOE 

92. DICE GAME 

93. LUNAR LANDAR GAME 

94. BIORHYTHM 

95. HORSE SELECTOR (CLASS CALCULATOR) 

96. RANDOM DICE ROLL 

97. RANDOM ROULETTE ROLL 

98. RANDOM CARD DEALER 

99. GUESS THE NUMBER 
100. WHITE OUT SCREEN 



GAMBIA* 



lt O PAG« 
USE* 



--2S& 



GUARANTEED SATISFACTION 

30-DAY MONEY BACK GUARANTEE ON ALL SOFTWARE 



■CQMPJTRQNICSJ 

50 N. PASCACK ROAD 
SPRING VALLEY, NEW YORK 10977 

PLEASE SEND ME: 

□ MASTER PAC 100 CASSETTE VERSION $59.95 

D MASTER PAC 100 DISKETTE VERSION $59.95 

□ MASTER PAC 100 (TRS-80 MODEL II VERSION) $99.95 




HOUR 

ORDER 

LINE 



(914) 425-1535 



NEW TOLL-FREE 

ORDER LINE 

(OUTSIDE OF N.Y. STATE) 

(800) 431-2818 

•k All orders processed within 24-Hours 

* 30-Dayi money back guarantee on all Software 




CREDIT CARD NUMBER EXP. DATE. 



SIGNATURE. 



NAME 



ADDRESS CITY STATE ZIP 

*** ADO $3.00 FOR SHIPPING IN UPS AREAS • ADD $4.00 FOR C.O.D. OR NON-UPS AREAS • ADD $5.00 OUTSIDE U.S.A. CANADA & MEXICO 
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m > EVERYTHING FOR YOUR TRS-80 ... 

TRS-80 Is a trademark of the Radio shack Division of Tandy Corporation 

BUSINESS PAC 100 

100 Ready-To-Run 
Business Programs 




* 30-Day money °a 
Software 



(ON CASSETTE OR DISKETTE) Includes 110 Page Users Manual 5 Cassettes (Or Diskettes) 

Inventory Control Payroll Bookkeeping System Stock Calculations 

Checkbook Maintenance... ..Accounts Receivable. ....Accounts Payable 



BUSINESS 100 PROGRAM LIST 



1 RULE78 Interest Apportionment by Rule of the 78s 

2 ANNU1 Annuity computation program 

3 DATE Time between dates 

4 DAYYEAR Day of year a particular date falls on 

5 LEASEINT Interest rate on lease 

6 BREAKEVN Breakeven anarysis 

7 DEPRSL Straightline depreciation 

8 DEPRSY Sum of the digits depreciation 

9 DEPRDB Declining balance depreciation 

1 DEPRDDB Double declining balance depreciation 

1 1 TAXDEP Cash flow vs. depreciation tables 

1 2 CHECK2 Prints NEBS checks along with dairy register 

13 CHECKBK1 Checkbook maintenance program 

14 MORTGAGE/ A Mortgage amortization table 

1 5 MULTMON Computes time needed for money to double, triple, 

16 SALVAGE Determines salvage value of an investment 

1 7 RRVARIN Rate of return on investment with variable inflows 

18 RRCONST Rate of return on investment with constant inflows 

19 EFFECT Effective interest rate of a loan 

20 FVAL Future value of an investment (compound interest) 

21 PVAL Present value of a future amount 

22 LOANPAY Amount of payment on a loan 

23 REGW1TH Equal withdrawals from investment to leave over 

24 S1MPDISK Simple discount anarysis 

25 DATEVAL Equivalent & nonequivalent dated values for oblig. 

26 ANNUDEF Present value of deferred annuities 

27 MARKUP * Markup analysis for items 

28 S1NKFUND Sinking fund amortization program 

29 BONDVAL Value of a bond. 

30 DEPLETE Depletion anarysis 

31 BLACKSH Black Scholes options analysis 

32 STOCVALl Expected return on stock via discounts dividends 

33 WARVAL Value of a warrant 

34 BONDVAL2 Value of a bond 

35 EPSEST Estimate of future earnings per share for company 

36 BETAALPH Computes alpha and beta variables for stock 

37 SHARPE1 Portfolio selection modeli.e. what stocks to hold 

38 OPTWRITE Option writing computations 

39 RTVAL Value of a right 

40 EXPVAL Expected value anarysis 

4 1 BAYES Bayesian decisions 

42 VALPRINF Value of perfect information 

43 VALADINF Value of additional information 

44 (JTILfTY Derives utility function 

45 SIMPLEX Linear programming solution by simplex method 

46 TRAMS Transportation method for linear programming 

47 EOQ Economic order quantity inventory model 

48 QUEUE1 Single server queueing (waiting line) model 

49 CVP Cost-volume-profit anarysis 

50 CONDPROF Conditional profit tables 

51 OPTLOSS Opportunity loss tables 

52 FQCJOQ Fixed quantity economic order quantity model 

NAME DESCRIPTION 

53 FQEOWSH A» above but wKh shortages permitted 

54 FQEOQPB As above but with quantity price breaks 

55 QCJE0ECB Cost-benefit waiting line analysis 

56 NCFANAL Net cash-flow analysis for simple Investment 

57 PROFIND Proftabtty Index of a project 

96 CAP1 Cap. Asset Pr. Model anarysis of project 



59 WACC Weighted average cost of capital 

60 COMPBAL True rate on loan with compensating bal. required 

61 DISCBAL True rate on discounted loan 

62 MERGANAL Merger analysis computations 

63 FINRAT Financial ratios for a firm 

64 NPV Net present value of project 

65 PR1NDLAS Laspeyres price index 

66 PRINDPA Paasche price index 

67 SEASIND Constructs seasonal quantity indices for company 

68 TIMETR Time series analysis linear trend 

69 T1MEMOV Time series anarysis moving average trend 

70 FUPRINF Future price estimation with inflation 

71 MAILPAC Mailing list system 

72 LETWRT Letter writing system-links with MAILPAC 

73 SORT3 Sorts list of names 

74 LABEL 1 Shipping label maker 

75 LABEL2 Name label maker 

76 BUSBUD DOME business bookkeeping system 

77 T1MECLCK Computes weeks total hours from timeclock info. 

78 ACCTPAY In memory accounts payable system-storage permitted 

79 INVOICE Generate invoice on screen and print on printer 

80 INVENT2 In memory inventory control system 

81 TELDIR Computerized telephone directory 

82 TIMCJSAN Time use anarysis 

83 ASSIGN Use of assignment algorithm for optimal job assign. 

84 ACCTREC In memory accounts receivable system-storage ok 

85 TERMSPAY Compares 3 methods of repayment of loans 

86 PAYNET Computes gross pay required for given net 

87 SELLPR Computes selling price for given after tax amount 

88 ARBCOMP Arbitrage computations 

89 DEPRSF Sinking fund depreciation 

90 UPSZONE Finds UPS zones from zip code 

91 ENVELOPE Types envelope including return address 

92 AUTOEXP Automobile expense analysis 

93 INSF1LE Insurance policy file 

94 PAYROLL2 In memory payroll system 

95 DILANAL Dilution analysis 

96 LOANAFFD Loan amount a borrower can afford 

97 RENTPRCH Purchase price for rental property 

98 SALELEAS Sale-leaseback analysis 

99 RRCONVBD Investor's rate of return on convertable bond 
100 PORTVAL9 Stock market portfolio storage-valuation program 



D CASSETTE VERSION 
D DISKETTE VERSION 



$99.95 
S99.95 



NEW 



a TRS-80* MODEL U VERSION $149.95 (Oursioi ^Ng 

ADD $3.00 FOR SHIPPING IN UPS AREAS (8Qf)\ A*. STAT G) 

ADD $4.00 FOR C.O.D. OR NON-UPS AREAS * WV J ^37-Pftf ft 

ADD $5.00 OUTSIDE U.S.A, CANADA & MEXICO *Ol[j 



•CQMPLITRQNICS! 



KA*vn-#&vu*rcAi_ ap<=*_jcatiojs $ee*stz£ " 




50 N. PASCACK ROAD 
SPRING VALLEY, NEW YORK 10977 




HOUR 
O A ORDER 
*** UNE 

425-1535 
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COORDINATED 
BUSINESS 
SYSTEMS 



SMALL BUSINESS 
SYSTEMS GROUP 



* All orders processed within 24-Hours 
* 30-Day money back guarantee on all Software 
* Add $3.00 for shipping in UPS Areas 
• Add $4.00 for COD. or NON-UPS Areas 
•kAdd $5.00 outside U.S.A., Canada & Mexico 



FACTS ABOUT THE S.B.S.G. BUSINESS PACKAGES 

1. S.B.S.G. is a sophisticated Business Software System designed for the serious businessman. 

2. Each of the S.B.S.G. Business Modules may be purchased separately. ..or you may purchase the entire coordinated business system. 

3. Modules purchased separately do not coordinate with the General Ledger (although for the standard S.B.S.G. fee, the user may upgrade his 
individual modules for the coordinated system). 

4. Foolproof, Step-By-Step procedures are supplied, planned and documented for the First-Time Computer User. All programs are self- 
explanatory, telling the user what is required at every step. 

5. Programs are written in BASIC and the source code listing is supplied for those users who decide to modify the original system. 

6. A complete users manual is supplied with each module. 

7. Demo Data diskettes are supplied with sample data. 

8. S.B.S.G. has an In-House staff that can answer questions and problems related to the proper use of the S.B.S.G. Business System (on the 
telephone or through the mail). 

9. First-Time Computer Owners Note-Instructions are provided for entering state payroll withholding tables. There is an additional charge if 
you prefer to have S.B.S.G. Programmers insert the correct data. 

10. Minimum system requirement is 2-drives to run any single module. 

11. Minimum system requirement is 3-drives to run the coordinated business system (AR-AP-GL) or (AR-AP-GL with PAYROLL). 

12. Minimum system requirement is 4-drives to run the extended coordinated system (AR-AP-GL-PR and INVENTORY/INVOICING). 

13. The A. OSBORNE & ASSOCIATES business manuals are provided FREE with each order (they may be purchased separately at $20 per 
manual). 

14. The INVENTORY and INVOICING modules are original programs written by S.B.S.G. 

15. Each module can be purchased as independent modules to run on a 2 or more drive system except INVOICING. 

16. Memory requirement is 48K for the MODEL-I and 64K for the MOD6L-II. 

17. All S.B.S.G. BUSINESS SYSTEMS may be upgraded up to 4-disk drives. No data is ever lost during an upgrade. There is a standard S.B.S.G. 
charge for all upgrades. 



ACCOUNTS PAYABLE 

The accounts payable system receives data concerning purchases from 
suppliers and produces checks in payment of outstanding invoices. In 
addition, it produces cash management reports. This system aids in 
tight financial control over all cash disbursements of the business. 
Several reports are available and supply information needed for the 
analysis of payments, expenses, purchases and cash requirements. All 
A/P data feeds General Ledger so that data is entered into the system 
just once. These programs were developed 5 years ago for the Wang 
micro-computer and have been tested in many environments since 
then. The package has been converted to the TRS-80'" and is now well 
documented, on-line, interactive micro-computer system with the 
capabilities of (or exceeding many larger systems). 
CAPABILITIES: 

* menu driven; easy to use; full screen prompting and cursor control 

* invoice oriented; everything revolves around the invoice; handles 
new invoice or credit memo or debit memo 

* invoce information recorded; invoice #, description, buyer, check 
register #, invoice date, age date, amount of invoice, discount (in %), 
freight, tax ($), total payable 

* transaction print and file maintenance procedures insure accuracy 

* flexible check calculation procedure; allows checks to be calculated 
for a set of vendors-or-for specific vendors 

* program prints your checks; contiguous computer checks with your 
company letterhead can be purchased from SBSG 

* reports include (samples on back); 

• open item listing/closed item listing - both detail and summary 

• debit memo listing/credit memo listing 

• aging 

• check register report (to give an audit trail of checks printed) 

• vendor listing and vendor activity (activity of the whole year) 

* fully linked to GENERAL LEDGER; each invoice can be distributed 
to as many as five (5) different GL accounts; system automatically 
posts to cash and A/P accounts 



ACCOUNTS RECEIVABLE 

The objective of a computerized A/R system is to prepare accurate and 
timeley monthly statements to credit customers. Management can 
generate information required to control the amount of credit extended 
and the collection of money owed in orderto maximize profitable credit 
sales while minimizing losses from bad debts. The programs com- 
posing this system were developed 5 years ago, especially for small 
businesses using the Wang Microcomputer. They have been tested in 
many environments since then. Each module can be used stand alone 
or can feed General Ledger for a fully integrated system. 
CAPABILITIES: 

* menu driven; easy to use; full screen prompting and cursor control 

* invoice oriented; invoices can be entered before ready for billing, 
when ready for billing, after billing or after paid 

* allows entry of new invoice, credit memo, debit memo, or change/ 
delete invoice 

* allows for progress payment 

• transaction information includes: 

• type of A/R transaction • billing date 

• customer P.O. # • general ledger account number 

• description of P.O. • invoice amount 

• shipping/transportation charges 

• tax charges 

• payment 

• progress payment information 

• transaction print & file maintenance procedures insure accuracy 

• customer statements printed; computer statements with your corn- 
pay letterhead can be purchased from SBSG 

• reports include: (samples on back) 

• listing of invoices not yet billed 

• open items (unpaid invoices) 

• closed items (paid invoices) 

• aging 

• fully linked to General Ledger; will post to applicable accounts; 
debit A/R, credits account you specify 
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PAYROLL 

Payroll invoices many complex calculations and the production of 
reports and documents, many of which are required by government 
agencies. It is an ideal candidate for the computer. With this Payroll 
system in-house, you can promptly and accurately pay your employees 
and generate accruate documents/reports to management, employees, 
and appropriate government agencies concerning earnings, taxes, and 
other deductions. The package has been converted to the TRS-80" and 
is now a well documented, op-line, interactive, micro-computer system 
with the capabilities of (or exceeding) many larger systems. 
CAPABILITIES: 

* performs all necessary payroll tasks including: 

• file maintenance, pay data entry and verification 

• computation of pay and deduction amounts 

• printing of reports and checks 

* can handle salaried and hourly employees 

* employees can receive: 

• hourly or salary wage 

• vacation pay 

• holiday pay 

• piecework pay 

• overtime pay 

* employees can be paid using any combination of pay types (except, 
hourly cannot receive salary and salary cannot receive hourly) 

* special non-taxable or taxable lump sums can be paid regularly or 
one time (bonus, reimbursements, etc) 

* health and welfare deductions can be automatically calculated for 
each employee 

* earnings-to-date are accumulated and added to permanent records; 
taxes are computed and deducted: US income tax, Social Security 
tax, state income tax, other deductions (regular or one time) 

* paychecks are printed; computer checks with your company letter- 
head can be purchased from SBSG 

* calculations are accumulated for; employee pay history, 941A re- 
port, W-2 report, insurance report, absentee report 

* fully linked to General Ledger. Each employee's payroll information 
can be distributed to as many as (12) twelve different GL accounts; 
system automatically posts to cash account 



INVENTORY CONTROL/INVOICING 

• ISAM (Indexed Sequential Access Method) eliminates the necessity 
for time consuming sort. 

• Pre-Allocated Files for IMMEDIATE update and inquiry capabilities. 

• Fast Disk storage and retrieval. 

• Inventory Master Record includes. .. class. ..SKU... Division. ..Retail... 
Cost. ..Beginning Balance. ..Period Sale Units. ..Period Receipts. ..On 
Order.. On Hand. ..Minimum Reorder Point. ..Recommended Re- 
order Amount. ..Vendor Number. ..Period Sale Dollars. ..YTD Sale 
Units.. YTD Sale Dollars. 

• Calculated and Displayed Formulas include. ..Gross Margin ($)... 
Gross Margin (%)... Gross Margin ROI (%)... Average Inventory Retail 
($)... Average Inventory Cost ($). ..Turn-Over (%). 

• Reports Generated include. ..Master File Listing. ..Class Description 
Listing. ..Transaction Audit Trail. ..Minimum Reorder Point by Ven- 
dor. .Retail Price List. ..Retail & Cost Price List. ..Period Sales Report 
...Year to Date Sales Report. ..Stock Status (Screen or printer output) 
...Commission Report (for salesmen and buyers). 

• Transaction Types include. ..Sales, Vendor Receipts. ..Vendor 
Orders. ..Customer Returns. ..Vendor Returns. ..Transfer Stock. 



GENERAL LEDGER 

The General Ledger accounting system consolidates financial data 
from other accounting subsystems (A/R, A/P, Payroll, direct posting) in 
an accurate and timely manner. Major reports include the Income State- 
ment and Balance Sheet and a "special" report designed by manage- 
ment. The beauty of this General Ledger system is that it is completely 
user formatted. You "customize" the account numbers, descriptions, 
and report formats to suit particular business requirements. These 
programs were developed 5 years ago for the Wang micro-computer 
and have been tested in many environments since then. The package 
has been converted to the TRS-80" and is now a well documented, on- 
line, interactive micro-computer system with the capabilities of (or 
exceeding) many larger systems. 
CAPABILITIES: 

* more than 200 chart of accounts can be handled 

* account number structure is user defined and controlled 

* more than 1,750 transactions may be entered via: 

• direct posting; done by hand; validated against the account file 
before acceptance 

• external posting; generated by A/R, A/P, Payroll or any other 
user source 

* data is maintained and reported by: 

• month 

• quarter 

• year 

• previous three quarters 

* reports (samples on back) include: 

• trial balances 

• income statement 

• balance sheet 

• special accounts reports and more 

* user formats reports with the following designated as you wish: 

• titles 

• headings 

• account numbers 

• descriptions 

• subtotals 

• totals 

• skip lines 

• skip pages 

* up to eight levels of totals - fully user designated 

* menu driven; easy to use; full screen prompting and cursor control 
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NEW TOLL-FREE 

ORDER LINE 

(OUTSIDE OF N.Y. STATE) 

(800) 431-2818 




HOUR 
24 ORDER 
LINE 

(914) 425-1535 



PRICING MOD-1 

VERSION 

ACCOUNTS RECEIVABLE $125 

ACCOUNTS PAYABLE $125 

GENERAL LEDGER $125 

PAYROLL $125 

INVENTORY $175 

INVOICING $150 

COORDINATED INVENTORY/INVOICING ACCOUNTS RECEIVABLE $449 

COORDINATED AR-AP-GL $375 

COORDINATED AR-AP-GL with PAYROLL $495 

EXTENDED COORDINATED AR-AP-GL INVOICING/INVENTORY with PAYROLL $799 



MOD-II 


MOD-MI 


VERSION 


VERSION 


$225 


$199.95 


$225 


$199.95 


$225 


$199.95 


$225 


$199.95 


$275 


$199.95 


$250 


$199.95 


$749 


$599.95 


$675 


$599.95 


$899 


$799.95 


$1299 


$1199.95 
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MICROSOFT BASIC COMPILER 

With TRS-80™ BASIC Compiler, your Level II programs will run at record speeds! 
Compiled programs execute an average of 3-10 times faster than programs run under 
Level II. Make extensive use of integer operations, and get speeds 20-30 times faster 
than the interpreter. 

Best of ail, BASIC Compiler does it with BASIC, the language you already know. 
By compiling the same source code that your current BASIC interprets, BASIC 
Compiler adds speed with a minimum of effort. 

And you get more BASIC features to program with, since features of Micro- 
soft's Version 5.0 BASIC interpreter are included in the package. Features like the 
WHILE.. .WEND statement, long variable names, variable length records, and the CALL 
statement make programming easier. An exclusive BASIC Compiler feature lets you 
call FORTRAN and machine language subroutines much more easily than in Level II. 

Simply type in and debug your program as usual, using the BASIC interpreter. 
Then enter a command line telling the computer what to compile and what options 
to use. 

Voila! Highly optimized, Z-80 machine code that your computer executes in a 
flash! Run it now or save it for later. Your compiled program can be saved on disk for 
direct execution every time. 

Want to market your programs? Compiled versions are ideal for distribution. 
You distribute only the object code, not the source, so your genius stays fully protected. 

BASIC Compiler runs on your TRS80'" Model I with 48K and disk drive. The 
package includes BASIC Compiler, linking loader and BASIC library with complete 
documentation $195.00 



1980 INCOME TAX PAC 

Completely Revised - Latest Tax Tables - Fully Tested - Complete Manual and Docu- 
mentation. The new version of the Income Tax Pacs are full of error catching codes 
making it impossible to make an error. Follow the simple Step By Step procedure that 
makes tax preparation simple. 

INCOME TAX PAC A (*19.95...Cassette) 

For Level II 16K Cassette Only 
Does Form 1040 and 1040A 

- Schedule A itemized deductions 

- Schedule B interest and dividends 

- Output to video display 

- Schedule TC tax computation 

INCOME TAX PAC B M9.95...Cassette or Diskette) 

For Level II 1 6K with or without printer...cassette or disk has all features of Income Tax 
Pac A Plus works with or without line printer. 

- Formats Form 1040 and 1040A for standard tax forms 

- Schedule C income from a personally owned business 

- Form 2106 employee business expense 

PROFESSIONAL INCOME TAX PAC C *99.95.. .Diskette 

For Level II 32K with disk and printer (optional) 

Has all features of Income Tax Pac B Plus automatic memory storage for income tax 

preparers. 

- 22 additional schedules and forms 

- Formats forms for individual or tractor feed printing 

MOD II CPA VERSION $199.95 



WINS 



AVERAGE PROFIT 



QUARAMTEED PROr-li g 1% p^cEs 32 % AT ALL TRACKS- 1978 

SHOWS 

THE HORSE SELECTOR II (FLATS) (By Dr. Hal Davis $50.00 

New simplified version of the original Horse Selector. The first Horse Selection System 

to actually calculate the estimated odds of each horse. 

HIGHER PROFTTS (OVER 100%) POSSIBLE THROUGH SELECTIVE BETTING ON: 

• Rates each horse in 10 seconds. 

• Easy to follow rules. 

• Can be used with any Apple D Computer. 

• 100% money back guarantee (returned for any reason). 

• Uses 4 factors (speed rating, track variant, distance of the present race, distance of 
the last race). 

• Using the above factors, the Horse Selector calculates the estimated odds. BET 
on horses whose actual payoff (from the Tote Board or Morning Lines) is higher 
than payoff based on estimated odds. 

• Using the above factors, the Horse Selector calculates the estimated odds. BET 
on any selected horse with an estimated payoff (based on Tote Board or Morning 
Lines) higher than calculated payoff (based on Horse Selector II). 

• Source listing for the TRSSO 7 ", TI-59, HP-67, HP-41 , Apple and BASIC Computers. 

• No computer or calculator necessary (although a calculator would be helpful for 
the simple division used to calculate estimated odds). 

FREE DutcMng Tables allows betting on 2 or more horses with a guaranteed profit 



NEWDOS/80 

A New enhanced NEWDOS for TRS80'" Model I for the 1980's 

Apparat Inc., announces the most powerful Disk Operating System for the 
TRS-80™. It has been designed for the sophisticated user and professional programmer 
who demands the ultimate in disk operating systems. 

NEWDOS/80 is not meant to replace the present version of NEWDOS 2. 1 
which satisfies most users, but is a carefully planned upward enhancement, which 
significantly extends NEWDOS 2. Is capabilities. This new member to the Apparat 
NEWDOS family is upward compatible with present NEWDOS 2. 1 and is supplied on 
Diskette, complete with enhanced NEWDOS + utility programs and documentation. 
Some of the NEWDOS/80 features are: 

• New BASIC commands that supports with variable record lengths up to 4095 
Bytes long. 

• New BASIC commands that supports with variable record lengths up to 4095 
Bytes long. 

• Mix or match disk drives. Supports any track count from 18 to 80. Use 35, 40 or 
77 track 5" mini disk drives or 8" disk drives, or any combination. 

• A security boot-up for BASIC or machine code application programs. User never 
sees "DOSREADY" or "READY' and is unable to "BREAK", clear screen, or 
issue any direct BASIC statement including "LIST." 

• New editing commands that allow program lines to be deleted from one location 
and moved to another or to allow the duplication of a program line with the 
deletion of the original. 

• Enhanced and improved RENUMBER that allows relocation of subroutines. 

• Powerful program chaining. 

• Device hanging for routing to display and printer simultaneously. 

• CDE function; simultaneous striking of the C, D and E keys will allow user to 
enter a mini-DOS to perform some DOS commands without disturbing the 
resident program. 

• Upward compatible with NEWDOS 2. 1 and TRSDOS 2.3. 

• Includes Superzap 3.0 and all Apparat 2.1 utilities. 
$149.00 

STOCK MARKET MONITOR 

Galactic Software Ltd. 

CASSETTE VERSION $89.00 

DISK VERSION $99.00 

1 . The system is designed for the active "trader" not the "long term" investor, as 
the system is "technically" oriented. 

2. For the TRS80™ Model I, Level II, 1 6K or more. Available in both disk and tape 
versions. 

3. Tracks user selected issues, in a technical system that reflects the issue's 
performance against the overall market. 

4. Set up data is input by the user from the Standard and Poors stock guide or 
Value Line. 

5. Daily issue data, "high", "low", "close" and "volume" are input from any news- 
paper containing this information. 

6. Dairy overall market, "volume" and "closing Dow" are also provided from a 
newspaper. 

7. Volume and price changes of an issue, as they compare to volume an price 
changes of the overall market, are the basis of this system's analysis of the given 
issue. 

8. Comparisons of the issue against itself are also done. This may allow the user 
to spot "unusual" activity on this issue. 

9. Clear indications are given as to whether the issue is "out performing", "under 
performing" or "performing" with the market. 

10. Complete video and printed output is provided. 

1 1 . This program is intended to be a guide to indications, and is not to be used as a 
sole recommendation to buy, sell or hold an issue. These decisions are the 
responsibility of the user and his brokerage. 



MATV«^A«nCAl. APf^JCATTCTsJS SEP*vTCE" 
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ORDER LINE 

(OUTSIDE OF N.Y. STATE) 

(800) 431-2818 



50 N. PASCACK ROAD 
SPRING VALLEY, NEW YORK 10977 

HOUR ^^^ 
ORDER ^g^"~ 
LINE ^^^^ 
(914) 425-1535 

ADD «3.00 FOR SHIPPING IN UPS AREAS 
ADD $4.00 FOR COD. OR NON-UPS AREAS 
ADD 55.00 OUTSIDE U.SA, CANADA & MEXICO 




*AH orders processed 

within 24-Hours rant ee 

* 30-Day money bacic s- 
on all Software 
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MODEL III 



* All orders processed within 24-Hours 
■k 30-Day money back guarantee on all TRSDOS Softwar 
• Add $2.00 for shipping in UPS Areas 
* Add $4.00 for COD or NON-UPS Areas 
* Add $5.00 outside U.S.A., Canada & Mexico 
* We will match any honafide advertised price 
in any of the Major Computer Magazines 



' TRS-80 is a trademark of Tandy Corp. 



(1) GENERAL LEDGER, ACCOUNTS RECEIVABLE, ACCOUNTS PAYABLE, PAYROLL, 

INVENTORY CONTROL AND INVOICING (Small Business Group), an extensive business 
system lor the serious user can be used one module at a time or as a coordinated system .... 
$199.95 per module. $1199.95 tor the complete system." 



(2) MASTER PAC 100 

STATISTICS MATH 



100 essential programs ...BUSINESS ... PERSONAL FINANCE. 
GAMBLING GAMES includes 125 page manual and 5 diskettes 

$59.95 



(3) BUSINESS PAC 100 100 essential business programs INVENTORY CONTROL... PAY- 
ROLL BOOKKEEPING SYSTEM STOCK CALCULATIONS . .CHECKBOOK MAINTEN- 
ANCE ACCOUNTS RECEIVABLE ACCOUNTS PAYABLE, includes 125 page manual 

and live diskettes $99.95 

(4) INFORMATION SYSTEM (The Bottom Shelf) An in-memory information system for small 

mailing lists, inventories (i.e. books, articles, records, program reference files) Can be used 

for anything that you would use rolodex or index card files Up to ten user define fields 

Programmable printouts for rolodex cards, mailing labels, etc Will identify all records that 

contain a group of characters you've entered even if that group is in the middle of aline Sorts 

data base by any field $49.50" 

(5) DATA MANAGER II (The Bottom Shelf) RANDOM ACCESS Disk based DATA MANAGE- 
MENT SYSTEM (Similiar to INFORMATION SYSTEM above but RANDOM ACCESS 

STORAGE expands the amount of storage space available) Used to replace index cards for 
medium sized mail lists, inventories, personnel records, sales prospects, etc Uses up to four 
disk drives on line.. ..Up to twenty user defined fields, programmable printouts for rolodex 
cards, etc will identify all records that contain a group of characters you've entered even if 

that group is in the middle of a line maintain up to 5 changeable presorted "key" files 

variable length random records (the smaller the record you define, the more records yu can 
store) $99.95* 

(6) BUSINESS MAIL SYSTEM (The Bottom Shelf). ..Handles large mailing lists (up to 150.000 
names), supports 3 or 4 line addresses files automatically in zip code order, alphabetical 
within zip code formats for 1 to 4 across mailing labels supports quick disk location of 

single or multiple names meets all industry and postal standards numeric code fields 

included for printing selected records $125.00* 

(7) ANALYSIS PAD (The Bottom Shelf). ... A Columnar Calculator for financial analysis, line item 
budgeting, cost analysis, sales analysis and almost any linancial function (and many statistical 

functions) create matrixes of 29 "39 make all entries at one time either by row or column 

add. delete, move or switch columns and rows edit any data from full screen display add. 

subtract, multiply and divide one column by another and put results in designated column (up 
to six calculations can be made and placed in designated column) define columns as con- 
stants save calculations and formulas on disk results can be printed in a variety of report 

formats $99.95* 

(8) CHECKBOOK II (The Bottom Shelf) ... A complete in memory checkbook balancing and 

reconciliation program five column keyboard input with 5 characters for check number. 16 

for payee. 4 for code, numerical sort routine $49.50* 

(9) CHECK REGISTER ACCOUNTING SYSTEM (The Bottom Shelf) A complete random access 

checkbook system set and define up to 60 accounts with as many income accounts as you 

choose complete checkbook balancing and reconciliation single entry input where 

transaction can be dispersed over several accounts enables user to make a 64-character note 

on each transaction., print out your own check after data entry prints monthly summaries of 

each account with month and year-to-date totals create a suspense file to remind you of 
coming expenses Reports generated included Check Register (for any month), notes to 
Check Register. Income/Expense Distribution Report. Statement ol Selected Accounts. Bank 
Reconcile Statement. Suspense File and Full Account Distribution Statement $74.95* 

(10) LIBRARY 100 (The Bottom Shelf) 100 Programs on a broad range of topics Finance 

Education Graphics Home Games CASSETTE VERSION $49.50 

DISK VERSION $74.95 

(11) ADVENTURE (by Scott Adams) A series of games (for ages 10-99) wander through en- 
chanted worlds seeking treasures ... 1 Adventureland 2. Pirate's Adventure .3 Mission 

Impossible Adventure 4. Voodoo Castle .5 The Count 6. Strange Odyssey 7 Mystery 

Fun House 8 Pyramid of Doom 9 Ghost Town (#1 and H2 recommended for the movie 

adventure) . Each adventure $14.95 (jon cassette) Diskette versions sold in groups of three 

at $39.95 per three programs (#1 - #3, #4 - #6. #7 - #9). 

(12) HORSE SELECTOR II (Dr. Hal Davis) New simplified version of the original Horse Selector 

(for flats) The first Horse Selection System to actually calculate the estimated offs for each 

horse easy to follow rules uses 4 factors (speed rating, track variant, distance of the 

present race, distance of the last race) calculated estimated odds... FREE DUTCHING 

TABLES allows betting on 2 or more horses with a guaranteed profit $50.00 

(13) MON-3 and MON-4 (Howe Software) Powerful utility programs enabling you to interact 

directly with your TRS-80 in MACHINE LANGUAGE The monitor comes with complete 

40-page instruction manual making it useful for both the beginner and advanced programmer .... 

simple commands make it easy to use functions include DISPLAY, DISASSEMBLE, MOVE 

and COMPARE. SEARCH, MODIFY, RELOCATE. PRINT, READ and WRITE, UNLOAD. SAVE 

and READ, INPUT and OUTPUT. SEND and RECEIVE MON-3 $39.95 (for cassette) 

MON-4 $49.95 (for disk). 



(14) SMART TERMINAL (Howe Software) 
to a time sharing computer system 



enables your TRS-6 



i to be used as a remote termina 
$69.9! 



(15) FAST SORT (Howe Software) a series of machine-language subroutines to sort data frorr 

BASIC programs data may be alphabetic (string) or numeric easily interfaced with youi 

BASIC programs (no machine language knowledge is necessary) $9.95 

(16) MAILING LIST (Howe Software) ... maintains mailing lists of over 1000 names, commands 
allow adding, changing, deleting, and finding names Sorting is done in machine language 
subroutine. ..labels printed in 1, 2 or 3 columns $69.9J 

(17) HOME BUDGET (Howe Software) combines the maintenance of your checkbook with 

analysis of your income, expenses and monthly bills Handles data including bills, income 
deposits, checks and debits to your checking account, and cash expenses. Computes check- 
book balance, list of unpaid bills, monthly and year-to-date summaries of income and expenses 

showing income tax deductions.. All output printed on video display or line printer comes 

with complete instructions manual $49.95' 

(18) SMALL BUSINESS ACCOUNTING (Howe Software) ..Based on the DOME BOOKKEEPING 

SYSTEM keeps track of all income, expenditures and payroll for a small business of up to 1C 

employees income and expenditures can be entered on a daily, weekly or monthly basis 

computes monthly and year to date totals manual contains complete instrucitons for custom- 
ization Cassette version $29.95 Diskette version $49.95 



(19) REMODEL-PROLOAD (Racet Computes) Renumber program lines. 

one part of a program to another 



move statements from 
$34.95 



(20) GSF (Racet Computes) Lightning fast in-memory machine language sort utility that can be 

made part of your BASIC progams without any machine language knowledge includes 

several other utilities to speed up your BASIC programs no machine knowledge necessary 

to use GSF in your BASIC programs $30.00 



(21) DOSORT (Racet Comp 
on multiple disk drives 



ites) includes GSF (above). 



extends the in memory sort to sorts 
$45.00* 



(22) COPSYS (Racet Computes) allows the user to make copies of machines language cassettes 

without any knowledge of machine language $20.00 

(23) COMRPOC (Racet Computes) an auto load program for disk users allows the user to 

insert a diskette into their MOD-MI and have the computer take over all loading load a 

machine language program, BASIC. RUN a certain program all without pressing a single button 

allows your computer to perform 10. 20. 30 or more functions without pressing a single 

button $30.00* 

(24) INFINE BASIC (Racet Computes) adds a variety of machine language subroutines to your 

BASIC programs (without any machine language knowledge) .... fast sorts matrix operations 

compress and uncompress data and more $60.00 

(25) INFINITE BUSINESS (Racet Computes) an addon package to INFINITE BASIC adds a 

variety of routines important to the businessman (increase accuracy of calculations and more) 

$30.00 

(26) DMS (Racet Computes) lightning fast machine language sort, sorts up to 4 disk drives of 

information $90.00* 

(27) BLINK (Racet Computes) ..allows you to RUN new programs without losing the variables 

stored in your previous program line many programs together without losing important 

variables $30.00* 

(28) KFS-80 (Racet Computes) now you can use ISAM (Index Sequential Access Files) on your 

MOD-MI using ISAM in your BASIC programs allows instant access of your items in your 
data files use with mail programs inventory programs etc. $100.00* 



(29) MAIL LIST (Racet Computes) 
access 
* FOR DISK ONLY 



.all routines are 



fiachine language allowing for quick 
$75.00 



: cqmpljtrqn:cs 



c9 



f^ATV-*&vlA T <^» l A*** I 



50 N. PASCACK ROAD 
SPRING VALLEY, NEW YORK 10977 



NEW TOLL-FREE 

ORDER LINE 

(OUTSIDE OF NY. STATE) 

(800) 431-2818 



HOUR 

ORDER 

LINE 



(914) 425-1535 



.'See List of Advertisers on page 306 
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TUTORIAL 



Part 1. 



An Idiot's Guide 

To Assembly Language 



Robert C. Montgomery 
67 Turtle Back Rd. West 
New Canaan, CT 06840 



There are some excellent books in cir- 
culation on assembly language pro- 
gramming; magazines carry helpful articles 
for the novice as well as for the pro; Radio 
Shack offers its Editor/Assembler and 
T-Bug with elaborate documentation. Sure- 
ly, with all that help available, even an idiot 
can become fluent in assembly language. 

Well, not this idiot! I have managed to 
gain a little skill in this area, but I did it 
through trial and error. I can do some things 
in assembler which are useful to me, but 
more importantly, I've reached the point at 
which I can understand the books and go on 
to develop real proficiency. 

If you're having trouble getting over the 
threshhold, stick with me through this two- 
part article. We're going to go from square 
one all the way to square two, step by step. 
Get a copy of Radio Shack's Editor/As- 
sembler, sit down at your TRS-80, and read 
on. 

Why Bother? 

It isn't an idle question. Level II BASIC is 
an excellent language; you can program 
anything in it, and you can program faster 
than in assembler, with less mindbenders 
to deal with along the way. There is really 
only one reason for working in assembly 
language: The machine code which assem- 
bly language produces executes as much 
as a thousand times faster! It also requires 
less memory for program storage, and it 
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puts you one up on your friends. But speed 
is the only real reason for going to all the 
trouble I'm about to describe to you. 

How important is speed? It can be very 
important if we're tracking incoming hos- 
tiles, or even crunching millions of numbers 
for the Controller's Department. In personal 
computing applications, however, it's most 
commonly needed in games. The user can 
drop dead of boredom while the machine is 
conducting a lengthy tree-search, or putting 
elaborate graphics on the screen, if such 
things are done in BASIC. 

Suppose that we want to program a foot- 
ball game. We'll need a playing field. We 
plan a scale of one horizontal tab space to 
two yards. We'll want two double-width hor- 
izontal lines, 50 yards apart, for the side- 
lines; two double-width vertical lines at 
each end for the end zones; and nine verti- 
cal stripes for the yard markers. We'll make 
the 50-yard line double-width, and the other 
yardlines single width, as shown in Fig. 1, 
and we'll place the upper left corner of the 
field at screen position 384, so the top of the 
screen can be used for a scoreboard and 
the game controls. 

Remembering that the goal lines are in 
the end zones, and that the sidelines are out 
of bounds, we might write the BASIC pro- 
gram shown in Fig. 2 to produce this result. 
Try it. You'll be amazed to find that the 
TRS-80 can do all that in only 3.4 seconds. 
But now visualize this as a subroutine in the 
game you're planning. You'll want to erase 
the entire screen for post-touchdown fire- 
works and to display game statistics on de- 
mand. 

The user playing games on his 80 doesn't 
want to sit around watching graphics get 
drawn; he wants to get on with the job of 
clobbering his opponent. Will assembly lan- 
guage improve this? You better believe it. 
Before we're done, we're going to draw a 



complete football field so fast that you 
can't see it happen. 

Using EDTASM 

Begin by getting familiar with the opera- 
tion of the Radio Shack Editor/Assembler: 
Load the tape as the manual instructs, us- 
ing the name EDTASM after the System 
command. When the asterisks stop blink- 
ing, respond /, and TRS-80 EDITOR/AS- 
SEMBLER 1.2 will appear. You'll then see 
an asterisk. That is EDTASM's prompt, 
equivalent to the greater than sign in 
BASIC. Now look at the Commands sec- 
tions of the manual. Here are the corn- 
manual. Here are the commands which will 
be important to use at this stage: 
• A Assemble source currently in buffer: 
Try A, and see what happens. It says NO 
TEXT IN BUFFER. Well, that makes sense. 
We just turned it on. But what is "source", 
what is "text", and what is a "buffer"? 

EDTASM is a program which permits you 
to write in a language called assembler, to 
edit and correct your work, and then to re- 
cord it on tape. It also translates your as- 
sembly language program into machine 
language, and permits you to record that as 
well. 

The assembly language program is also 
called the text or source code, and the ma- 
chine language program is also called the 
object code. The process of translation 
from text to machine language is called as- 
sembly. 

The buffer is a segment of TRS-80 mem- 
ory which holds the text while you are enter- 
ing and editing it. When you press A, the 
text is assembled into machine code which 
the TRS-80 can read through the SYSTEM 
command and which, with a little bit of luck, 
it will execute to draw our football field. 
Both the text and the machine code are 
stored in memory while EDTASM is in oper- 



INCOME TAX SYSTEM 

FOR TRS-80* MODEL I, II or 



In the tax season just completed, our system, running on the magnifi- 
cent line of TRS-80 computers, prepared thousands of lightning-fast, 
error-free tax returns a day in accounting offices nationwide. 

Why not in yours? The investment is minimal. Our system requires no 
special operator training. Runs on your TRSDOS, nothing else to buy. 

Features no other tax system, for any computer, has— 

1. Full interactive user control, in tax-form language only, line-by-line. 

2. Screen display of full 1040 and all schedules, prior to printout. 

3. All formats IRS and State approved. 

4. Schedule amounts automatically entered on Form 1040. 

5. Your Preparer's Information automatically printed at bottom of Page 2, Form 1040. 

6. Built-in Validation Check tests entire system, hardware and software. 

7. Special printer adjustment routines: Margin Offset, Text Position, etc. 

8. Fills in pre-printed forms (we supply) or use overlays. Your choice. 

9. AUTOMATICALLY COMPUTES: Tax — Earned Income Credit — Maximum/Minimum Tax — 
Least Tax Method —All Percentage of Income Limitations — All Fixed Limitations. 

DOES INCOME AVERAGING IN EIGHT SECONDS! 

10. Full support through the tax season, no charge. 

11. Inexpensive yearly updates in accordance with tax-law changes. 

12. Modular construction— Lets you order the type and size system you need. 

Prices start at $237,95 (1040 & Schedule A) 
25-page Descriptive Manual - $7.50 

(Refundable on order) 

MINIMUM SYSTEM REQUIRED: 

Model I, 48K, 1 Disk Drive „io 

CONTRACT SERVICES ASSOCIATES 

706 SOUTH EUCLID • ANAHEIM, CA 92802 
TELEPHONE: (714) 635-4055 



•TRS-80 is a trademark of Tandy Corp. 



sSee List of Advertisers on page 306 
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1562 gene traymham disc 
3 hel cond. 5-8 mr 

SAVE MONEY 
ON 5V4" 

DISK DRIVES 

CABLE EXTENDER CARD $10 

40 Track Siemens, double density, assembl- 
ed and tested, with grey textured finish case 
and power supply. 

"FLIPPY" SPECIAL 
ONLY $349. 00 Cash or Check 
Includes cable and DOS 
4116 250NS 8/$25 ^ 

COMPUTER SALES & SERVICE 

P.O. Box 26352 

5819 Camp Bowie Blvd 

Fort Worth, Texas 

817-731-7412 




™TRS80 color 

From the January 1981 issue of the CSRA Computer 
Club newsletter: 

There was some amusement at the Novem- 
ber meeting when the Radio Shack repre- 
sentatives stated that the software in the 
ROM cartridges could not be copied. This 
month's 68 Micro Journal reported they had 
disassembled the programs on ROM by 
covering some of the connector pins with 
tape. They promise details next month. Never 
tell a hobbyist something can't be done! This 
magazine seems to be the only source so far 
of technical informations on the TRS-80 color 
computer 1 *. Devoted to SS-50 6800 and 
6809 machines up to now. 68 Micro Journal 
plans to include the TRS-80 6809 unit in 
' future issues 

NOTE: This and other interesting and needed articles 
for the Radio Shack TRS-80 color computer '"are being 
included monthly in 68 Micro Journal— The Largest 
specialty computer magazine in the world! 

68 MICRO JOURNAL 

301$ HanHII Road 

HIXSON, TN 37343 ,^91 

Foreign Ordara-Add: 

Air Mall $35 00 :ta Surtac »12.0O/Saar 

1-Yaar 1 1 8.50 2-Yaara 132.50 

3 Yun S4I.S0 

Canada a Maxlco Add $5.50 Par Yaar 

to USA Subacripbon Rata 



INCOME TAX PROGRAM 



FOR RADIO SHACK 
^ TRS-80™ 

g£f MOD.I, LEVEL II 
COMPUTERS 




CASSETTE 



TRS-80 is a registered trademark of Tandy Corp. 

Save time, guesswork. Program takes income, 
deductions, cap. gains, etc. and computes adj. 
gross income, s.e. tax, FICA and taxes due. 
Great for year-round tax spot check, too! 

STOCK CHARTING. Let your computer 

draw your chart. 8K 15.95 

TAX INFO. FILE & BUS. MILEAGE 8K 10.95 
Add $4 for disk 

MAIL LIST, LABELER. Disk only 32K 24.95 

Add $1.50 handling inc. disk 



BAP$ 



SOFTWARE <^52 

6221 Richmond, Suite 220 
Houston, Texas 77057 
783-3433 



ation. 

• B Return to BASIC in ROM: Don't do it 
unless you mean it. If you do, you'll have to 
reload EDTASM again, and both versions of 
the program you're working on will be 
erased. The NEW command in BASIC is 
very similar. 

• I Insert a source line: You have to tell the 
computer where to insert it. 1100, for exam- 
ple, tells it to insert it at line 100. 1 also has 
the features of AUTO in BASIC. 1100 pro- 
vides lines starting at 100 with the default 
increment of 10. 1100,50 starts at 100, with 
increments of 50. 

• E Edit a specified command: What they 
mean is, edit a specified line. E100 permits 
you to edit line 100. The subcommands— I, 
H, C, and others— are nearly identical to 
those you use in BASIC. 

• R Replace line currently in buffer: R100 
wipes out the text in line 100. The line num- 
ber remains, and you can proceed to enter 
new text from the beginning of that line. 

• W,L Write (W) or Load (L) a text file to or 
from tape: CSAVE or CLOAD, in other 
words. It's the text that is loaded and saved 
and not the machine code. 

• H,P Print a specified range of source 
code to line printer (H) or screen (P): LLIST 
and LIST, in other words. But you can't sim- 
ply use P or H, except to list the current line 
only. You must specify which line you want, 
using P100:500, for example. Why a colon 
instead of a comma, as required in I? Who 
knows? 

• Horizontal tab: Works just as it does in 
BASIC, but it's important in assembler. As 
you'll see, elements of a line of text are sep- 
arated by their tab positions. 

Unless you're a lot smarter than I, you 
have some unanswered questions. For ex- 



ample: 

1. How do you stop entering lines? You 
use break. In fact, you almost always use 
break when you want to stop what you're 
doing and start something else. 

2. How do you exit from the edit mode? 
Press enter. You can also use E, as in BA- 
SIC, but why bother? 

3. How do you start entering lines? You 
use I, even though there are no other lines 
to insert the new one between. Use 1100, 
for example, ifyouwantthefirstlinetobe 
line 100. 

4. How do you run the program you've 
written? With EDTASM in use, you can't. 
EDTASM simply creates the machine 
code which the computer can later exe- 
cute, and the text can not be run under 
any circumstances. In order to run your 
program, you must: 

a. Record the machine code on cas- 
sette. 

b. Exit EDTASM (using B, or the off-on 
switch). 

c. Load the machine language tape in- 
to the TRS-80, using the System com- 
mand. 

d. Respond to the *- prompt with /, as 
you did to run EDTASM. 

5. How do you record the machine code? 
There's no command for that purpose. 
When you use A to assemble the text into 
machine code, the screen will display 
READY CASSETTE. Get a cassette ready 
to record, then hit any key. If you don't 
want to record after assembly, press 
break. 

6. System requires a program name. How 
do you give your program a name? 
Instead of using A, use A MYPROG, or 
whatever you want to call it. If you use A 



Fig. 1 
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Why Do 



BECAUSE 

• Unique soltware • Technical support • Quick 
delivery • Established company • Release 2 
CP/M ' (some packages under UNIX' and TRSD8S ) 

• Quality soltware • In-house expertise • Fast 
response • User orientation • Competitive prices 

• Customer service • Ushalim* 6 media • Onyx 
hardware (CP/M and UNIX version 



Prefer 



BECAUSE 

Unique swift routing cybernetics response system 
gives you no-nonsense technical answers that save 
you time. Call: (714) 848-1922. 




Business 
Medical 
Real Estate 
Computer Systems 



• NEW RM. COBOL applications: 

• Order Entry/Inventory • Receivables • Payables • 
General Ledger • Financial Modeling • Client Account- 
ing— and more on the way! 

• NEW CBASIC2* applications: 

• REAP (Real Estate Acquisition Package). 



Software from Cybernetics? 



RM/COBOL— The new standard tor microcomputer COBOL!! The only COBOL 
for CP/M (also on TRSDOS & UNIX) with alternate keys (multi-key ISAM), CRT 
screen handling, Interactive debug, and the most useful Level 2 features. Compat- 
ible with RSCOBOL*— but runs faster. 



TRS-80 5 , Model II CP/M— The fastest Mod II CP/M with the most features. Out- 
standing teaching documentation for newcomers to CP/M, multiple CRT emula- 
tion, down loading package, support tor CORVUS 10 Mb hard disk. Many addi- 
tional user-oriented features. 



Plus existing CBASIC2 packages 

APH' (Automated Patient History) 

Osborne & Assoc -Payroll • Payables/Receivables 
• General Ledger 

NAD" (Name and Address) 

PMS (Property Management System) 
Inquire for details 

Trademarks of Ryan-McFarland Corp . Compiler Systems. Ii 
Telephone Laboratories. Inc. Tandy Corp. 'Verbatim, inc. 
tured Systems Group. Inc . 'Small Business Applications. Inc 



And system software packages 
MAGIC WAND 5 Editing/Word Processing 
CBASIC2 Compiler BASIC 
QSORT" Soft Merge Package 



c . 'Digital Research 'Bell 
Cybernetics. Inc . "Struc- 



Distributed in U K by 

Microcomputer Applications Ltd 

11. Riverside Court. Caversham. Reading. England 

TEL (0734) 470425 




eQr s .lS-l5.l.R|NiELT Li . L c L s 



8041 Newman Ave . Suite 208 
Huntington Beach. CA 92647 
(714) 848-1922 



LOWEST PRICES 

ON THE 



Pan - onthe 1i Ui. 

American 

Electronics 




Computers 
For Business, Learning and Entertainment 



INCORPORATED 




For More Information Call 

TOLL FREE ORDER NUMBER 

800-531-7466 

Texas & Principal NUMBER 

512-581-2765 

Telex Number 767339 

Dept. 80, 1117 Conway 

Mission, Texas 78572 



sSee List of Advertisers on page 306 
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1000 P = 15360 :CLS 

1010 FOR I =384 TO 444: POKE P + 1,131 : NEXT 

1020 FOR I = 896 TO 957: POKE P + 1,1 76: NEXT 

1030 FOR I = 384 TO 896 STEP 64 : POKE P + 1,191 : POKE P + I + 5,191 : 

POKE P + I +56,191 : POKE P + 1 +61,191 : NEXT 

1040 FOR I =394 TO 414 STEP 5 

1050 FOR J =0 TO 512 STEP 64 

1060 IF J =0 POKE P + 1,171 ELSE IF J = 512 POKE P + 1 + J.186 ELSE POKE 

P + I+J.170 

1070 NEXT J,l 

1080 FOR I =415 TO 435 STEP 5 

1090 FOR J =0 TO 512 STEP 64 

1100 IF J =0 POKE P + 1,151 ELSE IF J = 512 POKE P + I + J.181 ELSE POKE 

P + I+J.149 

1110 NEXT J, I 



Notes: Time requirement 3.4 seconds 
Memory requirement 378 bytes 

Speed can be improved slightly and memory significantly 
by compression and other optimization. 



Fig. 2. Drawing a Football Field in BASIC 



alone, the program will have the default 
name NONAME. Why a space, instead of 
a comma or a colon? Who knows? 
7. Suppose the machine code needs cor- 
rection. What do you do then? You must: 

a. Reload EDTASM. 

b. Reload the text (using L). 

c. Edit. 

d. Re-assemble and re-record text and 
machine code, because this is not the 
last time you'll have to edit. 



Hex 


= 5A9E 








5 = 5 x 


4096 = 20480 






A = 10 x 


256 = 2560 






9 = 9 x 


16 = 144 






E = 14 x 


1 = 14 
23198 




Decimal =23198 






Fig 


3. Hex to Decimal Conversion 


Decimal = 23198 








23198/4096 = 


5 (carry 2718) 


5 = 5 




2718/ 256 = 


10 (carry 158) 


10 = A 




158/ 16 = 


9 (carry 14) 


9 = 9 




14/ 1 = 


= 14 


14 = E 


Hex = 


-- 5A9E 






Fig. 


4. Decimal to Hex Conversion 



e. Exit EDTASM. 

f. Load the machine code, using SYS- 
TEM. 

g. Run it, using /, discover more errors, 
and reload EDTASM to begin again. 

8. Isn't that a lot of work? Yes, it is. It is a 
very awkward system. In fairness to Ra- 
dio Shack, the companion T-Bug program 
permits you to run, edit and re-run with- 
out all of these saves and loads, although 
you'll have to edit the machine code di- 
rectly without the help of assembly lan- 
guage. 

Hexadecimal Numbers 

Hex is a base 16 numbering system, 
whereas decimal is base 10, and binary is 
base 2. Hex and decimal numbers are the 
same from zero to nine. Decimal 10 is hex A, 
decimal 11 is hex B, and so on through 
decimal 15 (hex F). 

We will deal only with positive integers, in 
the range of through 32767, which is 
through 7FFF in hex. We need to know how 
to convert numbers in this range from hex 
to decimal and back again. One way is to 
buy a specialized calculator, which makes 
these conversions automatically. Doing it 
by hand is merely time-consuming and an- 
noying—not really difficult. 

To convert from hex to decimal, simply 
multiply the right-hand digit by 1, the next 
digit by 16, the next by 256, and the left- 
hand digit by 4096. Add the results, as 
shown in Fig. 3. From decimal to hex, re- 
verse the process, as shown in Fig. 4. 

When you're using EDTASM, hex num- 
bers must have the suffix H (as in 5A9EH), 
and hex numbers beginning with a letter 
(like FFF9H) must be prefixed by a zero digit 
(0FFF9H). I will use both these conventions. 



Assembly Language Statements 

Assembly language requires line num- 
bers, and each line must contain state- 
ments of specific types, subject to exact 
rules of syntax. Assembler uses short (two, 
three or four letter) mnemonics, so called 
because they are supposed to suggest their 
own meaning. ADD succeeds admirably in 
this, and LDIR does not. 

Take a look at the center section of the 
EDTASM manual. You'll see a frightening 
array of these mnemonics. You will have to 
learn only a few of them for the project in 
hand. You'll also see references to reg- 
isters, like A, C and HL. These are tem- 
porary storage places. We can put a value in 
a register, add to it, subtract from it, and 
retrieve it for future use. In BASIC, for ex- 
ample, we might write: X = 10. We could 
then use the value of X later in such ways 
as:Y = X + 1,orX = X + 5. 

In BASIC, a symbol table is set up by the 
computer, containing the names of all the 
variables and the locations in memory 
where their values are stored. When we ref- 
erence a variable named X (as in Y = X + 1), 
for example, the computer goes to the ta- 
ble, finds that the value of X is stored in 
location 18234, and uses that value to com- 
pute the value of Y. It then sets up an entry 
in the table to show where Y is located, and 
stores the value of Y in that place. 

In assembly language, we don't have the 
luxury of naming variables (nor do we have 
to pay for that luxury in slow execution). In- 
stead, we have to tell the computer where to 
store each value. If we want to use it again, 
we will have to tell the computer where to 
find it. 

Values can be stored in two places: In a 
register, such as the A register; or in a 
specific place in memory, such as location 
18234, or 473AH. A register can also point to 
a place in memory at which the value is 
stored. 18234, for example, could be stored 
in a register, and the computer then told to 
use the value whose location is contained 
in that register. 

To store the value of 10 (decimal) in regis- 
ter A, we might use the following text: "LD 
A,0AH", which means "Load the value AH 
into register A". Note the prefix, (neces- 
sitated because AH starts with a letter), and 
the tab between LD and A,0AH. Finally, note 
that the name of the register comes from 
first and the value follows, separated by 
commas. 

Alternatively, we could write: 
"LD A,(473AH)", which means "Load the 
value to be found in location 473AH into 
register A". The location is in parentheses, 
which tell the computer that this is the loca- 
tion at which the value will be found, rather 
than that this is the value itself. 
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1110 

00110 LD A.58H 

00120 LD (3CF0H),A 

TION 15600 = 3CF0H 

00130 

•— (after pressing break) 



;"X" = 88 = 58H 
;SCREEN LOCA 



Fig. 5. Screen After Program Entry 



LD A.58H ;"X"=88 = 58H 
LD (3CF0H),A ;SCREEN LOCA 



*A 

0000 3EF8 00110 
0002 32F03C 00120 
TION 15600 = 3CF0H 
NO END STATEMENT 

00001 TOTAL ERRORS 

READY CASSETTE 

*— (after pressing break) 



Fig. 6. Screen After Assembly 



Can we write: "LD (473AH),0AH", 
meaning "Load AH into location 473AH"? 

We cannot— don't ask me why. We have 
to do it in two steps: 

LD A,0AH 

LD (473AH),A 

It is characteristic of assembly language 

programming to make things harder for the 

programmer, and easier for the computer. 

One final complexity. Could we write: "LD 
A,473AH", meaning "Load 473AH into 
register A"? 

Again, we cannot. Single registers, such 
as A and C, can handle only one byte at a 
time— integers between and 255. 473AH 
requires two bytes. Assembler gives us a 
break here, however. We need two registers 
to handle two bytes, and we can accom- 
plish this automatically by referring to a 
pair of registers. 

Thus, in order to put AH into location 
18234, we could write: 

LD HL.473AH 

LD (HL),0AH 

which means "Load 18234 into register pair 

HL, then load AH into the location found in 

register pair HL." 

These simple statements are all we need 
to draw that football field. 

PRINT X 

In BASIC or assembler, to print the letter 
X on the screen, the character value 88 
(ASC("X") = 88) is loaded into one of the 
TRS-80's screen memory locations (15360 
through 16383). Where it prints depends 
upon which of these locations we select. 
(Let's use location 15600, which is toward 
the top right of the screen. That's 3CFOH, 



and 88 is 58H.) 

Your screen has been idle for some time, 
and it still reads NO TEXT IN BUFFER, *_. 
Respond to that prompt with 1110, and you 
see 001 10 appear. EDTASM is ready for line 
110 of our text. Type in the code shown in 
Fig. 5, using the tab arrow to line up the col- 
umns. Note the comments in the last col- 
umn preceded by semicolons, which are the 
equivalent of REM or apostrophe in BASIC. 
Check your entries against Fig. 5. Edit if 
necessary. Now press A and, when you see 
READY CASSETTE, press Break. The 
screen should look like Fig. 6. 

What is 00001 TOTAL ERRORS? You'll be 
glad to know that there are 00003 total er- 
rors, and not just 00001, but EDTASM has 
identified only 00001. (I like the way the de- 
signer provided for 99999; it gives us a feel- 
ing for his confidence in our skill). Here are 
the three: 
1. The left-hand column lists the loca- 
tions in which the machine code is to be 
stored in memory, beginning with 0000. 
Unfortunately, that can't be done, it's the 
very beginning of BASIC ROM, and we 
can't write into that area. Pick a place in 
RAM which is not otherwise inhabited; 
it's best to pick a place which will not in- 
terfere with any BASIC program we may 
want to use in conjunction with the ma- 
chine language program. 

MEMORY SIZE? 32610, for example, 
sets aside memory locations 32611 
through the end of RAM (32767 in a 16K 
machine) for machine language pro- 
grams stored through the SYSTEM com- 
mand. 

To specify where the program is to re- 
side, assembler provides the statement 
ORG. Type 1100 to insert an additional 
line 100 at the beginning of the program, 
and then enter the following: 

00100 OR6 7F63H :STORE AT 3261 1 = 7F63H 

2. Level II BASIC does not require an END 
statement, but assembler does. Insert a 
new line 140: 

00140 END 



3. The program as it is now written will 
work correctly, but we'll never know it. 
The X will print at location 15600, but the 
program will be completed and the 
TRS-80 returned to its power up condition 
so fast that we'll never see the X. An end- 
less loop will stop the program before the 
END statement, like "130 GOTO 130" in 
BASIC. Insert a new line 130: 

00130 LOOP JP LOOP ;ENDLESSLOOP 

That's the first time we've used the tab 
field immediately following the line number. 
It's used for labels— named places in mem- 
ory whose actual location EDTASM will 
compute and remember. JP means Jump, 
and the place to which the program jumps 
is found in the fourth column: In this case, 
the place in memory named LOOP. 

During execution, the computer finds the 
label called LOOP, and makes note of its lo- 
cation. When it encounters JP, it looks to 
see where it should JP to, finds that it 
should JP to a location named LOOP, does 
so, and repeats the process endlessly. 

Press A again. Your screen should look 
like Fig. 7. Instead of pressing Break, this 
time load a fresh cassette into your re- 
corder, set it to record, and hit any key to 
save the machine language version of the 
program on cassette. Advance the tape a 
few clicks and remember the place. Press 
record again, and enter W on the keyboard. 
The text version of the program will be 
saved on the cassette beginning at the sec- 
ond location. You don't have to save the 
text, but you'll have to reenter it by hand if 
you don't. There's no way to reload the 
machine language version into EDTASM. 

Exit EDTASM (using B). Rewind the cas- 
sette to the beginning. Press play. Respond 
to MEMORY SIZE? with 32610, and then 
enter SYSTEM. You'll see the prompt ?— , 
which means that the computer wants the 
name of the machine language program it is 
to load. Since we gave it no name, enter the 
default name NONAME. 

After it loads, you'll see another ?— 
prompt. Respond /32611, which means "Ex- 



A" 










7F63 


00100 


ORG 


7F63H 


;STORE AT 32 


611=7F63H 










7F63 3E58 


00110 


LD 


A.58H 


;"X"=88 = 58H 


7F65 32F03C 


00120 


LD 


(3CF0H),A 


;SCREEN LOCA 


TION 15600 = 3CFOH 










7F68 C3687F 


00130 LOOP 


JP 


LOOP 


;ENDLESS LOO 


0000 


00140 


END 






00000TOTAL ERRORS 










LOOP 7F68 










READY CASSETTE 












Fig. 7. Screen After Revised Assembly 
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ecute the program beginning at memory lo- 
cation 3261 1 ", which is the 7F63H we speci- 
fied as the ORG in line 100, and, by golly, we 
have an X on the screen. It appears in addi- 
tion to the other contents of the screen be- 
cause our program did not contain a screen 
clearing instruction. 

After you've admired that X for a suf- 
ficient length of time, you'll find something 
else our program did not contain: a way to 
stop. It continues to churn back and forth 
from the beginning of line 130 to the end of 
line 130, and back again. To exit, you'll have 
to press the reset button. 

What does the machine code look like? 
One way to find out is to PEEK into the 
memory locations in which it is stored. 
Press that reset button, if you have not al- 
ready done so. Enter: FOR 1=32611 TO 
32622 : PRINT PEEK (I); : NEXT. You get: 

62 88 50 240 60 195 104 127 255 255 255 255. 

Translate those decimal numbers into hex, 
omitting the 255's (they are simply nulls re- 
maining after the end of the machine code). 

You get: 3E 58 32 F0 3C C3 68 7F. 



A 



HATCH A PLOT 

WITH YOUR TRS-80* 

Use ESP the Educated Slave Processor 




■ Self-co 
• Connei 

■ Convei 
l Plots V 
t Buffer; 



ting control features 
;ained microprocessor 

I TRS-80" master computer to user supplied X-Y Recordei 
commands to voltage outputs 
tors. dots. X and Y axes, and ASCII characters 
:ommands to optimum speed of recorder 

* Price is $450. 

t Manual sold separately for S10. 

* Manual price refundable with purchase of unit 

Or Use MICRO-PEN Software 

* ESP capabilities except buffering 

* Runs in TRS-80' computer 

+ Requires user-supplied D/A and pen control interfaces 

* Price is $99 on diskette 

+ Schematic and parts information provided for electrical interface 

For additional information, write to: 

Epsilon Systems 

969 Crown Ave. 

Santa Barbara, CA 93111 



1^-487 



Look back at the text of the assembly lan- 
guage program in Fig. 7. These hex num- 
bers are identical with those appearing in 
the second column. This is the machine 
code representation of the mnemonics, reg- 
ister names, values and locations we speci- 
fied in the text. When you loaded NONAME 
into the machine, it placed these codes in 
locations beginning at 32611. PEEK pulled 
them out and translated them into decimal. 

That's all there is to the machine 
code— no line numbers, no comments, no 



mnemonics, just these codes. There are on- 
ly eight of them, and that means that the 
memory required to store this exciting pro- 
gram is only eight bytes. 

Of course, the program didn't do much, 
either. But our illustrative BASIC program 
took 46 bytes to do the same inconsequen- 
tial job, and would take 27 bytes even if op- 
timized. We can't see much difference in 
speed yet — how long could it take to print 
an X? But we will, in Part II of this article.H 



NEW FROM MANHATTAN 

FOR MODELS I AND III — MANY NOW ON DISK 

casino blackjack /counter Learn to beat the dealer, or just play for fun, with 
this most realistic simulation of a casino table ever put on the TRS-80 screen. Does 
card counting really give the sharp player an advantage? How should you play each 
type of hand? The program gives you the card count after each hand, plus a rec- 
ommended bet, and deals tirelessly, i/lli TBJ/C $14.95 

TBJ/D $19.95 

GIN RUMMY 3.0 The classic computer Gin Rummy game is now even better, with 
card graphics and faster playing time. Plays a full regulation game, changes 
strategy to counter your play, allows rearrangement of your hand on i^ each turn, 
keepsscoretogamelevel. l/lll 

CRIBBAGE MASTER Great graphics and strong play, l/lll 



CALCULATOR PLUS makes your TRS-80 a printing calculator, l/lll 
CHECKBOOK PLUS handles the details of bank statements, l/lll 
CALCULATOR & CHECKBOOK both on one cassette or disk, l/lll 

E.S.P. LAB Do you have ESP? Scientific/fun program. Mod I 
THE LISTMAKER ll 400 names & codes in 16K, prints lists. Mod I 
CONCENTRATION Classic matching game, graphics & sound. Mod I 



TGR/C $16.95 

TGR/D $21.95 

TCM/C $12.95 

TCM/D $17.95 

TPC/C $ 9.95 

TCB/C $ 9.95 

TCC/C $14.95 

TCC/D $19.95 

TPL/C $ 9.95 

TLM/C S 9.95 

TCO/C $ 9.95 

TCO/D $14.95 



LABYRINTH RUN Fascinating /frustrating test of skill, l/lll TLR/C $ 9.95 

California residents add 6% sales tax. 

.^^^^, 24-hour credit card order hotline: (21 3) 454-8290 

•'--^* write for full catalog of TRS-80 and Atari software. (/ ~ 

VISA | I'McntwCc 

MANHATTAN SOFTWARE - 90 L^ 



P.O. Box 35, Pacific Palisades, CA 90272 




BRAND NEW, TOP QUALITYJXACT REPLACEMENT RIBBONS 
FOR ALL OF THE DOT MATRIX *IRS-80; & CENTRONICS PRINTERS: 

Your 
Wholesale Price ITEM NUIT1BER 



Send order blank below & 
PAYMENT(Min.$20) TO: 



Your PRINTER 

TRS-80 LINE PRINTER II 
TRS-80 LINE PRINTER III 
TRS-80 TRACTOR FEED 
CENTRONICS MODS 700-704 
CENTRONICS #730 
CENTRONICS #737 
CENTRONICS #779 



RETAIL LIST 

18.95 + Tax (3 PACK) 
21. 95 + Tax (IN CART) 
18.95 + Tax (3 PACK) 
18.95 + Tax (3 PACK) 
18.95 + Tax (3 PACK) 
18.95 + Tax (3 PACK) 
18.95 + Tax (3 PACK) 



11.95 PER 3 PACK 

9.95 PER (RIBBONS ONLY) 
11.95 PER 3 PACK 
11.95 PER 3 PACK 
11.95 PER 3 PACK 
11.95 PER 3 PACK 
11.95 PER 3 PACK 




ANCIE LABORATORIES 

9202-9206 BALTIMORE BOULEVARD 
COLLEGE PARK. MD 20740 

(301) 345-6000 
Volume Discounts: 
10%, 10-36 packs 
15%, 37-100 



1 MINIMUM ORDER: $20.00 No shipping charges or taxes. 

PLEASE SEND ME: 0700, 3 RIBBON PACKS & T"3 RIBBONS. 



I WILL USE THESE RIBBONS ON 

$ ENCLOSED • 

Name 

Address 



SEND C.O.D. ( 



.PRINTER. 

) 



City, State, Zip 



ANCIE LABORATORIES 9202-9206 Baltimore Blvd., College Park. MD 20740 301_-_345;6000_ j 




* TANDY CORP. T.M. 



Games from BIG FIVE will turn your computer into a 

TRS-80 HOME ARCADE 



SUPER 
N0VA @ 




GALAXY 
INVASION® 




ATTACK 
FORCE® 
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COSMIC 
FIGHTER® 




METEOR 
MISSION II® 



SMM 





NEW 
JOYSTICKS! 



If you and your TRS-80 have longed for a fast-paced arcade-type game that is 
truly a challenge, then SUPER NOVA is what you've been waiting for. In this 
two player machine-language game, large asteroids float ominously around the 
screen. Suddenly your ship appears and you must destroy the asteroids before 
they destroy you! (But watch out because big asteroids break apart into little 
ones.) The controls that your ship will respond to are thrust, rotate, hyperspace, 
and fire. All right! You've done it! You've cleared away all the asteroids! But what 
is that saucer with the laser doing? Quick! You must destroy him fast because that 
guy's accurate! 

The sound of the klaxon is calling you! Cruel and crafty invaders have been 
spotted in battle formation warping toward Earth at an incredible speed. Suddenly, 
your ship materializes just below the huge flock of invaders. Quickly and skillfully 
you shift right and left as you carefully fire your lasers at them. But watch out! A 
few are breaking out of the convoy and flying straight at you! As the whine of their 
engines gets louder, you place your finger on the fire button knowing all too well 
that this shot must connect — or your mission will be permanently over! With 
sound effects! 

Your TRS-80 screen has been transformed into a maze-like playfield for this 
game. As your ship appears on the bottom of the screen, eight alien ramships 
appear on the top. All of them are traveling at flank speed directly at you! Quickly 
and boldly you move toward them and fire missiles to destroy them. But the more 
aliens you destroy, the faster the remaining ones become. If you get too good you 
must endure the wrath of the keeper of the mazefield: the menacing "Flagship". 
You must destroy him fast because, as you will find out, that guy's accurate! With 
sound effects! 

With thousands of stars whizzing by you, your SPACE DESTROYER ship 
comes out of hyperspace directly under a convoy of aliens. Almost effortlessly, 
you skillfully destroy every last one. But before you can congratulate yourself, 
another set appears. These seem to be slightly more intelligent than the first set. 
Quickly you eliminate all of them, too. But your fuel supply ic rapidly diminishing. 
You must still destroy two more sets before you can dock with your space station. 
All right! The space station is now on your scanners! Oh no! Intruders have 
overtaken the station! You must skillfully fire your neutron lasers to eliminate the 
intruders from the station before your engines run out of fuel and explode! With 
sound! 

As you look down on your space viewer you can see the stranded astronauts 
that are crying out for you to rescue them. But first you must maneuver your 
shuttle down through the asteroids & meteors before you can reach them. Great! 
You've got one! But now can you get back to the space station to save your fellow 
shipmate or will you crash and kill both of you? You can fire your lasers to destroy 
the asteroids, but watch out, because there could be an alien FLAGSHIP lurking 
behind! Includes sound effects! 

For $39.95 it's now possible to have the famous ATARI joystick interfaced 
with your Model 1. All of our tapes are now completely compatible with the 
joystick. Packaged with complete instructions, you can even use it with your own 
programs! If your old tapes do not say "Joystick Version" on them and you wish 
to exchange them for new Joystick versions, enclose $2 and your old tape. (Call 
or write for info on Mod 3 joysticks.) 



BIG FIVE SOFTWARE 

P.O. Box 9078-185, Van Nuys, California 91409 

For MC/Visa or COD orders, call (213) 782-6861 from 9am-5pm Pacific time. 



^357 



Prices per game. Level 2, 16K Mod 1/Mod 3— $15.95 
Level 2, 16K Mod 1/Disk— $17.95 
10% discount for 2 items, 15% for 3 or more. (Including Joystick) 
Please add $1.50 postage/handling, Calif, residents add 6% tax. 
All games are written in machine language and supplied on cassette. 
Disk versions save high scores to your TRSDOS or NEWDOS diskette. 



Cassette versions require 16K memory, disk versions require 32K. 

We accept checks, money orders, and MC/Visa orders. 

All games ©1980 by Bill Hogue & Jeff Konyu. 

TRS-80 & TRSDOS are trademarks of Tandy Corp. 

NEWDOS is a trademark of Apparat, Inc. 

Dealer inquiries invited. 



GRAPHICS 



When white is black on the Model I. 



Inverse Video 



Brian D. Smith 

6770 Halifax St. 

Burnaby, B.C., Canada V5B 2R4 

Have you ever drooled over some of the 
other personal computers with their in- 
verse video cursors and their ability to dis- 
play some sections of the screen in black 
on white and others in white on black? 
Although Tandy decided that we did not 
need or want this feature, it is possible to 
add it to a TRS-80. 

With three ICs, one switch, and a lower- 
case modification, you can reverse any 
location or locations on the screen with a 
simple POKE. There is a "gotcha," however: 
You cannot have inverse characters and 
graphics on the screen simultaneously. 

I recently found an inverse character 
modification in a users' group newsletter. It 
used the eighth bit of each character (nor- 
mally used to indicate a graphics character) 
to identify an inverted character. I installed 
the mod and was quickly disappointed. The 
inverse field always appeared 1 Vz charac- 
ters to the left of the location inverted. The 
author had a clever program that got 
around this problem, but I thought, there 
must be a better way. 

A Modification Is Born 

I began by studying the circuit diagrams 
and descriptions in the TRS-80 Microcom- 
puter Technical Reference Handbook. Any- 
one planning to modify an 80 should have 
one; my explanation of the operation of the 
modification will assume you have a copy 
of the schematic from the handbook. 

I decided that the best method of decod- 
ing inverse characters is with bit 7, the 
graphics bit. This means graphics and in- 
verse characters will not be available at the 
same time. However, all alphanumeric char- 
acters can be reversed. Since the primary 
use of inverse characters will be with text, 
this seems to be the best compromise. 

Bit 7 must be synchronized with the other 
data bits. Looking at the 80's schematic, 



you will see on the second sheet that bits 
through 5 go from the video memory chips 
to Z28, and bits 6 and 7, along with some 
other signals, go to Z27. These two ICs are 
simply latches used to hold the data read 
from the video memory. 

Bits through 6 are then sent to both Z29 
(the character generator) and Z8 (the 
graphics generator). Up to this point, bit 7 is 
still in step with the other data bits. From 
Z29 and Z8, the data bits go to Z1 and Z1 1 , 
which are shift registers used to output the 
characters from the generators one dot at a 
time. 

Bit 7 is used to select which shift register 
accepts data, determining whether a nor- 
mal or graphics character is displayed. The 



problem is that bit 7 is only around long 
enough to load the shift register. By the 
time the dots are being output from the reg- 
ister, the values at the latches of all the data 
bits, including bit 7, are those for the next 
character to be displayed. The result is that 
the inverse video always appears one char- 
acter-width to the left of where you in- 
tended. 



Parts List 


Si 


DPDT switch 


Z10A 


74LS166 


Z26A 


74LS20 


742A 


74LS86 



Misc. thin-guage wire (wire wrap is ideal) 



10 ' INVERSE AND LOWERCASE VIDEO DRIVER SETUP PROGRAM 

20 CLEAR 100 

30 CLS 

40 ' GET THE CURRENT MEMORY SIZE 

50 MS = PEEK(16561) + PEEK(16562) * 256 

60 MS = MS - 49 

70 ' SET THE BASIC MEMORY SIZE 

80 POKE 16561, MS - (256 * INT(MS/256)) 

90 POKE 16562, INT(MS/256) 

100 M = MS 

110 IF M > 32767 THEN M = M - 65536 

120 ' LOAD THE DRIVER INTO HIGH MEMORY 

130 FOR I = M+l TO M+49 

140 READ N 

150 POKE I,N 

160 NEXT I 

170 ' SET UP THE ADDRESS OF THE INVERSION MASK 

180 MH = INT((MS+49)/256) 

190 ML = (MS+49) - (256*MH) 

200 POKE M+16,ML : POKE M+17,MH 

210 POKE M+21,ML : POKE M+22,MH 

220 POKE M+43,ML : POKE M+44,MH 

23 ' LOAD THE ADDRESS OF THE DRIVER INTO THE VIDEO DEV 

'ICE 
240 ' CONTROL BLOCK 

250 POKE 16414, (MS+1) - (256 * INT ( (MS+D/256) ) 
260 POKE 16415, INT ( (MS+1) /256 ) 
27 CLEAR 
280 END 
290 DATA 221, 11 

DATA 254, 127, 



4, 218, 154, 4, 
, 0, 238, 128, 5 



121 



3, 221, 102, 

32, 9, 58, 0, 
310 DATA 0, 0, 201, 221, 126, 5, 183, 40, 1, 119 
320 DATA 121, 254, 32, 218, 6, 5, 254, 128, 210, 166 
330 DATA 4, 58, 0, 0, 177, 195, 125, 4, 



Program Listing 2. Cassette based inverse video driver. 
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Figure 1. Inverse Video Schematic. 



The solution is to install a new shift regis- 
ter for bit 7, the inverse character signal. 
This new shift register, which I call Z10A, is 
run in parallel with Z10, so the inverse signal 
keeps pace with the character output. 

A complete description of how this modi- 
fication works follows (see Fig. 1). 

The DPDT switch is used to choose be- 
tween the normal graphics mode and the in- 
verse character mode. In the normal posi- 
tion, the bit 7 signals are passed through to 
Z26 as usual. In th e inverse m ode, DLY BIT 7 
is forced low and DLY BIT 7 is forced high, 
as when displaying alphanumeric charac- 



ters. When bit 7 is high, in inverse mode, pin 
2 of Z27 goes low. The difference between 
this signal and DLY BIT 7 (after the switch) 
is detected by Z42A, and pin 3 goes high. 
This signal is fed into Z10A. The high bits 
are then output in step with the bits from 
Z10. The two signals are then exclusive- 
ORed by Z42A. Since the output from Z10A 
is high, the character bits are inverted. 

When the switch is in normal position (bit 
7 is low), pin 3 of Z42A will be low, since both 
inputs are the same. This signal will be in- 
put to Z10A and stepped out as before. 
Since the output from Z10A is now low, 



when the exclusive-OR is done the charac- 
ter bits will be unchanged. 

Z26 causes Z10 to load alphanumeric 
data when the CLK, DLY BIT 7, DLY BLANK, 
and DLY L8 signals are all low. Z26A does 
the same for Z10A, but does not use the 
DLY L8 signal, because DLY L8 is used to 
generate the four blank rows beneath each 
character. It is ignored by Z26A so that 
those four rows will also be inverted. 

Lowercase is required to get inverse 
characters because when bit 7 is high in an 
unmodified 80, bit 6 is forced low. There- 
fore, all alphabetic inverse characters dis- 
play as inverse control characters. 

Installation 

The first step when installing the inverse 
character modification is to find a handy 
place to mount the normal/inverse switch. I 
found the most convenient location to be on 
the upper half of the case, on the down- 
ward-sloping section just back of the key- 
board. There is more than enough space be- 
tween the case and the circuit board on 
which the keys are mounted for a miniature 
toggle switch. 

The second step is to open up the S-80. 

Once the case is open, place the circuit 
board on a flat surface, component side up. 
Locate ICs Z10, Z26, Z27, Z30, and Z42. 
Make the modification following these 
steps: 

1. Bend all pins of Z10A, except 1, 2, 3, 6, 
7, 8, 9, and 16 into a horizontal plane. 

2. Bend all pins of Z26A, except 7, 9, 10, 
13, and 14 into a horizontal plane. 

3. Bend all pins of Z42A, except 7 and 14, 
into a horizontal plane. 

4. Solder Z10A into position on top of Z10, 
soldering the unbent pins of Z10A to the 
corresponding pins of Z10. 

5. Similarly solder Z26A on top of Z26. 

6. Similarly solder Z42A on top of Z42. 

7. Cut the trace between Z27 pin 3 and 
Z26 pin 4. 

8. Cut the trace between Z27 pin 2 and 
Z26 pin 10. 

9. Cut the trace between Z10 pin 13 and 
Z30 pin 3. 

10. Solder a wire from Z10A pin 4 to Z10A 
pin 5. 

1 1 . Solder a wire from Z10A pin 5 to Z10A 
pin 10. 

12.SolderawirefromZ10Apin10toZ10A 
pin 11. 

13. Solder a wire from Z10A pin 1 1 to Z10A 
pin 12. 

14.SolderawirefromZ10Apin12toZ10A 
pin 14. 

15. Solder a wire from Z10A pin 5 to Z42A 
pin 3. 

16. Solder a wire from Z10A pin 13 to Z42A 
pin 4. 

17. Solder a wire from Z10A pin 15 to Z26A 
pin 8. 

18. Solder a wire from Z42A pin 1 to Z27 
pin 2. 

19. Solder a wire from Z42A pin 2 to Z26 
pin 10. 

20. Solder a wire from Z42A pin 5 to Z10 
pin 23. (You may find it easier to attach 
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for the TRS-80 from Micro- Mega 



The Original GREEN-SCREEN 




The eye-pleasing Green-Screen fits over the front of your 
TRS-80 Video Display and gives you improved contrast with 
reduced glare. You get bright luminous green characters and 
graphics like those featured by more expensive CRT units. 
Don't confuse the Original Green-Screen with a piece of thin 
film stuck to the face of your video tube, such as that adver- 
tised by others. The Original Green-Screen is mounted in a full 
frame perfectly matched to the color and texture of the 
TRS-80 Video Display. It is attached with adhesive strips 
which do not mar your unit in any way. 
The full frame design of the Original Green-Screen "squares 
off" the face of your video display and greatly improves the 
overall appearance of your system. 

(Specify whether for Model I or Model III) 

THE GREEN-SCREEN $13.95 

Add $1.00 for postage and handling. 



THE ULTIMATE STAR TREK PACKAGE 








Tired of trivial computer games? This complete Star Trek 
package will provide you with endless fascination and 
challenge. In addition to the program cassette, it includes 
comprehensive instructions, a pad of "Voyage Log" record 
sheets, and a free-standing "Torpedo and Maneuvering 
Chart." 

The package is built around the latest version of Lance 
Micklus' incomparable Star Trek III, a 13,000 byte program 
with a host of subtle and imaginative features, which in- 
clude numerous dynamic and spectacular graphic displays. 
Star Trek III puts you in command of the Enterprise cruising 
in a galaxy of 192 quadrants filled with uncharted hazards, 
including hostile Klingons, pulsars, and black holes. You 
have at your disposal scanners, various weapons and 
defense systems, on-board computers, and a loyal crew. 
(You will need them all to survive the Klingons.) 
Your mission is to rid the region of Klingons and to locate 
five inhabitable planets, all within 300 stardays, before re- 
turning to Star Fleet Headquarters where your overall effec- 
tiveness as a starship commander will be scored. High 
scores are possible only with careful planning and effective 
battle tactics. The "Voyage Log" sheets will guide your 
strategy, and the "Torpedo and Maneuvering Chart" will 
give you a vital edge in combat. (When you engage three 
Klingon ships you can't afford to miss.) 



STAR TREK PACKAGE (for Level II. WKonly). 
Add SI. 00 for postage and handling 



.$22.95 



Terms: Check or money order, no CODs or credit cards, please. Add amount 
shown lor postage and handling to price of the item. All items shipped within 48 
hours by first class or priority mail. Virginia residents, add 4% sales tax. 



IS 



HARD CDPV 



STORAGE 

a problem? 



WrM^WiC^ 




foxte^i$wt 



Here's the ideal way to keep your 
growing collection of 80 Micro- 
computing in order! The 80 Micro- 
computing Library Shelf Boxes. 
. . . sturdy, corrugated, white, dirt-re 
sistant boxes will keep your issues of 80 Microcomputing orderly 
and available for constant reference. Self-sticking labels are 
available for the boxes, too, not only for 80 but also for Kilobaud/ 
Microcomputing, 73 Magazine, CQ, QST, Ham Radio, Personal 
Computing, Interface Age, Byte and Radio Electronics. Ask for 
whichever labels you want with your box order. Each box holds a 
full year of the above magazines. Your magazine library is your 
prime reference: Keep it handy and keep it neat with these strong 
library shelf boxes. One box (BX1000) is $2.00, 2-7 boxes (BX1001) 
are $1 .50 each, and 8 or more boxes (BX1002) are $1 .25 each. Be 
sure to specify which labels we should send. Shipping and han- 
dling charges are $1.00 per order. Call in your credit card orders 
on our toll free line 800-258-5473, or use the order card in the back 
of the magazine and mail to: 



m 



microcomputing 



Peterborough, 
NH 03458 



Please allow 4-6 weeks for delivery No COD orders accepted 



Micro- Mega - P.O. Box 6265 • Arlington, Va 22206 



m 



microcomputing 




BINDERS 

order 
yours 
today 



Keep your library of 80 Microcomputing safe from loss 
or damage in these handsomely appointed binders with 
rich dark green covers and gold lettering. Each binder 
holds 12 issues making an EXCELLENT REFERENCE HAND- 
BOOK. Several binders form a quality library you can be 
proud of. 

$7.50 each. . . 3 for $21.75. . . 6 for $42.00. . . 
Postage poid in USA. Foreign orders please include $2.50 for postage 

Specify 1980 or 1981 

Send check or money order only to: 
80 MICROCOMPUTING BINDERS 
P.O. Box 5120, Phila., PA 19141 

Allow 6-8 weeks for delivery. Please no C.O.D. orders, no phone orders. 
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00010 


♦♦A***************************************************** 






00020 


* LOWER CASE 


AND INVERSE CHARACTER DRIVER PROGRAM * 






00030 


* (DISK VERSION) 


* 






00040 


******************************************************** 






00050 










007F 




00060 RVCODE 


EQU 


7FH 


REVERSE CONTROL CODE 


401E 




0007 VIDEO 


EQU 


401EH 


VIDEO DCB ADDRESS 


4049 




00080 HIMEM 


EQU 


4049H 


DOS HIGH MEMORY POINTER 






00090 










FFB0 




00100 
00110 




ORG 


0FFB0H 




FFB0 


21BFFF 


00120 LOADER 


LD 


HL , START 


GET DRIVER ADDRESS 


FFB3 


221E40 


00130 
00140 
00150 
00160 




LD 


(VIDEO) ,HL 


AND INSERT IT INTO THE 
VIDEO DEVICE CONTROL 
BLOCK 






00170 


THE FOLLOWING TWO INSTRUCTIONS 


AUTOMATICALLY SET THE 






00180 


DOS HIGH MEMORY POINTER. THIS 


ONLY APPLIES TO NEWDOS 






00190 


(2.1 


OR 80) 


AND TRSDOS 2 . 2 OR LATER. 






00200 


FOR OTHERS, 


THEY SHOULD BE DELETED. 


FFB6 


21BEFF 


00210 




LD 


HL,START-1 


GET MEMORY SIZE 


FFB9 


224940 


00220 
00230 




LD 


(HIMEM) ,HL 


AND SAVE IT 


FFBC 


C32D40 


00240 
00250 




JP 


402DH 


RETURN TO DOS 


FFBF 


DD6E03 


00260 START 


LD 


L,(IX+3) 


GET THE ADDRESS OF 


FFC2 


DD6604 


00270 




LD 


H,(IX+4) 


THE CURSOR 


FFC5 


DA9A04 


00280 
00290 
00300 




JP 


C,049AH 


IF READING FROM SCREEN, 
THEN RETURN TO ROM 


FFC8 


79 


00310 




LD 


A,C 


GET THE CHARACTER 


FFC9 


FE7F 


00320 




CP 


RVCODE 


IF IT'S NOT REVERSE CODE 


FFCB 


2009 


00330 




JR 


NZ, DISPLY 


THEN GO TO "DISPLY" 


FFCD 


3AEFFF 


00340 




LD 


A, (MASK) 


GET THE REVERSE MASK 


FFD0 


EE80 


00350 




XOR 


80H 


AND TOGGLE IT 


FFD2 


32EFFF 


00360 




LD 


(MASK) ,A , 


SAVE THE NEW MASK 


FFD5 


C9 


00370 
00380 
00390 




RET 




RETURN WITHOUT DISPLAY- 
ING THE CHARACTER 


FFD6 


DD7E05 


00400 DISPLY 


LD 


A, (IX+5) J 


IF THE CURSOR 


FFD9 


B7 


00410 




OR 


A 


IS ON 


FFDA 


2801 


00420 




JR 


Z , GETCHR 




FFDC 


77 


00430 
00440 




LD 


(HL),A j 


THEN BLANK IT 


FFDD 


79 


00450 GETCHR 


LD 


A,C J 


GET THE CHARACTER 


FFDE 


FE20 


00460 




CP 


20H j 


IF IT'S A CONTROL CHAR. 


FFE0 


DA0605 


00470 




JP 


C,0506H f 


THEN JUMP BACK TO ROM 


FFE3 


FE80 


00480 




CP 


80H J 


IF IT'S A GRAPHIC CHAR. 


FFE5 


D2A604 


00490 




JP 


NC,04A6H ; 


THEN JUMP BACK TO ROM 


FFE8 


3AEFFF 


00500 




LD 


A, (MASK) ; 


GET THE INVERSION MASK. 


FFEB 


Bl 


00510 




OR 


c ; 


AND 'OR' IT WITH CHAR. 


FFEC 


C37D04 


00520 




JP 


047DH ; 


JUMP BACK TO ROM 


FFEF 


00 


00530 MASK 


DEFB 


00 } 


REVERSE MASK (INITIALLY 






00540 






; 


SET FOR NORMAL DISPLAY) 






00550 , 










FFB0 




00560 




END 


LOADER ; 


AUTO-EXECUTE DRIVER 






Program Listing 1. Disk based inverse video driver. 





Here's a n QnMerse 
video cursor wi-fch 
cloufole-wicl-th 



Photo 2 



the wire to Z10 on the trace side). 

21. Solder a wire from Z42A pin 6 to Z30 
pin 3. 

22. Solder a wire from Z26A pin 12 to Z26A 
pin 13. 

23. With reference to the schematic, 
solder a wire from point A on the switch 
to Z27 pin 3. 

24. Solder a wire from point B to Z27 pin 2. 

25. Solder a wire from point C to Z26 pin 4. 

26. Solder a wire from point D to Z42A pin 
2. 

27. Solder a wire from point E to Z10A pin 
8. 

28. Install the switch in its mounting posi- 
tion. 

Check your wiring for incorrect connec- 
tions and solder bridges and then reassem- 
ble the case. 

Testing 

On power up, you should see a normal 
display. If everything is correct so far, 
enable your lowercase and run the follow- 
ing BASIC program: 

10CLS 

20 For I =0 TO 255 

30 POKE I + 15360,1 

40 NEXT I 

50 GOTO 50 

You should see the normal alphanumeric 
character set (with control characters) dis- 
played on the first two lines of the screen. 
With the switch in the normal position, you 
will see graphic characters on the second 
two lines; with the switch in the inverse po- 
sition, you will see the alphanumeric char- 
acters in inverse on the second two lines. If 
you do not, go back and check your wiring: 
Something is wrong. 

Program Listings 1 and 2 are versions of a 
machine language inverse video driver, pro- 
viding lowercase and inverse display. The 
inverse display is turned on and off with the 
character code 127, the ASCII DEL charac- 
ter. For example, assuming the display is in 
normal mode to start with, the following 
BASIC statement will display "Hello there" 
in inverse video: 

PRINT CHR$(127);"Hello there";CHR$(127) 

The first version is designed for disk 
users with a disk based assembler. When 
the program is executed from DOS it auto- 
matically links the new video driver into the 
device control block and sets the DOS 
memory size (in NEWDOS and TRSDOS 2.2 
or later). Therefore, you need not specify the 
memory size if you enter BASIC with the 
driver installed, since the DOS memory size 
is used as the default. 

The second version is for Level II 80s and 
disk users without an assembler. The 
BASIC program POKEs the driver into high 
memory and links it into the control block. It 
also sets the BASIC memory size. 

Inverse characters can be used for many 
purposes. One is to provide a non-destruc- 
tive cursor for text editors; you can also 
highlight text, showing important fields in 
inverse video while the others are in normal 
video. For other applications, just use your 
imagination ■ 
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BYTEWRITER-1 

Price Br eakthro ugh 
from 




MICROTEK"* 



^360 
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-VE'^'' -•/' 



The World's First Under $300 
80 Column Dot Matrix Printer 



WHY DID IT HAPPEN? 

We were approached recently by a man with 
an idea. He is one of the leading American 
manufacturers of dot matrix print mechanisms. 
He had observed, as we had, that in recent 
months certain foreign printer manufacturers 
were increasing their share of the low-cost 
printer market at an alarming rate. 

He thought there MUST be a way to fight 
back. And he was right. We've since formed a 
working alliance with this manufacturer, and 
have brought our first joint offering to the 
market. 

HOW DID WE MAKE IT POSSIBLE? 

We set out to combine his proven low cost 
print mechanism with the simplest possible 
control electronics. Advances in single-chip 
microprocessor technology and price erosion of 
components during the last year helped to make 
this long awaited dream come true - a printer 
that can be sold for less than half the cost of 
the computer that drives it. A $299 printer. 

But cost-effective designs and efficient 
manufacturing operations weren't enough. 
Computer retailers can make up to a $250 
markup on the foreign models. Could we hold to 
a $299 list price and give the dealer enough 
incentive to sell the Bytewriter-1? No way. We 
had to try a more direct approach. 

YOUR BUY DECISION - DEALER OR MAIL ORDER 

There are some very good reasons to buy your 
first computer through a dealer. There is a 
certain amount of hand-holding required when 
you decide to buy a personal computer. This is 
one of the main functions of the retail computer 
store. And most of them perform this function 
very well. 

But why would anyone want to buy add-on 
equipment through a dealer? If you find a 
product that has been designed for and tested 
with your particular computer, you can safely 
bypass the computer dealer. You can have the 
best of both worlds. You can save money by 
buying direct from the manufacturer, and you 
can be certain that your new device will work 
when you get it. 

We've done extensive testing with the most 
popular computers - the TRS-80, the Apple II, 
and the Atari 400 and 800. If you own one of 
these computers, we guarantee you won't have 
any interface problems with the Bytewriter-1. 



TRS-80 is a trademark of Radio Shack, Div. of Tandy Corp. 
Apple II is a trademark of Apple Computer, Inc. 
Atari 400 & 800 are trademarks of Atari, Inc. 
Bytewriter-1 is a trademark of Microtek, Inc. 



FOUR THINGS YOU SHOULD KNOW BEFORE 
YOU BUY THIS PRINTER 

We don't want any unhappy customers. We'd 
like you to know the limitations of our printer, as 
well as its advantages. There are some 
differences between the Bytewriter-1 and the 
higher priced printers you may be looking at: 

1) The Bytewriter-1 takes single sheet and roll 
paper only. No pin feed paper. 

2) We've used a 7-wire print head. No fancy 
lower case descenders. 

3) There aren't any software frills in the 
Bytewriter-1, like VFU controls. However, if 
your main interest is getting software 
listings or printing letters, you won't care. 
And, with a bit of ingenuity, you can 
provide VFU functions in your own 
programs. 

4) You can't go into a computer store and 
pick up a Bytewriter-1. They're sold direct 
only by MICROTEK. 

We realize it's unusual to point out the 
limitations of a product in an ad that promotes 
it, but we think it's important for mail order 
buyers to fully understand what they're buying. 

The Bytewriter-1 will fill the needs of most 
people. People who don't see the sense in 
spending extra money for features they'll never 
use. 

ORDER THE CONFIGURATION THAT'S JUST 
RIGHT FOR YOU 

The Bytewriter-1 is available with an interface 
cable and complete instructions for use with 
three of the most popular small computers on 
the market today, the Apple II, the Atari 400/800, 
and TRS-80 Models I, II, and III. One of our 
divisions, MICROTEK PERIPHERALS CORP., can 
even provide you with the expansion card or 
module that your computer may require to drive 
a printer. 

CALL OR WRITE TODAY FOR MORE 
INFORMATION. 

We have people standing by to answer your 
questions. 



Microtek, Inc. -"362 
9514 Chesapeake Drive 
San Diego, CA 92123 
Tel. 714-278-0633 
Outside Calif, call 
toll free: 800-854-1081 
TWX. 910-335-1269 




MICROTEK 



inc. 



^See List of Advertisers on page 306 
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APPLICATION 



An analysis program for geodesic dome design. 



Dome Time 



Daniel B. Nickell 
206 Jill Lane #2 
Laurel, MD 20810 

In the early 1960's there was a push for- 
ward in experimentation with geodesic 
domes as a form of housing and shelter. 

First patented in 1951 by Buckminster 
Fuller, the geodesic dome offers an attrac- 
tive combination of low cost, high structur- 
al strength and energy efficiency. The first 
domes, however, suffered from some nag- 
ging practical problems which kept the con- 
cept from wide acceptance. 

Today, most of the problems— mainly 
sealing the dome against leaks— have been 
solved and a number of companies are of- 
fering a full range of dome designs. For 
those that are interested in working up their 
own designs the following program may be 
of some use. 

Dome Theory 

The basic theory of geodesic domes is 
that a sphere, or a portion of one, is the 
most efficient container of a given volume 
and is also the strongest; that is, the shape 
tends to distribute forces applied to it even- 
ly over the entire surface. 

The geodesic is an attempt to provide a 
practical solution to the construction prob- 
lem of building a sphere in an industry us- 
ing straight-edge technology. By fastening 
together a number of triangles, Fuller illus- 



These Figures are For a 4/8ths Geodesic Dome, 
28.546 Feet in Diameter. 

Height Of Dome = 14.273 Feet 

Surface Area Of Dome = 1280 Square Feet 
Volume Of Dome = 6089.82 Cubic Feet 

Area Of Floor Within = 640 Square Feet 
Radius Of Floor = 14.273 Feet 

C To Continue, R to Readjust Input Data 



7ab/e 1. Summary of Dome Statistics. 



trated a structure that resembles a sphere 
and can be built with the existing technolo- 
gy. Fuller also discovered that the greater 
the number of triangles involved, the closer 
the structure approaches spherical propor- 
tions and qualities. 

This program provides the basic data re- 
quired for constructing a dome called a 
"Three-Frequency Icosahedron." It is a very 
simple, yet functional geodesic. 

All you need supply is the diameter of the 
sphere upon which the dome will be based 




1. 24395 INCHES 

A ******** 



1. 43996 INCHES 
B ********* 



I.47I59 INCHES 
C ********** 



Fig. 1. Construction Triangle. 

and the scale of the model to be built. You 
should also know whether the dome is to be 
a 3/8, 1/2, or 5/8-dome. This means, what 
portion of the sphere is to be used as the 
structure: 3/8, 1/2 or 5/8. A3/8-dome is the 
cheapest to build as it requires the least 
amount of materials. The 5/8 offers the 
greatest interior space and the most effi- 
cient use of that space. The 1/2-dome is a 
good compromise between two. 

The program first asks whether you want 
to use a line printer for part of the output. 
This listing was written with the Heath H-14 
line printer in mind. If you are using another, 
you'll have to make some adjustments, 
mainly in lines 1000-1060, to print the scale 



correctly. If you don't have a printer, delete 
these lines entirely. 

Next, the computer will ask for data. 
First, enter the diameter or the square foot- 
age of the floor. If you enter the square foot- 
age first, the computer defaults to the 
1/2-dome variety. If you specify a diameter, 
you will then be asked to select the variety 
of dome (3/8, 1/2 or 5/8) before the area and 
volume computations are made. By playing 
with these input variables, you can decide 
on the proportions best suited to your pur- 
pose. 

The computer takes care of the rest. The 
first output displayed is the full scale dome 
data. Review it. If it fits your needs, then 
type C and INKEY$. Otherwise, type R 
INKEY$, and reset the input data until you 
are satisfied. Table 1 shows the sample out- 
put for a 4/8 (1/2) dome with a desired floor 
space of 640 square feet. 

Continuing, the computer then asks for 
the type of scale you want to use. The first, 
A, is generally used by architects and home 
designers. Some minor program modifica- 
tions are necessary if you want to work in 
metric dimensions. The second type of 
scale, B, is used frequently by model build- 
ers. One-half-scale is just that— the model 
is one-half of the acutal size. You can use 
metric dimensions in this scale with only 
two changes to the program: Adjust the 
labels to match, and change line 460 so 
SF = (100*SN)/SD instead of SF = (12*SN) 



These Figures are For a Model Of a 4/8ths 
Geodesic Dome. 

The Diameter Of The Model Dome is 7.1365 Inches. 
Scale Used To Obtain These Data: 1" = 4' 

Height of the Dome Model =3.56825 Inches 
Surface Area of the Model =80 Square Inches 
Volume of Model =95.1534 Cubic Inches 

Area of Model Floor =40 Square Inches 

Radius of Model Floor =3.56825 Inches 

Hit ENTER When Ready to Proceed.? 



7ab/e 2. Model Statistics 
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/SN. The conversion will then be from 
meters to centimeters, instead of from feet 
to inches. 

I use a scale of one inch equals four feet. 
Graph paper with quarter-inch line spacing 
is readily available and each block therefore 
equals one square foot. The sample output 
in Table 2 is based on this scale. These data 
refer directly to the model of the dome. You 
can use these in the construction of the 
model. 



Chord Length 

The next display represents the lengths 
of the three different chords you will need to 
build the geodesic frame. Assuming your 
TRS-80 monitor is properly aligned, the 
length of the chords should be accurate to 
about 1/16th of an inch of the calculated 
length. If the chord is longer than about 
7.2 inches, the program will reduce the 
display to show the relative sizes of the 
chords, not the actual. In this instance, the 
display will tell you the degree of reduction 
and you would have to use your own mea- 
suring device to lay out the lengths. 

If you are using a line printer, all of the 
above information will have been printed 
out by this time. Using the asterisk on the 
H-14 printer results in the same level of ac- 
curacy—about 1/16 or 1/17th of an inch. If 
you use a different make of printer or use a 
different character you will have to experi- 
ment to find the correct scaling factors in 
line 760. See Table 3. 

The next display (Fig. 1) repeats the chord 
lengths and draws a basic construction tri- 
angle. You can refer to this for the proper 
relationship of the various chords. Typing 
an @ at this point will enable you to access 
the drafting aid subroutine. This subroutine 
allows you to convert a measurement from 



either scale to real or from real to scale. 
From this subroutine you can either return 
to the previous graphic, recompute another 
conversion, or terminate the program. See 
Table 4. 

If you are handy with assembly language, 
try adding a USR(O) subroutine to speed up 
some of the graphics displays. Yet, for the 
most part, the existing program is fast 
enough. The program requires about 9500 
bytes, which should leave enough room for 
user-designed additions or modifications to 
the program. 

With very few exceptions, the line num- 
bering in the program is in increments of 10. 
I omitted the first 89 titling lines. Lines 
that end with a five— except 255 and 395, 
which were added while preparing the 
article to speed up its operation and tidy 
up program logic— can also be omitted, 
i used INKEY$ routines where possible 
and practical to ease data entry. ■ 



Are you converting from (S)cale to real 

or from (R)eal to scale? R 

Enter known value? 15 

The scale value of 15 feet = 3.75 inches 

(G)raphics, (E)nd, or (C)onversion help E 

(screen clears) 

(R)epeat to see these data again, (A)nother dome 

data set, or (E)nd to end program. E. 

(screen clears) 

Good luck with your project. 

Remember that the values shown for the struts 

are total length struts. If you are using hubs, be 

sure to subtract the proper amount from the strut 

so the overall length is not greater than shown in 

this program. 

Thanks for using geodesies. 

Ready 

Table 4. 



Data for the construciton of a model of a geodesic dome (3-frequency alternate). Refer to 'The Domebook 2', 
published in 1972, by Shelter Publications. 



UNIT 


REAL (IN FEET) 


MODEL (IN INCHES) 


Height of Dome 


37.5000 


9.3750 


Surface Area of Dome 


7068.5800 


441.7870 


Volume of The Dome 


, 77312.7000 


1208.0100 


Area of Floor 


2650.7200 


165.6700 


Radius of Floor 


29.0474 


7.2618 


Scale of Model: 1 Inch Scale: 


= 4 Feet Real. 




Chord 'A' = 2.61462 Inches. 






Chord 'B' = 3.02661 Inches. 






B . .................... 




..... 


Chord 'C = 3.09309 Inches. 







Table 3. Conversion Data Showing Chords. 



NEW 

EDUCATIONAL 
PROGRAMS 
forthe TRS-80* 

You can now order reading programs for 
READING COMPREHENSION- ECONOMICS- 
PHYSICS- MATH-AUTO MECHANICS- HISTORY 
2 FULL LENGTH PROGRAMS only $9.90 
(one cassette) 
16 PROGRAM COURSE only $77.00 (8 cassettes) 
m Order by checking the desired programs: •■§■ 



■Reading 
Comprehension 



$9.90 



■12 r 



Cd 1 
Cd 2 
Cd3 
Cd 4 

nore C<H 



$9.90 



$9.90 



Physics 1 
Physics 2 
Economics 1 
Economics 2 



History 9 
History 10 



$9.90 



"Auto 

Mechanics 

Ka 1 



!J 



Ka2 



$9.90 



□* a >90 
Ka 4 



□ 2 ° e ™ r 9ramS M-90 
and Catalogue 

Utilize with any Model I, Level I or 

Level II. 4K and 16K or any Model ill 

Displays lower case it you have it 

- "TRS-SO IS A TM OF TANDY CORP 



I have enclosed a total of 



$9.90 



for each 2 program cassette ordered plus $.50 



per cassette for shipping/handling to: 

,v314 



DORSETT 

Educational Systems, Inc. 

P.O. Box 1226, Norman, Ok. 73070 



Address 
City 



r^J 



RICE 



16K DYNAMIC RAMS FDR 

$ 24.50 

Volume buying does it again: these are top 
quality, high speed, low power RAMs suitable for 
expanding memory in TRS-80* l/ll/lll and Color 
Computers, Heath H89, Apple, newer PETs, etc. 
Backed by one year limited warranty. Add $3 for 
two dip shunts and conversion instructions tor 
TRS-80" I. 

Why pay more 

. . .we stock the right parts at the right price. 



Terms: Cai res 
reiunded. visa 
hours. Include t 



dd lax. Allow al least 5% shipping; excess 
Mastercard • orders call (415! 562-0636. 24 
;el address for UPS delivery. Prices subject to 



GODBOUT ELECTRONICS 
BOX 2355, OAKLAND AIRPORT, CA 94614 
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THE GREEN.SCfttttf" THING 




AVAILABLE: For models I, II, and III as well 
as any standard 12 inch monitor. 



List $725 

FEATURES: 

• Improved imog* (onlmit 

• H.duc.i »y. l.t.gu. 
Inhanol «Mn l.jihilly 
D.cr.aMi (tar* 

Qiv.i lyium • prof Miioal look 



jlhandlino.ond CoMo.-*.) 

ORDER NOW 

— 34 HOUK 



PH 408-946-1265 



JVE 



AUDIO- VIDEO 
^146 SYSTEMS 

24.5 AufumnvoL Dr. Son Joio , C A. 95132 



JOY6 



THE ULTIMATE JOYSTICK INTERFACE 
FOR YOUR TRS-80* 



Don t be left out. The best action and simulation games re- 
quire smooth, clean, jitter tree joystick control. That's what 
you get with JOY-6, and more! 

■ 2 joysticks with pushbuttons lor fast action. 

■ Sound effects capability Great for space games. 

■ Simple software control — write your own programs. 

■ Manual — schematic, theory of operation, software 

■ 2 additional A to D channels for game paddles, sensors 
PLUS: Joypak- 1 —A 1 6K L2 cassette with 6 fascinating new games 
— SOLO. FRENZY, WIPEOUT, DOODLE, ENDPLAY and 
BLOCKADE — an achon and slrategy game with 9 levels of diffi- 
culty Try to break through your opponent s defenses But watch out 1 
While the enemy is rebuilding his blockade, he s destroying yours' 
Games can lasl lor seconds or hours 



SPECIAL IHTRODUCTOflY OFFER! v 

assembled. jested. heady to play 
complete kit-only $84.95 



rw above plus power Supply- 

onlv $99.95 

quality guaranteed 



ITlEGfl ^272 

systems inc. 



PHONE ORDERS WELCOME 
215-337-3876 
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g SOFTWARE for the 80'b g 

8 Programs for the full line of TRS-80* Microcomputers 8 

8 S 

° MODEL I - Level H and DISK ° 

8 I/O Utility, Inventory 8 

a Machine Language Retrieval 8 

g MODEL II - Reading Aids 8 

8 8 

? MODEL III - Retrieval „ 

8 I/O Utility 8 

g Machine Lenauaae Aids g 

8 COLOR — Ganei Tor Everyone 8 

R Quick Tac Toe g 

® Asteroid Pilot & Tag „ 

8 8 

g POCKET — Traveling Salesperson g 

_ Weight Forecasting _ 

8 Estimating 8 

iiniuuiumiinm»»mui»iHi 
"Introduction to NEWDOS" 

A Hew manual for users of the pre f err e d DOS 
get more from COPY, CMD, REF. RENUM, LMOFFSET, etc. 

ONLY *5.95 Including postage (US & Canada) 
sniuw>Kxnnnxxx>aaixm»atx««sn«nxx 

8 Order your 1981 Catalog NOW! 8 

I its... I 

8 Information Technology Systems H 

8 POB 2667 Sarasota FL 33578 8 

° <813> 366 - 006'<l ° 

8 *TRS-80 ii a trxkmrk of Radio Slack, i Tarefc Corporation 8 
80808080808080808 08080808080808080808 



Program Listing 



90 CLEAR 1000 

100 PI=3. 1415926535 

110 CLS:PRINT" ****** 

115 ' INPUT DATA 

120 PRINT@192,"SO YOU ARE GOING TO BUILD A GEODESIC MODEL ARE YOU? 



GEODESIC MODELS 



130 PRINT: PRINT" (WILL YOU NEED THE LINE PRINTER? (Y OR N) ) " 

140 Q$=INKEY$:IFQ$=""THEN140ELSE15 

150 IF Q$="Y"THENLP=1ELSELP=0:IF LP=1THEN160ELSE180 

160 LPRINT" ":LPRINT"DATA FOR THE CONSTRUCTION OF A MODEL OF A GEO 

DESIC DOME (3-FREQUENCY ALTERNATE). REFER TO 'THE D0MEB00K 2 

', PUBLISHED IN 1972, BY SHELTER PUBLICATIONS." 
17 LPRINT" " 
180 CLS:PRINT"WELL, THIS PROGRAM WILL HELP YOU A LITTLE BIT. FIRS 

T, 
WE WILL NEED TO THE HOW LARGE THE DOME WOULD BE IN 'REAL' 

LIFE. 
THEN, WE WILL NEED TO KNOW HOW MUCH SMALLER THE MODEL W 

ILL BE." 
190 PRINT: PRINT" IF YOU DON'T KNOW THESE VALUES, THE COMPUTER WILL 

WAIT 
WHILE YOU GET THEM. IF YOU HAVE THEM, HIT ENTER. ": INPUT 

XX 
195 'THE FOLLOWING PROCEDURES ASSUME ALL MEASUREMENTS ARE IN UNITS 
OF FEET AND INCHES (DECIMAL). TO USE METRIC, SIMPLY CHANGE 

THE LABELS IN LINES 340-380, 450, 500, 520-570, AND 700. 
200 CLS:PRINT@192,"NOW THAT YOU'RE READY, GIVE ME TWO VALUES:" 
210 PRINT: INPUT"FIRST, THE DIAMETER OF THE DOME OR THE 
SQUARE FOOT 

AGE OF THE DESIRED FLOOR"; A 
220 PRINT: PRINT"NOW TELL ME WHETHER" ; A; "IS THE 
(D) IAMETER OR THE ( 

S)QUARE FOOTAGE:" 
230 A$=INKEY$:IF A$=""THEN230ELSEIFA$="S"THEN255ELSE240 
240 PRINT: PRINT "AS YOU KNOW, DOMES ARE CLASSED AS EITHER 3/8, 1/2 

(OR 4/8), OR 5/8 DOMES. BY USING THE NUMERATOR (USING 4 FOR 

1/2), 
INDICATE THE FORM DESIRED: " ;F$ 
250 F$=INKEY$:IFF$=""THEN250ELSE260 
255 F$="4" 

260 F=VAL(F$) :IFF=4THENZ=2ELSEZ=1. 93649 
27 IF F=3ORF=4ORF=5THEN280ELSE240 
280 IF A$="D"THEN290ELSE300 

285 'COMPUTATION OF "REAL-LIFE" DOME STATISTICS 
290 D=A:R=D/2:AB=Z*R:AF=PI*((AB/2) [2) :GOTO310 
300 AF=A:AB=2*(SQR(AF/PI) ) :R=AB/Z :D=2*R 

310 DH=D*(F/8) :DS=2*PI*DH*R:DV=(PI*(DH[2)*((3*R)-DH))/3 
320 CLS: PRINT "SUMMARY OF DOME STATISTICS..." 
330 PRINTQ192, "THESE FIGURES ARE FOR A"F;"/8THS GEODESIC DOME,";D; 

"FEET IN 
DIAMETER. 

340 PRINT :PRINT"HEIGHT OF DOME 
35 PRINT"SURFACE AREA OF DOME 
360 PRINT"VOLUME OF DOME 
370 PRINT"AREA OF FLOOR WITHIN 
380 PRINT"RADIUS OF FLOOR 

390 PRINT: PRINT" 'C TO CONTINUE, 'R' TO READJUST INPUT DATA"; 
395 Q$=INKEY$:IFQ$=""THEN395ELSEIFQ$="R"THEN200ELSE400: 'ROUTINE TO 

SET SCALE OF MODEL 
400 CLS 
410 PRINT@192,"NOW WE NEED THE SCALE OF YOUR MODEL. SCALES ARE E 

XPRESSED 
AS: A — 1 INCH SCALE = X FEET REAL 

B — THE MODEL IS A FRACTION OF THE REAL (1/2, 1/4) 
420 PRINT: PRINT" SELECT THE TYPE SELECT YOU ARE READY TO INPUT:" 
430 S$=INKEY$:IF S$=""THEN430ELSE440 
440 IF S$="A"THEN450ELSE460 
450 CLS:PRINT@192,"1 INCH IN THE SCALE WILL EQUAL HOW MANY FEET IN 

REAL LIFE?" : INPUTS : SF=1/S:GOTO470 
460 CLS :PRINT@192, "WHAT IS THE NUMERATOR OF YOUR SCALE FRACTION?": 

/ Program continues 



' ;DH;" FEET" 
SQUARE FEET" 
CUBIC FEET" 
SQUARE FEET" 



DS 
DV 
AF 
AB/2;" FEET" 
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: : : ULTRADOS; : : ULTRADOS: : : ULTRADOS: : : ULTRADOS: : : ULTRADOS: : : 

:::ANOUNCING THE LATEST REVISION!::: 

: : : FASTER AND EVEN MORE POWERFUL THAN BEFORE ! : : : 

A TREMENDOUS USER RESPONSE AND FEEDBACK FROM THE FIRST 2000 
COPIES ISSUED HAS PROVIDED THE VALUABLE INFORMATION WE NEEDED 
TO DETERMINE THOSE FEATURES MOST WANTED, THEY ARE INCLUDED IN 
THIS REVISION. 

THE SUCCESS OF ULTRADOS IN THE MARKET PLACE ALSO ALLOWS US TO 
REDUCE IT'S PRICE, INSTEAD OF * 119. 95, THE FULL BLOWN VERSION 
IS YOURS FOR ONLY S94.95! 

OTHER USER INPUT POINTS OUT THAT SOME OF OUR CUSTOMERS DO NOT 
NEED OR USE ALL OF THE SOPHISTICATED PROGRAMMING UTILITIES 
INCLUDED IN THE SYSTEM. CONSEQUENTLY WE ARE RELEASING A SECOND 
VERSION WITH SOME OF THEM REMOVED, AT JUST *59.95! 

:::ALSO ANNOUNCING ULTRA UTILITIES::: 

BOSS 2.2 - *24.95c *29.95d Basic operated single stepper, a 
monitor for basic programs, a must for all basic programmers. 

VFU - $19. 95c *24.95d Visual file utility, single key commands 
will COPY or PURGE disk files, EXECUTE will load and execute 
both machine language and basic programs, use the 4 arrow keys 
to position cursor to the selected file. 

UZ - $19. 95c *24.95d ULTRA ZAP the super disk zap utility from 
ULTRADOS. 

SPOOL - * 19. 95c $24.95d Parallel port printer spooler, define 

the buffer size, lines per page, and characters per line, 

returns use of the CPU while printing is done. Don't confuse 

this spooler with others that use a disk file, this one spools 
into RAM memory! 

6EDIT - *19.95c $24.95d Global Editor, that's right folks a 
global editor for basic programs! Allows fast global search 
and replace of anything in a Basic program, even key words, 
will create those super fast string packed graphics! 

LC - $5. 95c Lower case driver, supports all known LC mods, 
allows typewriter keyboard function, only 68 bytes long. 

EP ~ $5. 95c Epson MX- 80 printer driver, allows you to use all 
the features of this fine little printer including graphics. 

RENUM-80 - *5.95c Renumber for tape and disk systems, super 
fast, fail safe operation. 

: : : ULTRADOS: : : ULTRADOS: : : ULTRADOS: : : ULTRADOS: : : ULTRADOS: : : 

:::LAST MINUTE ITEMS OF INTEREST::: 

*** ALL MPI DISK DRIVE PRICES REDUCED, CHECK IT OUT!!! 

*** WE ARE SHIPPING MOD Ill's WITH DRIVES, DO YOU HAVE YOURS? 

*** USED LEVEL II's, DRIVES, PRINTERS, ETC. IN STOCK!!! 

#** WE HAVE THE BEST MOD III SOFTWARE SELECTION AROUND! 

*** WE TAKE HARDWARE TRADE-INS, AND OFFER HIGHEST ALLOWANCES! 

*** TWO TECHNICIANS ON STAFF FOR FAST RELIABLE LOW COST SERVICE 



** YOUR LEVEL IV PRODUCTS INC. su 

ONE STOP 32461 SCHOOLCRAFT RD. 

COMPUTER LIVONIA, MICHIGAN 48150 

SHOPPING 313-525-6200 (in state) 

SOURCE ** 800-521-3305 (toll free) 
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PERFECT 

CLOAD 

EVERY 

TIME" 
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From a review 
Sepicmher-Ocrober 
1980 Elementary Elec 




Alphanetics TRS-80 



$64.95 



TAPE DIGITIZER S?£ ° no,r ""* "" 



Eliminates cassette loading & copying problems ... 
even SYSTEM tapes! 

Makes tape program loading virtually independent 
of volume control setting! 

Makes perfect digital copies of any tape without 
using computer, removing hum. noise. & cures 
minor dropouts! 



• ''Good Data" indicator easily enables setting 
proper volume ... doubles as a tape monitor! 

• A.C. powered - no batteries to replace! 

• Compatible with Level I & II. 

• Feed your cassette to the TAPE DIGITIZER 
and feed your computer the exact digital waveform 
the TRS-80 gave to the tape! 

• Get rid of your tape bugs today - $64.95 postpaid 
or return within 10 days for a full refund! 

ALPHANETICS ^124 

P.O. BOX 597 FORESTVILLE, CA 95436 



24 hr. phone (707) 887-7237 HBP 



MICRO-80™ CASSETTES— 
100% ERROR-FREE 




LENGTH PACK PACK 

C-10 69c 59c 

C-20 89c 79c 



• Fully Guaranteed! 

• World's Finest Media 

• Premium 5-Screw Construction 

• Used by Software Firms Nationwide 

• Dealer and Club Discounts Available 

• Custom Storage Case, Add 19<c Each 

• Shipping Charges, Add $1.50 W76 



m80™ MICRO-80™ INC. 

E-2665 NO. BUSBY ROAD 
^ OAK HARBOR, WA 98277 



" INCHES" 

" SQUARE INCHES" 

" CUBIC INCHES" 

" SQUARE INCHES" 

" INCHES 



REAL (IN FEET) 



MO 



LPRINTUSINGB$;DH;HM 
LPRINTUSINGB$;DS;SM 
LPRINTUSINGB$;DV;VM 
LPRINTUSINGB$ ; AF ; FM 
LPRINTUSINGB$;AB/2;RF 
INCH SCALE =";S;"FEET REAL 



INPUTSN : PRINT : INPUT"WH AT IS THE DENOMINATOR OF THE FRACTION"; 

SD:SF=(12*SN)/SD:S=1/SF 

465 'COMPUTATION OF MODEL STATISTICS 

470 RM=R*SF:DM=D*SF:HM=(F/8)*DM:SM=2*PI*HM*RM:VM=(PI*(HM[2)*( (3*RM 

)-HM))/3 
480 RF=(Z*RM)/2:FM=PI*(RF[2) 
490 CLS:PRINT"MODEL STATISTICS" 
500 PRINT@192, "THESE FIGURES ARE FOR A MODEL OF A" ;F;"/8THS GEODES 

IC DOME. 
THE DIAMETER OF THE MODEL DOME IS" ; DM; "INCHES. 
SCALE 

USED TO OBTAIN THESE DATA: l''=";S;"'" 
510 PRINT 

520 PRINT"HEIGHT OF THE DOME MODEL 
530 PRINT"SURFACE AREA OF THE MODEL 
540 PRINT"VOLUME OF THE MODEL 
550 PRINT"AREA OF MODEL FLOOR 
560 PRINT"RADIUS OF MODEL FLOOR 
570 IF LP=1 THEN580ELSE6 80 
580 LPRINT"UNIT 

DEL (IN INCHES) 
590 B$="########.#### ########.####" 

600 LPRINT" " 

610 LPRINT"HEIGHT OF DOME ' 

620 LPRINT n SURFACE AREA OF DOME ' 
630 LPRINT"VOLUME OF THE DOME ' 

640 LPRINT"AREA OF FLOOR ' 

650 LPRINT"RADIUS OF FLOOR ' 

660 LPRINT" " :LPRINT"SCALE OF MODEL: 1 

.": LPRINT" " 
670 GOTO6 90 

6 80 PRINT: INPUT "HIT 'ENTER WHEN READY TO PROCEED."; XX 

690 CLS:PRINT"THIS PROGRAM IS ONLY DESIGNED TO GIVE YOU THE NECESS 

ARY VALUES 
WITH WHICH TO BUILD A ' 3 -FREQUENCY ALTERNATE' DOME 

IF YOU NEEDTO BUILD A DOME OF A DIFFERENT FREQUENCY, PLEAS 

E REFER TO PAGE 
109 OF THE DOME BOOK." 
700 PRINT: PRINT"FOR THIS DOME TYPE YOU NEED STRUTS OF THREE DIFFER 

ENT LENGTHS. 
SHOWN BELOW ARE THE THREE LENGTHS AND THE NUMERI 

CAL VALUES, IN 
DECIMAL INCHES. THE SCALE USED IS 1" = ";S;'"" 
710 PRINT 

715 'ROUTINE TO COMPUTE LENGTH OF STRUTS 
720 Z=14. 69573444 

730 A=. 34861548 :B=. 40354821 :C=. 41241149 
740 AC=A*RM:BC=B*RM:CC=C*RM 

7 50 AI=INT((AC*32)/2)+7:BI=INT((BC*32)/2)+7:CI=INT((CC*32)/2)+7 
760 AK=INT(AC*16. 6666666) :BK=INT (BC*16 .6666666) :CK=INT (CC*16 .66666 

66) 
770 FF=1 

775 'ROUTINE TO ADJUST DISPLAY TO FIT SCREEN 
7 80 IF AI>115 OR BI>115 OR CI>115THEN810ELSE790 
7 90 GOSUB870 
800 GOTO970 

810 AI=AI/2:BI=BI/2:CI=CI/2:FF=FF*2:AK=AK/2:BK=BK/2:CK=CK/2 
820 GOTO7 80 

825 'GRAPHIC DISPLAY OF STRUTS ON MONITOR 
870 FOR 1=8 TO AI 
880 SET (1,34) 
890 NEXT I 
900 FOR J=8 TO BI 
910 SET (J, 40) 
920 NEXT J 
930 FOR K=8 TO CI 
940 SET (K,46) 
950 NEXT K 
960 RETURN 

970 IF FF>1THEN980ELSE1010 
980 PRINT@576, "SCREEN TOO SMALL, CHORDS SHOWN ARE l/";FF;"OF PROPE 

R SCALE SIZE." 
990 IF LP=1THEN1000ELSE1010 
1000 LPRINT" PAGE WIDTH TOO NARROW, CHORDS SHOWN ARE l/";FF"OF PROP 

ER SCALE SIZE.":LPRINT" " 

Program continues 
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= n ;CC; "INCHES. ":LPRINT" C ";:LPR 



'ENTER' TO CONTINUE."; XX 



1010 PRINT@705,"A";:PRINT@646, "CHORD 'A' ="; AC; "INCHES" ; 
1020 PRINT@833,"B";:PRINT@774, "CHORD 'B' =" ;BC; "INCHES" ; 
1030 PRINT@961,"C";:PRINT@902, "CHORD 'C =" ;CC; "INCHES" ;: IF LP=1TH 

EN1040ELSEINPUT" 'ENTER' TO CONTINUE. "; XX 

1040 IFLPO1THEN1080ELSELPRINT" " :LPRINT" CHORD 'A' ="; AC; "INCHES . " 

:LPRINT" A " ; :LPRINTSTRING$ (AK, 42) :LPRINT" " 
1050 LPRINT" ":LPRINT"CHORD *B' =" ;BC; "INCHES. " :LPRINT" B ";:LPR 

INTSTRING$ (BK , 42 ) : LPRINT" ' 
1060 LPRINT" ":LPRINT"CHORD 'C 

INTSTRING$(CK,42) 
1070 LPRINTSTRING$(5,10) 
1080 IF LPO1THEN1090ELSEINPUT" 
1090 GOTO1180 
1100 CLS:PRINT@512,"(R)EPEAT TO SEE THESE DATA AGAIN, (A)NOTHER DO 

ME DATA SET, 
OR (E)ND TO END PROGRAM." 
1110 Q$=INKEY$:IFQ$=""THEN1110ELSE1120 
1120 IF Q$="R"THEN490ELSEIFQ$="A"THEN200ELSEIFQ$="E"THEN1130ELSE11 

20 
1130 CLS:PRINT@256,"GOOD LUCK WITH YOUR PROJECT. 

REMEMBER THAT TH 

E VALUES SHOWN FOR THE STRUTS ARE TOTAL LENGTH 
STRUTS. IF YO 

U ARE USING HUBS, BE SURE TO SUBTRACT THE PROPER 
AMOUNT FROM 

THE STRUT SO THE OVERALL LENGTH IS NOT GREATER THAN" 

1140 PR 

INT"SH 
OWN IN THIS PROGRAM." 

1150 PRINT :PRINT"THANKS FOR USING GEODESICS." 
1160 END 

117 'MEMORY REQUIRED IS ABOUT 8100 BYTES 
1180 CLS 
1190 GOSUB870 

1195 'ROUTINE TO DRAWN BASIC TRIANGLE ON MONITOR 
1200 FORY=4T043 

1210 X1=INT((Y-4)*1. 2307694) 

1220 X2=127-Xl:X3=Xl+32:X4=X2-32:X5=Xl+64:X6=X2-64 
1230 SET(X1+31,Y) :SET(X2,Y) 
1240 IFX3<(X2-31)SET(X3+31,Y) 
1250 IFX5<(X2-31)SET(X5+31,Y) 
1260 IFX4>(X1+31)SET(X4,Y) 
127 IFX6>(X1+31)SET(X6,Y) 
1280 NEXTY 

1290 Y=4:FORX=32T0127:SET(X,Y) :NEXTX 
1300 Y=17:FORX=48T0111:SET(X,Y) :NEXTX 
1310 Y=30:FORX=64TO95:SET(X,Y) :NEXTX 
1320 PRINT@24 , "A" ; : PRINT@40 , "B" ; : PRINT@56 , "A" ; : PRINT@209 , "A" ; : PRIN 

T@218 , "B" ; : PRINT@229 , "C" ; : PRINT@234 , "C" ; : PRINT@245 , "B" ; : PRINT 

@250,"A"; 
1330 PRINT@483,"C";:PRINT@492,"C";:PRINT@705,"A";:PRINT@833,"B";:P 

RINT@961,"C"; 
1340 PRINT@416,"C";:PRINT@431,"C";:PRINT@53 8,"B";:PRINT@566,"B";:P 

RINT@616 , "B" ; : PRINT@801 , "A" ; : PRINT@813 , "A" ; 
1350 PRINT@646,AC;" INCHES" ;: PRINT@774,BC; " INCHES" ;: PRINT@902,CC; 

" INCHES"; 
1360 PRINT@1000," '@' FOR DRAFTING HELP"; 
1370 Q$=INKEY$:IFQ$=""THEN1370 
1380 CLS 
1390 CLS:PRINT@192,"ARE YOU CONVERTING FROM (S)CALE TO REAL 

OR FR 

OM (R)EAL TO SCALE?"; 
1395 'DRAFTSMAN'S AID 
1400 C$=INKEY$:IFC$=""THEN1400 
1410 PRINT: PRINT: INPUT "ENTER KNOWN VALUE ";KV 
1420 IFC$="S"THEN1480 

1430 PRINT: PRINT"THE SCALE VALUE OF";KV;" FEET =";KV*SF;" INCHES" 
1440 PRINT: PRINT" (G)RAPHICS, (E)ND, OR (C)ONVERSION HELP" 
1450 S$=INKEY$:IFS$=""THEN1450 
1460 IFS$="G"THEN1180ELSE1470 
1470 IFS$="E"THEN1100ELSE1390 

1480 PRINT: PRINT"THE REAL VALUE OF";KV;" INCHES =";KV/SF;" FEET" 
1490 GOTO14 40 
1500 END 



NEW PROGRAMS 
FOR THE TRS-80 

incoPROP 

Income Property Analysis 
for the TRS-80 

INCOPROP: Based upon standardized methods 
ot property analysis used throughout the real 
estate industry. Generates a 3 page report contain- 
ing an annual property operating statement and a 
comprehensive 10 year cash (low analysis. Con- 
tains l.R.S. tax table to project after-tax income 
stream and investor's I.R.R. 

• Handles 5 different methods of tax depreciation. 

• Handles up to 3 loans 8 3 different type loans 

• Highly interactive tormat permits "Sensitivity Analysis". 

• Disk files created for permanent storage of data 
Minimum system requirements: 32k RAM. 1 drive and 
printer. Sold with informative 78 page user's manual cover- 
ing basic aspects ot income property investment & 50 
data worksheets 

Model I & III: on cassette for easy transfer 

to disk $120.00 

Model II: on 8-inch diskette S146.00 

Model II: Version available in MBASIC 

. running under CP'M $165.00 

MAINDEX: An easy-to-use program to aid you in 
the indexing of your files on disk. Can't find that 
program you wrote last month? Put your computer 
to work! Find any program or data file in your sys- 
tem in seconds. 

• A Main Index of all your other disk's directories. 

• Alphabetizes list of files and gives you names, grans 
used, dates written, tracks and file descriptions. 

• Sorts Files by name, disk, and categories. 

• File descriptions can be searched for key words 

• Prints disk labels with disk name and file names. 

• Uses all the advanced and extremely fast file manipu- 
lation capabilities of Apparat. Inc.'s NEWDOS/80. 

Hequires Level II. 48K. 1 disk drive and NEWDOS/80 on 
cassette for easy transfer to disk S20 95 

mmmm w 5 f : 

VISA" ,.,.,™,_,.».„„„™„, Motfwdwd 
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SOFT 
WARE 



DEPT EM. PO BOX 591.NOVATO, CA 94947 



little Bee^ 
EDUCATIONAL 
PROGRAMS 

For TRS* 80 Level II 16 K CASSETTE 

Upper/Lower Case Matching K-1 

Provides a drill to associate upper 

case letters to corresponding 

lower case letters. s 9 95 

ABC sequence K-1 

Marching letters reinforce 

alphabet sequence. 9 

Listen and Spell (Wh-Th Words) 2-4 

Provides drill for troublesome 

Wh-Th words. s 9 95 

Calendar Tic-Tac-Toe 2-4 

Provides drill on sequence of months 

and days including current day and 

month for one or two students, s-i 495 

Math Facts K-6 

Teacher selectable drill for math 

facts. Teacher selects + , 

- , x , -e- and limits. s 9 95 

Contractions 2-4 

Drill for students to provide the two 

words that make up contraction s 9 95 

Sell correcting and scoring, positive reinforcement 

'Trademark of Tandy Corp. ^»»^ 

Little Bee^ 

EDUCATIONAL PROGRAMS . 208 

P.O. Box 262 Massillon, Ohio 44646 



.'See List of Advertisers on page 306 
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HARDWARE 



Re-ink, and long line printer ribbons! 



Keep It in the Black 



William D. Johnston 
1808 Pomona Dr. 
Las Cruces, NM 88001 



Microcomputer users who 
own hard copy printers 
have always appreciated the 
crisp and easy-to-read print pro- 
duced when a new ribbon is in- 
stalled. 

The ability of a fabric printer 
ribbon to maintain this quality is 
really short-lived, however, 
since many ribbons have a 
useful life of no more than 16 to 
20 hours. And the print quality, 
of course, deteriorates even 
before the ink is all gone. 

I was doing some work one 
day on a microcomputer driving 
an LA36 DECwriter. The printer 
ran continuously. To keep up ac- 
ceptable print quality, it was 
then necessary to change the 
ribbon at least once a day, 
sometimes twice. At $5.00 per 
ribbon, there had to be a better 
way. 

My old Model 15 Teletype ma- 
chine runs several hours a day, 
printing continuous wire service 
news bulletins, National Weath- 
er Service broadcasts and ham 



radio transmissions. In the past 
ten years I've changed the rib- 
bon twice. Nevertheless, it 
always prints nice, dark charac- 
ters. 

The secret is a clever little 
device which automatically re- 
inks the ribbon as it advances 
from one spool to the other dur- 
ing normal printing. All that is 
necessary is to replace the ink 
supply once every few weeks. 
The nylon ribbon is replaced on- 
ly when the fabric is worn out. 

The re-inking device on the 
Model 15 was manufactured es- 
pecially for that machine. As far 
as I know, no device has ever 
been made for microcomputer 
printers, so it was worth it to see 
if the Model 15's re-inker could 
work on the DECwriter. I just 
designed a mounting bracket 
that wouldn't interfere with the 
DECwriter's moving parts, and 
the old Model 15 re-inker worked 
perfectly. 

Mounting and Operation 

Photo 1 shows a typical re- 
inker kit before installation. Al- 
though several different models 
exist, they have a bracket with a 
small, permanently mounted 
ball-bearing assembly. An ink- 
well snaps into the bearing. The 
inkwell itself has a threaded 
cap, and the ink feeds by capil- 
lary action through tiny holes in- 
to the felt bands that surround 
it. The mechanism is mounted 
so that the ribbon passes 



around the inkwell and picks up 
the ink from the felts whenever 
the printer is in operation. 

An actual installation is 
shown in Photo 2. The printer il- 
lustrated is an LA36 DECwriter, 
and the re-inker was mounted 
without drilling holes or making 
modifications to the printer. It 
can easily be restored to its orig- 
inal condition. 

A thin metal bar was bolted to 
the original re-inker brack- 
et/bearing assembly, and the 
bar, in turn, was clamped to the 
printer chassis. Fabrication and 
installation took less than ten 
minutes. Note that this is a 
slightly different model of re- 
inker kit than the one in Photo 1 , 
and the mounting method must 
be altered, depending on the 
model used. 

By making a suitable bracket, 
these re-inkers can be used on 
any printer that employs a stan- 
dard-width fabric ribbon. Com- 
mon examples are the DECwrit- 
er and the Teletype printers, but 
there are literally scores of other 
brands in the same category. My 
own modification worked so 
well that I helped to modify more 
than 200 other printers in hobby, 
commercial, and university in- 
stallations. 

Remember, the re-inker must 
not be placed between a ribbon 
spool and its corresponding rib- 
bon-reversing lever. This would 
alter the length of the path bet- 
ween these two elements, and 



there would be insufficient rib- 
bon length between the revers- 
ing rivet and the spool attach- 
ment point. This could cause the 
ribbon to jam before the revers- 
ing lever could be actuated, 
resulting in damage to the 
printer. 

Filling the Inkwell 

It is easy to over-ink a ribbon 
in your eagerness to get nice, 
dark print. The best policy is to 
fill the inkwell just before run- 
ning a program that will produce 
a lot of print. This will ensure 
that the ribbon will move back 
and forth several times and 
become evenly saturated. Some 
experimenting may be neces- 
sary, due to varying ribbon 
lengths. 

If your ribbon is old to start 
with, you may have to fill the ink- 
well more than once to saturate 
it, initially. After that, fill it just 
once whenever the print isn't as 
dark as you'd like. Be sure to 
give the ribbon time to make two 
or three complete passages 
before deciding to add more ink. 

To fill the well, unscrew the 
cap and fill the reservoir within 
1/8 inch (4 mm) of the rim. Then 
replace the cap. This can be 
done without taking the inkwell 
out of the printer. Use only NCR 
(National Cash Register) type 
K-575-F ink. This is a non-corro- 
sive, thick, black ink that comes 
in a tube, and is available at 
NCR repair and sales offices. 
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Photo 1. An automatic ribbon re-inker kit before mounting on a mi- 
crocomputer printer. The main parts are the bracket/bearing assem- 
bly and the inkwell assembly. Also, extra felts, nylon ribbon, and 
special tools for maintenance. 



One tube will last for years. This 
ink has the right consistency to 
flow properly in the re-inker, and 
it will not damage the machine's 
print head. 

Where to Buy Re-inkers 

The automatic re-inker kits 
described are available in new, 
unused condition from surplus 
dealers and firms which handle 
Teletype equipment. As in Photo 
1, the kit contains the brack- 
et/bearing assembly, inkwell, 
extra felts, nylon ribbon (with 
spool), a bottle of ink, a tool for 
shaping the felts, and a tool for 
cleaning the feed holes in the 



inkwell. The first thing you must 
do is to throw out the bottle of 
ink. Most of these kits were 
manufactured more than 10 
years ago, and the ink supplied 
is not satisfactory. Use only the 
NCR K-575-F ink. 

If you can't locate a re-inker 
kit, I have a few left from the 
modification projects here and I 
will sell them on a first-come 
first-served basis for $18.25, 
which includes kit, postage and 
insurance. Add $1.00 for first 
class mail. Also include a self- 
addressed, stamped envelope; I 
will return your money if all kits 
have been sold.B 




Photo 2. This shows the installation of a surplus re-inker kit in an 
LA36 DECwriter. Crisp, dark print is produced continuously, 24 
hours a day. Just refill the inkwell once every few days. 



SCIENTIFIC SUBROUTINE LIBRARY 

FOR 

ENGINEERS, SCIENTISTS AND 

MATHEMATICIANS 



American Computer Development, Inc. proudly introduces the most 
powerful collection of scientific subroutines ever written for micro- 
computers. Before now these programs were only available for large 
mainframe computers such as the IBM 370*. This collection of 72 
distinct programs are up and running and can be working for you 
NOW on your TRS-80" Model I. In seconds these programs will per- 
form some of the most difficult and time-consuming problems you 
face. For example, you can solve Eigenvalue problems, invert ma- 
trices, solve differential equations, do multiple linear regressions, and 
much, much more. 

LIBRARY INCLUDES: 

POLYLIB — This is a collection of 8 subroutines designed to handle 
polynomial operations of a very high order, including polynomial addi- 
tion, subtraction, division, multiplication, evaluation, differentiation, 
integration, normalization, and extraction of roots, both real and 
complex. 

FUNCLIB — This is a set of 10 subroutines to compute the value of a 
series expansion in some special polynomial, the value of a special 
polynomial or special function, such as the gamma function. 

MATLIB — This is a collection of 13 very powerful matrix-handling 
subroutines which can be used individually or can be linked together 
to form program modules to perform successive matrix operations. 
These subroutines all use Variable Array Dimensioning. 

CALCLIB — This is a collection of 7 subroutines designed to inte- 
grate, differentiate, and solve both single and systems of differential 
equations. The differential equations programs use the Fourth-Order 
RUNGE-KUTTA method. 

STATLIB — This is a set of 26 different subroutines to calculate many 
statistical properties of various data sets. While most of the programs 
can be used individually, several can be called in order to perform 
very sophisticated analyses, such as multiple linear regressions and 
polynomial regressions. 

MISCLIB — This is a collection of 8 subroutines to calculate various 
results, including Fourier analysis, Fourier transforms, least squares 
fits, and the solving of nonlinear equations. 



PADD 


PSUB 


PMPY 


PDIV 


PVAL 


PDER 


PINT 


P0LRT 


HEP 


HEPS 


LEP 


LEPS 


GMMMA 


BESJ 


BESY 


BESK 


10 


INUE 


GMADD 


GMSUB 


GMPRD 


GMTRA 


SADD 


SSUB 


SMPY 


SDIV 


MFUN 


SIMQ 


MINV 


EIGEN 


MSTR 


0GR3 


QTFG 


QG2 


QG10 


RK1 


RK2 


RKGS 


TALLY 


BOUND 


ABSENT 


•C0RRE 


ORDER 


MULTR 


GOATA 


AVDAT 


AVCAL 


MEANQ 


AUTO 


CROSS 


SM0 


EXSM0 


CHISQ 


QTEST 


RANK 


MOMENT 


TTEST 


GAUSS 


BDTR 


CDTR 


NDTRI 


DLGAM 


RAND 


NDTR 


RTNI 


FMFP 


SE13 


APLL 


APFS 


F0RIF 


F0RIT 


FFT 



DOCUMENTATION: Each diskette comes with 103 pages of docu- 
mentation containing calling conventions, parameters, notes, exam- 
ples, appendices and index. 

MINIMUM SYSTEM REQUIRED: 32K RAM with single disk drive 

TO ORDER: Send check or money order in the amount of $99.95 per 
copy made payable to 



AMERICAN COMPUTER 
DEVELOPMENT, INC. ^« 

1735 Briarcrest Dr., Suite 200 

Bryan, Texas 77801 
713/775-1516 713/775-1510 

Telephone orders accepted. Dealer inquiries invited. VISA and MAS- 
TER CHARGE accepted. Send card number and expiration date. 
Price includes shipping and handling. Immediate delivery. 

*IBM 370 is a Trademark of the International Business Machines Cor- 
poration. 
"TRS-80 is a Trademark of the Tandy Corporation. 
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UTILITY 



A software tool to retrieve the irretrievable. 



Direct Statement in File 



D.E. Fitchhorn 

3504 Piermont Dr. N.E. 

Albuquerque, NM 87111 



You've tried to load a BA- 
SIC program file from disk 
and the error message DIRECT 
STATEMENT IN FILE appears 
on the screen. When you don't 
have a backup copy, what do 
you do? 

Usually, you have to start 
over, retyping the program from 
written copy. Next, you edit for 
the latest changes and reSAVE 
it. You face the same problem 
when you move one or more 
lines from one place to another 
in a program. 

DIRECT STATEMENT IN FILE 
doesn't mean that the total file 
has been lost. It does mean that 
at least one line in the file 
doesn't have a line number. 
Even though a program can't be 
loaded under BASIC with this er- 
ror, the whole program file can 
be listed at DOS level as it ex- 



isted on disk. 

If the file is intact and can be 
read by DOS, then the file can be 
salvaged by inserting a properly 
sequenced line number or obvi- 
ating the need for a line number. 
The BASIC editor is of no use 
since it can't edit a program line 
that can't be loaded, and will not 
permit changes to be made to a 
line number. 

Easy Repair 

There is an easy way to repair 
these problems in a program 
saved as an ASCII file. A pro- 
gram that will read the BASIC 
program file as if it were a ran- 
dom access data file will also 
permit you to correct direct 
statement errors and change a 
line number. 

Program DSKREP/BAS does 
this, reading BASIC files sector 
by sector like random access 
files, and reporting on the con- 
tents of each sector, byte by 
byte. It provides the option of 
listing the sector data in hex or 
ASCII form. 

When a BASIC program fails 
to load completely because of a 
direct statement error, part of 



the file has been loaded into 
memory and that portion can be 
listed uncovering the line num- 
ber of the last good statement in 
file. Once that line number has 
been located, the problem line 
can be located in the sector 
data. You will know the number 
of sectors in the file from the 
DIR data and the approximate 
location of the error, and can es- 
timate the number of the sector 
containing the error. Observing 
the data printed for that sector 
helps pinpoint the sector con- 
taining the error. Data following 
the carriage return code at the 
end of the last good line normal- 
ly contains the error. 

DSKREP/BAS searches the 
computer sector by sector, for 
an ASCII string (a line number or 
another ASCII string clue) that 
you select. The program then 
prints the data in that sector. 

The edit function accesses 
each byte in a sector and re- 
places the contents of that byte 
with the desired code. If a line 
number is changed, loading la- 
ter under BASIC will rearrange 
the code in memory to place the 
line in proper position. 



How it works 

DSKREP/BAS first asks for 
the name of the file to be re- 
paired. The program asks 
whether you want to locate the 
problem area using an ASCII 
string clue or by the number of 
the sector, for which the pro- 
gram then asks. 

After the sector data has been 
printed, the program asks if you 
want to make a change. Y 
causes the program to continue 
the edit function, while N reverts 
the program to the sector num- 
ber request routine. 

The program next asks for the 
number of the byte to be 
changed, which should be an- 
swered with its decimal number 
(0 to 255). The program will print, 
if printable, the character in that 
byte. The next query asks for the 
ASCII character to replace the 
present character. This can be 
answered with an ASCII charac- 
ter or a decimal number of an 
ASCII character for characters 
not acceptable in a string vari- 
able (carriage return, etc). This 
operation can be repeated until 
all necessary changes are 
made. 
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After all changes have been 
made, answer the byte number 
query with a number greater 
than 255 to save the changes 
and return to the main program. 



If the sector number query is an- 
swered with a 0, the program re- 
verts to the filespec level. An- 
swer END to the query; FILE- 
SPEC ends the program run.B 



Program Listing 



* INITIALIZE 



240 
260 ' 

280 CLEAR 2000:CLS:DEFINT I-N 

300 DIM H$(15) ,DA$(260) 

320 FOR I = TO 15:READ H$(I):NEXT I 

340 CLS: PRINT @15,"ASCII FILE SECTOR REPAIR UTILITY " 

360 ' 

380 ' * GET FILENAME AND OPEN FILE 

400 ' 

420 LINEINPUT" 

FILENAME: ";FS$:IF FS$ = "END" THEN END 

ELSE ON ERROR GOTO 1600 :OPEN"I" , 1 ,FS$ 
440 ON ERROR GOTO : CLOSE : 0PEN"R" , 1 ,FS$: SN = 0:S$ = 

460 FOR J = TO 255:FIELD 1,(J*1) AS DUMY$,1 AS DA$(J) 

:NEXT J 
480 FIELD 1,255 AS DU$,1 AS DD$ 
500 * 

520 ' * DECIDE HOW TO LOCATE SECTOR 
540 ' 

560 SL$="" : INPUT" 
LOCATE SECTOR BY SEARCH STRING OR SEC 

TOR NUMBER?? (S OR N) °;SL$ 
580 IF SL$="E" THEN CLOSE:GOTO 340 
600 IF SL$<>"S" AND SL$O"N"GOTO560 
620 IF SL$="S"GOTO 820 
640 ' 

660 ' * LOCATE BY SECTOR NUMBER 
680 ' 

700 S$="" :INPUT" 
SECTOR NUMBER (OR 'ENTER' FOR NEXT SEC 

TOR): ";S$ 
720 IF S$ = ""THEN SN = SN + 1 ELSE SN = VAL(S$):IF SN 

< 1 THEN CLOSE: GOTO 340 
740 GOTO1020 
760 ' 

7 80 ' * LOCATE BY ASCII STRING 
800 ' 

820 SS$="": INPUT" 
STRING TO SEARCH FOR? ";SS$ 
840 FOR I = 1 TO LOF(l):GET 1,1 
860 Z = INSTR(DU$,SS$) 
880 IF Z <> GOTO 920 
900 NEXT I 
920 SN = I 
940 IF Z = THEN PRINT "STRING NOT FOUND !!":GOTO 820 

960 ' 

980 ' * GET PROPER SECTOR 

1000 ' 

1020 GET1,SN 

1040 ' 

1060 ' * PRINT SECTOR INFORMATION 

1080 ' 

1100 CLS :PRINT@64, "FILE : "FS$;TAB (35 ) "SECTOR: "SN 

1120 L1=-4:J1=-1:J2=-1 

1140 FOR I = TO 3: LI = Ll+4 

1160 PRINT@255,"":FOR L=0TO3 : PRINT (Ll+L) *16 ;TAB (6 ) ; : FOR 

K=1T016:J1 =J1+1 
1180 V=ASC(DA$(J1) ) :MN=INT(V/16) :LN=V-MN*16 : PRINT H$(MN 

)+H$(LN)+" "; 
1200 NEXTK:PRINT 
1220 PRINT TAB(7);:FOR K=1T016 : J2=J2+1 : IFDA$ (J2) >" "AND 

DA$(J2)<"Z"THENPRINTDA$(J2) ;" " ; : ELSEPRINT" . " ; : 
1240 NEXTK:PRINT 

1260 NEXTL:PRINT @1000 , "CONTINUE ";:INPUTYN$ 
1280 CLS: IF I > 2 GOTO 1300 ELSE PRINTQ64 , "FILE : "FS$ 

; TAB (35) "SECTOR : "SN 
1300 NEXTI:GOTO1380 
1320 ' 

1340 ' * CHANGE DECESSIONS 
1360 ' 
1380 YN$="":INPUT"DO YOU WANT TO MAKE A CHANGE ?";YN$: 

IFYN$O"Y"GOTO560 
1400 INPUT"* OF THE BYTE YOU WANT TO CHANGE?" ;X: IFX>255 

THEN1560 
1420 X$=DA$(X+1) : PRINT X$: INPUT'CHANGE TO CHARACTER?" ;X 

$ 
1440 IF LEN(X$)=1 GOTO 1480 
1460 X$ = CHR$(VAL(X$)) 
1480 LSET DA$(X+l)=X$:GOTO 1400 
1500 ' 

1520 ' * CHANGE THE FILE 
1540 ' 

1560 PUT1,SN:GOTO340 
1580 DATA "0","l","2","3","4","5","6","7","8 n r "9","A n ," 

B","C","D","E","F" 
1600 PRINT1TAB(10)" - FILE NOT FOUND - ":RESUME 340 
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Word Processing 

-*• SUBSCRIPT 5.Q $79.95 

With our software, your TRS-80*Model I or IZI 
and LINE PRINTER IV or CENTRQNICS " 737 can easily 
produce right-justified, prop ortion <a.l spaced 
documents with this typeset look, 

EPSON 3YI3C — SO owners can underline and use all 
1 12. fonts with this professional quality software. 

With SELECTRICS *and most other printers, you can 
take advantage of our 100+ pages of excellent 
documentation and 90+ functions, including! 

multiple top and bottom titles 

line split, join, and duplicate 

global search and change 

visible control words 

very large documents 

block move and copy 

right-justification 

,,, table of contents 

VqS^ form letters 

underlining 

centering 

autosave 

index 



+* 



Se/i 



tfxxiS* 



Vi 



super . . 
r scripts 



and sub 5cri P ts 



(some 



printers) 



Version 5.0 incorporates all features of our earlier 
PROP, SUBEDIT, SUBSCRIPT, and MININIT components, 
and adds several user-requested new features. It is based 
on IBM's highly-regarded CMS Time-Sharing system, so if 
you've been looking for "mainframe" quality Word 
Processing, you've just found it. 

ft OVQRAIC 

Keyboard translator with press-on labels! $19.95 

Typing Tutor (requires a translator)! $19.95 

Special! Both DVORAK programs! $34.95 

Software Speedups 

#■ FASTER $29.95 

Analyses executing BASIC programs, then identifies a 
simple program change to improve. their execution speed. 
NO hardware changes are involved, works with packages 
as well as your own code and can reduce run-times by 
lO — SO 1 ^. Example! "move selection" in "Othello" 
dropped from 48 to 32 seconds. This will be one of your 
most valuable utilities! 

& quick: compress $19.95 

Makes many Model I BASIC programs faster and 
30-60% smaller by removing blanks and selected remarks 
at your option. Processes 800 multi-statement lines in 3 
seconds, needs only 270 bytes. 

* XTEND4Q $14.95 

Quickly upgrades Model I 35-track disks to 40 tracks 
with your 40-track drives and Operating System. 

ORPERIISIO 



Models I and III, tape or disk! 
Models I and III, 32-48K disk! 
Model I! 



FASTER, DVORAK 
SUBSCRIPT 
COMPRESS, XTEND40 



L 



Tape versions run on 16-48K Level II, Disk versions run 
with TRSDOS*2.3, NEWDOS, NEWDOS/80* and Model III 
TRSDOS 1.1 & up. 

Please add $3.00 for postage & handling, and 6% tax in 
Calif. Checks, C.O.D.'s ok. 
Spring Special! We pay handling on orders over $25.00. 

BONUS! Model I orders over $50.00 will include a 
diskette "re-labeller" program FREE! 



J 
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GENERAL 



If you've ever bought a piece 

of cassette based software for your disk system. . . read on. 



Hardtimes 



Joe Fettig 

74-355 Buttonwood 

Palm Desert, CA 92260 



After owning my TRS-80 for a 
few months, I find it's es- 
sential to have a disk storage 
unit to really enjoy it. Tape cas- 
sette storage and access are 
just too slow and unreliable, 
leaving me frustrated and ready 
to sell my system. 

I finally bought a disk drive 
unit and promised myself that I 
would never buy anything on 
tape cassette again. Then I ran 
across a utility called a vari- 
ables map (variables cross-in- 
dex reference). 

The variables map is an inval- 
uable tool that gives you a list of 
all the variables used in a pro- 
gram and their line locations. 
When dealing with long pro- 



grams, it's nice to know which 
variables are already in use. This 
can eliminate using the same 
variable for two different func- 
tions in the same program. 

The utilities package in which 
this debugging aid is available 
is The Bottom Shelf's Basic 
Toolkit by Barry Mulligan. 

I went through the usual two- 
hour session of trying to get the 
tape to load, without success. A 
few hours later it magically load- 
ed and ran. Then all I had to do 
was use my monitor to get the 
start and end location and the 
entry point into the program. It 
wasn't easy. 

The Toolkit has a machine 
language program that loads 
and then automatically takes 
control of the computer, giving 
an error message on the moni- 
tor. The monitor is then sup- 
posed to give you the entry 
point. It failed! (I did notice a 
card with the Toolkit saying that 
you could send an additional 
$10.00 for a disk version.) 

Back to Disk 

At that point, I brought my 
project to a screeching halt and 
put it on disk. If it loaded into 



memory, it should load onto 
disk. Using DEBUG I determined 
that the program was located 
above memory location 46500 
(decimal) in the 32K version I 
was using. 

Using the TAPEDISK F com- 
mand, I dumped the program on- 
to disk, starting at B5A4H and 
ending at BFC0. The program 
was now on disk and would load 
into memory, but would not exe- 
cute and I did not know the entry 
point of the program in memory. 

Back to the original tape 
copy. I loaded it with the monitor 
again and found that the pro- 
gram was actually two program 
segments. The first segment 
loaded into memory, took con- 
trol, and then loaded the sec- 
ond, main program. 

Using DEBUG, I was able to 
determine exactly what was 
happening. The first program 
loaded, and then changed the 
keyboard control device loca- 
tion at 4016H and 4017H. This 
was the key to gaining entry into 
the program. All that was neces- 
sary was to load Toolkit when in 
DOS READY and then execute 
BASIC (be sure to protect mem- 
ory). 



In BASIC, execute the follow- 
ing program: 10 POKE &H4016, 
&HDF : POKE &H4017, &HB7. 

This changes the keyboard 
device control so that it jumps to 
B7DFH instead of its usual loca- 
tion, and then looks for a shift 
break key. When the shift break 
key is pressed, the Toolkit pro- 
gram should execute in its nor- 
mal manner. 

The above will work on a 32K 
TRS-80. The general procedure 
is outlined below: 

• Execute BASIC: Make sure 
you protect memory. 

• Type CMD'T": This stops 
the clock. 

• Type SYSTEM, and load the 
Toolkit program from tape. (You 
can test if Toolkit is working by 
pressing the shift and break 
keys.) 

The next two steps are for 16K 
and 48K users: 



Type: Print PEEK(&H4016) <ENTER> 

" Record this value 
Type: Print PEEK(&H4017) <ENTER> 

* Record this value 



• Press the reset button: This 
will put you in DOS READY. 

• Type TAPEDISK: <ENTER> 
This loads the Tapedisk program. 
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• Use the F command listed 
under TAPEDISK commands. 
Refer to the table below for your 
system configuration: 



MEMORY SIZE 


START 


END 


16K 


7530H 


7FC0H 


32K 


BFA4H 


BFCOH 


48K 


F618H 


FFCOH 



Use 402DH for the entry. 

• After the program has been 
put on disk, to execute It do the 
following: 

A With DOS READY, load 
the CMD file Into mem- 
ory. 

B Type LOAD "filename", 
filename being what 
you called the program 
when saving it under 
TAPEDISK. 

C Execute BASIC. Protect 
memory for the program 
with the size for your 
system. 

• 32K users, execute the BA- 
SIC program listed above. Users 
of other systems (16K and 48K), 
see the next step. 

• 32K users, go to the next 



step. All others: The BASIC pro- 
gram above will have to be 
changed to work with your 
system. The program changes 
the keyboard device control by 
POKEing two memory locations 
with different values. When a 
shift break is encountered, the 
Toolkit program then intercepts 
them. To do this, take step 4A 
and change the POKE statement 
In the BASIC program from 
POKE &H4016, &HDF to POKE 
&H4016, XXXX where XXXX = 
value obtained In step 4. Now 
change the POKE &H4017, &HB7 
to POKE &H4017, YYYY where 
YYYY = value obtained In step 
4B. 

• Now execute the BASIC 
program for 32K users or the 
modified program from step 10 
for 16K and 48K users. 

• Press the shift and break 
keys and the Toolkit menu 
should show up. 

The BASIC TOOLKIT is a 
worthwhile investment for disk 
users as well as non-disk users. 
The variables map is a must for 
the serious programmer. ■ 



Dr. Jerome S. Osteryoung, renowned business educator, and 
author of 5 business texts has written the following programs. 

1 . PROFORMA CASH-BUDGET 

PROGRAM 

Allows the user to project the cash-balances for up to twelve 
periods in the future. Amount of loan, if needed, is computed as 
well as computing funds available for short-term investment. 
(Price $125) 

2. LEASE-PURCHASE PROGRAM 

Evaluates the lease vs. purchase decision incorporating all the 
latest tax laws including the investment tax credit and ac- 
celerated depreciation. This program gives the user all the in- 
formation necessary to make this decision. (Price $50) 

3. BUSINESS PROGRAM PACKAGE 

13 Business programs (e.g., capital budgeting, cash- 
management, ratio analysis, debt management), These pro- 
grams will be very useful to the business manager. (Price $200) 

4. PROCUREMENT PROGRAM 

Ascertains purchase amount when future price of commodity 
is varying. A must for all managers who have purchasing 
responsibilities. This program takes into consideration inven- 
tory levels, inventory capacity, and financial carrying cost in 
determining the optimal amount of an item to purchase when 
future prices are varying. (Price Siso) 

5. COLLEGE ENROLLMENT 
PROJECTION PROGRAM 

Forecasts the enrollment for colleges using several different 
statistical techniques. User can specify the number of periods 
for which a forecast is desired. (Price $100) 
Extensive Documentation With Each Program, 

Write or call for a brochure which describes the product 
greater detail. 
• 87 

b200 Brittany Drive. * 1006^51 Peters burg. Florida 33715 
■^■■■■■■■k 81 3-864-434 7 




they last . 




the complete year of 1 980 80 Microcomputing 
(in its own shelf box. . . a $2.00 value — Free) 
for only $25.00.* W 

Did you miss the 2,256 pages of useful information published for your TRS-80** in 80 Microcomputing last 
year? Now is the perfect time to catch up for only $25.00.* 

In the first year of 80 Microcomputing here were 335 articles on your TRS-80 — 2 l A times more than any other 
computing magazine. Also in 1980 there were new product reviews, news and columns and best of all hun- 
dreds of dollars worth of useable programs. 

So to unlock the key to your TRS-80 and double its value . . . send in today for the complete year of 1980. 80 
Microcomputing (in its own shelf box) for only $25.00.* 
We have a limited number of these complete sets so send in the card today or call our toll free #800-258-5473 

and charge it to your VISA, MC or AE card. 

'plus shipping and handling ($3.00) "TRS-80 is a Trademark of Tandy 

u d?^Dgj I want a year of 80 Microcomputing for $25.00 plus 
$3.00 for shipping and handling. Plus I'll receive a shelf box to store 



them in. 

□ Check enclosed for $_ 

Name 

Address 




State. 



Zip. 



City 

Please allow 4 to 6 weeks for delivery 
80 Microcomputing * 80 Pine Street* Peterborough, N.H. 03458 
Toll free ordering number 800-258-5473 „ 



_l 
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EDUCATION 



Got a touch of dance fever? 

Then let your 80 show you some night moves. 



Dancin! 
A Disco Primer 



Andrew A. Modla 
5 Derby Place 
Newtown, PA 18940 



Rev up your floppies and let's disco! 
Here's a routine to use at your next 
party. Written for the TRS-80, 16K Level II 
BASIC machine, this disco dance demon- 
stration program is easy to apply. 

A number of people have asked my wife 
and I to teach them disco, ever since we 
began dance lessons two years ago. I got 
the computer into the act because it's ac- 
curately timed. 

Since much disco dance music utilizes 
electronic bass and percussion instru- 
ments to establish a tempo, the beat won't 
vary much. The computer can follow along 
quite well. 

Three Steps 

Three dance steps— Latin Hustle, Disco 
Hustle and Rope Hustle— are demon- 
strated with footsteps that move about on 
the video screen in time to the music. Once 
synchronized with the music, the footsteps 
keep time. Do this by entering the rate in 
beats per minute, while the music is play- 
ing, and by then starting the dance on a 



beat. 

I used a stopwatch to determine the num- 
ber of beats per minute. Calculate the num- 
ber of beats per minute by dividing the num- 
ber of beats by the number of seconds tim- 
ed by a stopwatch. Multiply by 60. Average 
about six samples to get an accurate num- 
ber. 

I wrote the time-critical part of the pro- 
gram, the footstep display, in machine lan- 
guage called from BASIC. This is the only 
way to maintain accurate timing of the foot- 
steps. The rest of the program is written in 
Level II BASIC. The machine language sub- 
routine is POKEd into the high order part of 
memory. 

The program has built-in explanations 
and instructions, so that a separate instruc- 
tion sheet is not needed. Some of the built- 
in features are: selections of either the 
woman's or man's footsteps for display, 
footsteps displayed one at a time, stop ac- 
tion on the dance steps, and restart from 
the first step. 

The machine language subroutine for 
displaying the footsteps is initialized by 
POKEing at location 32256 the instructions 
that move the footstep patterns to the dis- 
play RAM memory. Also initialized are the 
footstep patterns and control pointers. The 
subroutine at lines 8800 through 9660 sets 
up the machine language subroutine. 

The text explanations and prompting are 
shown following initialization. These are 
done by subroutines starting at lines 6000, 
6240, 6370 and 6560. 

The dance selected is read from data 
statements at the end of the program. 
These statements are instructions about 
where to place the steps, how much time to 
delay between steps, and where to go for 
the next step. 



The instructions consist of two parts: the 
first is a descriptive word indicating a pat- 
tern or command, and the second is the 
screen location for displaying the footstep, 
or just a number for the next instruction. 
You may recognize this as an interpretive 
programming technique. The instructions 
are converted into numeric code and 
POKEd into a table area to be accessed by 
the machine language subroutine. Reading 
and conversion of the data statements is 
performed by the subroutine from line 8000 
through 8530. The table is stored starting at 
location 31232. 

Patterns are stored starling at location 
31744. 

The subroutine at line 7000 computes the 
time delay count used in the machine lan- 
guage subroutine. Three counts are set up: 
full beat, half beat, and a quarter beat, all 
stored from locations 32496 to 32501. 

On lines 2200, 2230, and 2240, PEEKs are 
used to read the keyboard RAM area 
because the BASIC INKEY$ command does 
not permit checking a key off after returning 
a key value. 

The following variables are used in the 
program: 

D$ Dance name 

K$ Input key 

I Index, dummy variable 

X Address pointer, dummy variable 

B Beats per minute 

B# Beats per minute double precision 

S Step rate, one at a time = 1 continuous = 2 

G Address pointer 

H Address pointer 

N Dance name code: 1,2,3 

C Beats per minute conversion to time delay 

C# Beats per minute conversion to time delay 

Y Pattern address pointer 

T Display RAM address pointer 

Z 256 
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M Woman = 1 Man = 2 

R Number of END commands to skip while reading 
DATA statements 



Easy Demonstration 

The dance steps of this program were 
chosen so that the footsteps are oriented 
upward. This restriction makes it easier to 
program the dance step demonstrator. 
However, since many dances use side and 
turning footstep motions, a more elaborate 



program is necessary here. All the basic 
programming principles used can then be 
applied to more complex dances, both 
disco and ballroom. 

Also note that only the basic steps of a 
dance are shown. There are many varia- 
tions of the basic footworks, but here the 
footstep display routines are not expanded 
to handle complex motions (by adding extra 
footprint patterns). Arm and body dance 
motions are thus left to your imagination. ■ 



Program Listing 

10 REM DISCO DANCE STEP DEMONSTRATOR 

20 DBF INT A-Z 

30 Z=256 

40 GOSUB8810:GOSUB6000 

50 GOSUB6240 

55 GOSUB637 0:GOSUB6560:GOTO207 

60 CLS:PRINT@25,D$:POKE32258,0:POKE32259,122 

70 I=USR(0) 

2000 IFS=2THEN2200 

2010 K$=INKEY$:IFK$=""THEN2010 

2020 IFK$=CHR$(31)THEN60 

2030 IFK$=CHR$(9)THEN55 

2040 IFK$=CHR$(91)THEN50 

2050 IFK$=" "THEN70 

2060 GOSUB6560 

2070 K$=INKEY$:IFK$=""THEN2070 

207 5 IFK$=" "THEN60 

2080 IFK$=CHR$(31)THEN60 

2090 IFK$=CHR$(9)THEN55 

2100 IFK$=CHR$(91)THEN50ELSE2070 

2200 K$=INKEY$:X=PEEK(14400) : IFX=128THEN2230 

2220 IFX=2THEN2240ELSE2020 

2230 X=PEEK(14400) : IFX=0THEN70ELSE2230 

2240 X=PEEK(14400) : IFX=0THEN60ELSE2240 

6000 CLS :PRINTTAB( 15 ); "DISCO DANCE STEP DEMONSTRATOR" 

6020 PRINT:PRINTTAB(15); "COPYRIGHT 1979 ANDREW A. mODLA" 

6030 PRINT: PRINT 

6040 PRINT"THE DISCO DANCE STEP DEMONSTRATOR SHOWS WITH DANCING FE 

ET" 
6050 PRINT"THE BASIC FOOTWORK FOR POPULAR DISCO DANCES. IT CUSTOMI 

ZES" 
6060 PRINT"THE DEMONSTRATION FOR EITHER A MAN OR WOMAN'S DANCE STE 

PS." 
607 PRINT" IT ALLOWS YOU TO SET THE SPEED OF THE DANCING FEET FOR 



6080 

6090 
6140 
6150 
6160 
6162 
6165 
6170 

6200 
6203 
6205 
6206 
6208 
6210 
6215 
6220 
6225 
6230 
6235 
6240 
6250 

6260 
6270 
6280 

6290 
6291 
6292 
6293 
6295 



PRINT@804,' 
PRINT@832,' 



PRINT"SYNCHRONIZATION WITH MUSIC. IT CAN ALSO TAKE YOU THROUG 

H THE" 

PRINT "BASIC FOOTWORK STEP BY STEP. 

PRINT: PRINT: PRINT@960, "PRESS ANY KEY TO CONTINUE"; 

K$=INKEY$:IFK$=""THEN6150 

CLS:PRINT"THE FOLLOWING DIAGRAMS SYMBOLIZE THE FOOTSTEPS:" 

PRINT :PRINTTAB( 19) ; "MAN" ; TAB (42) ; "WOMAN" 

PRINT 

PRINTTAB(14) ; "LEFT" ;TAB( 23 ) ; "RIGHT" ; TAB (38) ; "LEFT" ; TAB (47) ; "R 

IGHT" 

PRINT@704,"A MOVING FOOTSTEP INDICATES A WALKING STEP." 

PRINT@748,"A FLASHING FOOTSTEP" 

PRINT@768,"IN PLACE INDICATES A WALK IN PLACE." 

'A FOOTSTEP WITHOUT THE HEEL" 

'INDICATES A TAP STEP USING THE BALL OF THE FOOT." 
PRINT@960, "PRESS ANY KEY TO CONTINUE"; 
POKEG, 126 : POKEH, 208 : I=USR (0) 
POKEH,212:I=USR(0) 
POKEH,216:I=USR(0) 

POKEH , 220 : I=USR ( ) : POKE16526 , : POKE16527 , 126 
K$=INKEY$:IFK$=""THEN6235ELSERETURN 

CLS: PRINT" SELECT ONE OF THE FOLLOWING DISCO DANCES: " :PRINT 
PRINT"1 LATIN HUSTLE" :PRINT"2 DISCO HUSTLE" :PRINT"3 ROPE H 
USTLE" 

PRINT: PRINT"PRESS KEY 1,2, OR 3 TO MAKE YOUR SELECTION" 
K$=INKEY$:IFK$=""THEN6270 
IFK$="1"THEN6290ELSEIFK$="2"THEN6290ELSEIFK$="3"THEN6290ELSE6 

270 

N=VAL(K$) 

ONNGOT06292, 6293, 6295 
D$="LATIN HUSTLE":GOTO6300 
D$="DISCO HUSTLE":GOTO6300 
D$="ROPE HUSTLE" :GOTO6300 

Program continues 




The Magic Cur«or makes sophisticated Oala £n 
Magic Cursor, you define the data entry or d 
screen The definition commands will general 
implement data entry and display 
The Magic Curtor will also. 

• create graphical characters simply on the scj 

• duplicate characters on the screen easily 

• store screens lor later use in the same sessic 

• reload screens created in previous sessions 

• center blocks ol text on the screen 
. move blocks ot text on the screen 

• right lustily text within a block on the screen 
and more it has 27 powerlul commands" 
MAGIC CURSOR (32K Disk) Mod I 



ry and Display easy 
splay fields directly 
• the BASIC mslruc 



Trace-80" 



.i',:'.\>.1" i; 

your O'ogr* 



TheRestauranteur's Consultant 



fr 



CUSTOM COMPUTER 
CENTER, INC. 



P O Box 58042 
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WRITE FOR OUR COMPLETE 
SOFTWARE CATALOG!! 



MTS OFFERS A COMPLETE 
EDUCATIONAL PACKAGE FOR 
STUDENTS AND TEACHERS OF 
ENGINEERING 

MATHEMATICS 
STATISTICS 

DEVELOPED BY DR. S. W. TURNER 
FOR THE TRS-80* 

\.s \Jl\ Vl I I Determines coefficients (or all polynomials up to 
14th degree through large no. of data points {limited by memory size). 
Data points may be input in any order. Program tabulates correlation 
coefficients for selection of best fit. 



CURVPLOT Rapids 



plots nearly any 



function. User controls range of X & Y and program labels both < 
Easy to use. 




POLYSOLV s 



-_^ ~ _ — — - -olves any 

polynomial of any degree for all roots, including real and imaginary. 
Program uses iterative procedures which automatically vary starting 
point to handle any equation. 

Any of the above programs on: 
cassette for 16K LV1I. . .16.95/ 2 for 29.95 
formated disk for 32K, 48K disk . . .19.95/ 2 for 32.95. 



BONUS PACKAGE 



lor disk users. All 3 



analysis i 



t powerful tool (or data 

stnesses, schools, colleges, personal use. All three 
nly 39.00 



programs provide 

Useful for small businesses 
program on formated disk, 

INDEX- 80 for the serious TRS-80* user - save hours of 
searching — rapidly searches all 1980 issues of '80 Microcomputing't 
for keywords or subjects. 356 articles & reviews with nearly 2000 
subjects stored. Includes alphabetical index of keywords/subjects. 
3 versions: specify 
16K LVII cassette, 32K or 48K disk 19.95 

Mail or Phone (904) 897-3741 C~ 

F L. residents add 4% sales tax 
Foreign orders add $2.00 

^451 




MICROCOMPUTER TECHNOLOGY AND SOFTWARE 
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PROGRAMMING TOOLS FOR YOUR 

TRS-80® 



INSIDE LEVEL II 

The Programmers Guide to the TRS-80 ROMS 

INSIDE LEVEL II is a comprehensive reference guide to the Level II ROMs which allows 
the machine language or Basic programmer to easily utilize the sophisticated routines 
they contain. Concisely explains set-ups. calling sequences, and variable passage for 
number conversion, arithmetic operations, and mathematical functions, as well as 
keyboard, tape, ana video routines Part II presents an entirely new composite program 
structu's which loads under the SYSTEM command and executes in both Basic and 
machine code with the speed and efficiency of a compiler in addition, the 18 chapters 
include a large body of other information uselui to the programmer including tape 
lormatB, RAM Ullage, relocation of Basic programs. USR call expansion, creating 
SYSTIM tapes of your own programs, interfacing oi Basic variables directly with 
machine code, a method of greatly increasing the speed at which data elements are 
stored on tape, and special precautions for disk systems. INSIDE LEVEL II is a clearly 
organized reference manual. It is fully typeset and packed with nothing but useful 
information. It does not contain questions and answers, ROM dumps, or cartoons. 
INSIDE LEVEL II $15.95 



SINGLE STEP THROUGH RAM OR ROM 

STEP80 allows you to step through any Basic or machine language program one 
instruction at a time, and see the address, hexadecimal value, Zilog mnemonic, register 
contents, and step count for each instruction. The top 14 lines ot the video screen are left 
unaltered so that the target program' may perform its display functions unobstructed. 
SI EP80 will follow program (low right into the ROMs, and is an invaluable aid in learning 
how the ROM routines function. Commands include step (trace), disassemble, run in 
step mode at variable step rate, display or alter memory or CPU registers, jump to 
memory location, execute a CALL, set breakpoints in RAM or ROM, write SYSTEM 
tapes, and relocate to any page in RAM. The display may also be routed to your line 
printer through the device control block so custom print drivers are automatically 
supported STEP80 $16.95 



TELECOMMUNICATIONS PROGRAM 

This machine language program allows reliable high speed file transfers between two 
disk-based computers over modems or direct wire. It is menu driven and extremely 
simple to use Functions include real-time terminal mode, save RAM buffer on disk, 
transmit disk file, receive binary files, examine and modify UART parameters, program 8 
custom log-on messages, automatic 16-bit checksum verification of accurate transmis- 
sion and reception, and many more user conveniences. Supports line printers and 
lowercase characters With this program you will no longer need to convert machine 
language programs to ASCII for transmission, and you will know immediately if the 
transmission was accurate. TELCOM $29.95 



PROGRAM INDEX FOR DISK BASIC 

Assemble an alphabetized index of your entire program library from disk directories. 
Program names and tree space are read automatically (need not be typed in) and may 
be alphabetized with a fast Shell/Metzner sort by disk or program. The list may also be 
searched for any disk, program, or extension, disks or programs added or deleted; and 
the whole list or any part sent to the printer. Finally, the list itself may be stored on disk for 
future access and update. The best thing since sliced bread' (January issue of '80 
Microcomputing). Works with TRSDOS. NEWOOS, and NEWDOS/80. One drive and 
32K required INDEX $19.95 



4 SPEED OPTIONS FOR YOUR TRS-80 

The SK-2 clock modification allows CPU speeds to be switched between normal, an 
increase of 50%. or a 50% reduction, selectable at any time without interrupting 
execution or crashing the program. Instructions are also given for a 100% increase to 
3.54 MHz, though the TRS-80 is not reliable at this speed. The SK-2 may be configured 
by the user to change speed with a toggle switch or on software command. It will 
automatically return to normal speed any time a disk is active, requires no change to the 
operating system, and has provisions for adding an LED to indicate when the computer 
is not at normal speed It mounts inside the keyboard unit with only 4 necessary 
connections for the switch option (switch not included), and is easily removed if the 
computer ever needs service The SK-2 comes fully assembled with socketed ICs and 
illustrated instructions SK-2 $24.95 



INSTANT ASSEMBLER 

The INSTANT ASSEMBLER is a new, powerful tape-based editor/assembler and 
debugger for the TRS-80 Model I. It features immediate detection of errors as the source 
code is entered, assembly to memory as well as to tape, a built-in single-stepping 
debugger, a compactly coded source format that uses 1/3 as much memory as stan- 
dard source, the ability to produce relocatable code modules, and the ability to link- load 
independently written modules, In addition, the INSTANT ASSEMBLER has many oper- 
ational features including single stroke entry of DEFB and DEFW, continuous editing of 
suceesive lines, alphabetic listing of symbol table, separate commands for listing error 
lines or the symbol table, block move function, and verification of source tapes, 
INSTANT ASSEMBLER includes three separate programs, The assembler itself in- 
cludes the single-stepper and debugger. In this mode you may have full register 
displays, decimal or hex entry, forward or backward memory displays, disassembly ol 
ob|ect code in memory, memory display In ASCII format, and hex-to-decimal or 
decimal-to-hex conversion. The single-stepper will step one instruction at a time or at a 
fast rate to any defined address. During assembly you may quickly switch from assem- 
bler to debugger and back again without losing the source code. This makes INSTANT 
ASSEMBLER an excellent learning tool for machine language programming. Also 
included on the tape are two versions of the linking loader which allow you to write your 
programs in smaller modules and link them together for final assembly. 
INSTANT ASSEMBLER occupies 8375 bytes of memory. In a 16K machine this will 
leave you more than 7000 bytes which is enough to write assembly language programs 
of around 2000 bytes. This makes it ideal for users with only 16K machines. While this 
version was written specifically for tape systems, we will soon have a disk version as 
well. The instruction manual may be purchased separately for $5, which will apply 
towards the purchase of the INSTANT ASSEMBLER. INTASM $29.95 



RAM SPOOLER AND PRINT FORMATTER 

This program is a full feature print formatting package featuring user defmeable line and 
page length (with line feeds inserted between words or after punctuation), screen 
dump, printer pause control . and baud rate selection. In addition, printing is done from a 
4K expandable buffer area so that the LPRINT or LLIST command returns control to the 
user while printing is being done Ideal for Selectnc or other slow printers. Allows 
printing and processing to run concurrently. Output may be directed to either the 
parallel port, serial port, or the video screen SPOOLER $16.95 



MACHINE CODE FAST FOURIER TRANSFORM 

This complete package includes 3 versions of the machine language FFTASM routine 
assembled for 16. 32, and 48K machines, a short sample Basic program to access 
them, a 10K Basic program which includes sophisticated interactive graphing and data 
manipulation, and a manual of instructions and examples. The machine language 
subroutines use variables defined by a supporting Basic program to make data entry 
and retrieval extremely fast and easy for custom implementation. They perform 20 to 40 
times faster than their Basic equivalent (256 points in 12.5 seconds), and require less 
than 1550 bytes of memory. The FFT is useful in analyzing stock market and comodity 
trends as well as for scientific information. FFTASM $49.95 



DUPLICATE SYSTEM TAPES WITH CLONE 

Make duplicate copies of any tape written for Level II. They may be SYSTEM tapes or 
data lists. The file name, load address, entry point, and every byte (in ASCII format) are 
displayed on the video screen. CLONE $16.95 



RAMTEST FOR LEVEL II 

This machine language program is a very thorough test for several types of RAM errors. 
A complete test of each individual bit in a 48K machine takes just 14 seconds Includes a 
separate test for power line glitches. RAMTEST.. ...$9.95 



EDIT BASIC PROGRAMS WITH ELECTRIC PENCIL 

Load Basic programs or any other ASCII data file into the disk version of Electric Pencil 
for edittmg. One command from DOS quickly modifies existing files to Pencil format. 
One disk and 32K required. PENPATCH $9.95 



MUMFORD 

MICRO 

SYSTEMS 



ORDERING: Complete satisfaction is .guaranteed or a full refund will be made. All 
programs are shipped on cassette unless $5 is included tor a formatted (no system) disk 
Include $1 postage and handling. California residents add 6% sales tax Visa. Master- 
charge and COD orders accepted 



Box 400-E Summerland, California 93067 (805) 969-4557 
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6300 CLS: PRINT "THE DISPLAY WILL SHOW FOOTSTEPS FOR EITHER THE MAN 

OR WOMAN." 
6310 PRINT"SELECT FOOTWORK FOR:" 
6320 PRINT: PRINT"1 WOMAN" : PRINT "2 MAN" 
6330 PRINT: PRINT"PRESS KEY 1 0R 2 TO CONTINUE" 
6340 K$=INKEY$:IFK$=""THEN6340 

6350 IFK$="1"THEN6360ELSEIFK$="2"THEN6360ELSE6340 
6360 M=VAL(K$) 
6363 PRINT: PRINT: PRINT"LOOKING UP DANCE IN MEMORY ";:GOSUB80 

00: RETURN 
637 CLS:PRINT"THE DANCE STEPS CAN BE DISPLAYED ONE AT A TIME AT Y 

OUR COMMAND" 
6380 PRINT"OR CONTINUOUSLY WITH ANIMATION." 
6390 PRINT: PRINT"1 DANCE STEPS CHANGE ONE AT A TIME" 
6400 PRINT"2 DANCE STEPS CHANGE CONTINUOUSLY" 
6410 PRINT: PRINT"PRESS KEY 1 OR 2 TO CONTINUE" 
6420 K$=INKEY$:IFK$=""THEN6420 

6430 IFK$="1"THEN6440ELSEIFK$="2"THEN6440ELSE6420 
6440 S=VAL(K$) 
6445 B=l:POKE32448,S-l 
6450 IFS=1THEN6555 
6460 CLS:PRINT"THE ANIMATED STEPS CAN BE SYNCHRONIZED WITH MUSIC T 

HELP YOU" 
6470 PRINT"FOLLOW ALONG. YOU SELECT THE RATE THE FOOTPRINTS CHANGE 

ON THE" 
6480 PRINT"DISPLAY IN BEATS PER MINUTE. THE RATES RANGE FROM 85 TO 

150" 
6485 PRINT"BEATS PER MINUTE." 

6490 PRINT: PRINT"TYPICAL RATES FOR SELECTED MUSIC ARE:" 
6500 PRINT:PRINT"112 THE HUSTLE (VAN MCCOY)" 
6505 PRINT"126 LE FREAK (CHIC)" 
6510 PRINT"136 MACHO MAN (VILLAGE PEOPLE) 
6515 PRINT"140 SUNSET PEOPLE (DONNA SUMMER) ": PRINT 
6530 PRINT"HOW MANY BEATS PER MINUTE"; 
6540 INPUT B 

6550 IFB<85THEN6530ELSEIFB>150THEN6530 
6553 GOSUB7000 

6 555 RETURN 

6560 CLS:PRINT"THESE KEYS LET YOU CONTROL THE ACTION:" 

6570 PRINT: PRINT "CLEAR", "START DANCE STEPS FROM BEGINNING" 

6580 PRINTCHR$ (94) , "TIMING CHANGE" 

6590 PRINT"SPACE", "START/ STOP/NEXT STEP" 

6600 PRINTCHR? ( 91 ), "SELECT A NEW DANCE" 

6610 PRINT: PRINT"ANY OTHER KEY WILL GIVE YOU THIS MENU AGAIN." 

6620 PRINT: PRINT: PRINT"PRESS ONE OF THE ABOVE KEYS TO CONTINUE" :RE 

TURN 
7000 B#=B 
7010 C#= (( 106445000. /B#) -1941. )/20. 

7 020 IFC#>32767THENC#=-(65536-C#) 

7030 C=C#:IFO0THENPOKE32496,C/Z ELSEPOKE32496, INT(C/Z + 256) 

7040 POKE32497,C-Z*INT(C/Z) 

7 050 C#=( ( 53222500. /B#) -1941. )/20. 

7060 IFC#>327 67THENC#=-(65536-C#) 

7080 C=C#:IFO0THENPOKE32498,C/Z ELSEPOKE32498,INT(C/Z + Z) 

7090 POKE32499,C-Z*INT(C/Z) 

7100 C#=( ( 26611250. /B#) -1941. )/20. 

7110 IF C#>32767 THEN C#=- (65536-C#) 

7120 C=C#:IFC>0 THEN POKE 32500, C/Z ELSE POKE 32500, INT (C/Z+256 ) 

7130 POKE32501,C-Z*INT(C/Z) :RETURN 

8000 R=2*N+M-3 

8010 RESTORE 

8020 IF R=0THEN8050 

8030 READK$,T:IFK$O"END"THEN8030 

8040 R=R-1:GOTO8020 

8050 X=31232 

8060 READK$,T 

807 IFK$="MLF1"THENY=317 44:GOTO8500 

8080 IFK$="MRF1"THENY=31762:GOTO8500 

8090 IFK$="MLT1"THENY=317 80:GOTO8500 

8100 IFK$="MRT1"THENY=317 98:GOTO8500 

8110 IFK$="WLF1"THENY=31816:GOTO8500 

8115 IFK$="WRF1"THENY=31834:GOTO8500 

8120 IFK$="WLT1"THENY=31852:GOTO8500 

8130 IFK$="WRT1"THENY=31870 :GOTO8500 

8140 IFK$="ERASE1"THENY=31888:GOTO8500 

8150 IFK$="DELAYl"THENY=32496:GOT08525 

8151 IFK$="DELAY2"THENY=32498 :GOT08525 

8152 IFK$="DELAY4"THENY=32500:GOTO8525 
8160 IFK$="SPACE"THENY=31955:GOTO8500 
8170 IFK$="ONE"THENY=31906:GOTO8500 
8180 IFK$="TWO"THENY=31913 :GOTO8500 

8190 IFK$="THREE"THENY=31920:GOTO8500 J 

8200 IFK$="FOUR"THENY=31927:GOTO8500 "\ 

8210 IFK$="FIVE"THENY=31934:GOTO8500 ,r 

8220 IFK$="SIX"THENY=31941 :GOTO8500 
8230 IFK$="AND"THENY=31948 :GOTO8500 
8480 IFK$="END"THENRETURN 

Program continues 



SCHOOLMASTER 

Record Keeping Made Easy! 

■ Analyzes grade assignments 

■ Keeps a cumulative grade list 

■ Maintains current averages 

■ Prints class lists; progress reports 

SCHOOLMASTER is designed to 
replace or supplement most of the functions 
of the gradebook. In addition, it serves the 
function of analysis of scores and grades, 
and automates the process of producing 
individual progress reports. Requires 32K 
disk system; is compatible with NEWDOS, 
NEWDOS/80 and TKSDOS. $24.95 on 
disk. Manual alone, $1.00. 



□ Please send Schoolmaster to: 

Name: 

Address: 

City: 

State, Zip: 



1806 Ada Street 

Lansing, MI 48910 

Ph. (517) 487-3358 or 

(517) 485-0344 
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Add$2.00for crush-proof box and postage; $1 .50 for 
COD, 4% for Master Charge or Visa. PO's welcome. 



COTTAGE ( 
SOFTWARE 

PACKER: Automatically edits all or part of your Basic 
program to ease editing, run faster, or save memory. 
Has 5 sections: UNPACK — unpacks multiple state- 
ment lines into single statements maintaining pro- 
gram logic, inserts spaces and renumbers lines for 
easier editing. SHORT — shortens your program by 
editing out all REM statements, unnecessary words 
and spaces. PACK— executes UNPACK & SHORT 
then packs lines into multiple statement lines; main- 
tains program lqgic. RENUM — renumbers program 
lines including all branches. You specify increment. 
MOVE — moves any line or block of lines to any new 
location in the program and renumbers lines. Written 
in machine language. Supplied on tape in 3 versions 
for 16K, 32K & 48K. 

For TRS-80" Level II or Disk Basic $29.95 

FAST SORT ROUTINES: for use with Radio Shacks 
Accounts Receivable, Inventory Control I, & Disk Mail- 
ing List Systems for Model I Level II. Sorts in SEC- 
ONDS! You'l! be amazed at the time they can save. 
Supplied on data diskette with complete instructions. 

FAST SORT for Accounts Receivable $19.95 

FAST SORT for Inventory Control I $19.95 

FAST SORT for Disk Mailing List (specify data diskette 

or tape for one drive system) $14.95 

ALL THREE ROUTINES $44.95 

SYSTEM TAPE DUPLICATOR: Copy your system for- 
mat tapes. Includes verify routine. 

ForanyTRS-80' v Levelll $14.95 

CASSETTE LABEL MAKER: A mini word processor to 
print cassette labels on a line printer. Includes manual 
and 50 peel-and-stick labels on tractor feed paper. 

ForTRS-80"' Level II & printer $15.95 

4116 RAM CHIPS— Tested!! Guaranteed for 1 year to 

the original purchaser 16K for $49.95 

MANY MORE items available. Call or write for catalog. 
VISA & MASTERCHARGE accepted. Dealer inquiries 
invited. Kansas residents add 3% sales tax. 
Foreign orders in US currency only. ,„ 
On line catalog on Wichita FORUM-80: 316-682-2113 
Or call our 24 hour phone: 316-683-4811 or write: 

COTTAGE SOFTWARE 

614 N.Harding ^233 
Wichita, KS 67208 
L^TRS-80 is a registered trademark of TANDY CORP." J 



•See List of Advertisers on page 306 
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SSI EH3INEERIN3 SOFIYRRE LIBRARY 



STOOMAP- The program that sets the standard in 

structural engineering software for the Model I, 
now available to Model II owners. 

Model I, 64K, 1-disk D S49.95 

Model II, 64K D S79.95 

SK7TION PROPERTIES- Another popular engineering 
program, now available for the Model II. 

Model I, 16K, L-II T $14.95 D $17.95 

Model II D S29.95 

Pocket Computer T $9.95 

MRTH PAK- Let the POCKET COMPUTER help you learn 

engineering math programs, high school thru grad 
school and P.E. Taken from Schaum Outline 
Series. 

Lines and Points T $14.95 

General Equations Pak T $14.95 

Also for Model I, L-II T $19.95/ea. 

MX-80 PRIMER- Bi-directional, upper & lower case, S 
disposable print head. A high quality printer 

at a very reasonable price. $599.00 

CABLE $35 . 00 

MEMOREX DISKETTES 5 1/4" Double Density $29.95 

8" Double Density $39.95 

^403 




UPERIOR 
OFTWARE 



INC 

P BOX 11676 
KANSAS CITY M0 64 1 38 



MISSOURI RESIDENTS 

PLEASE ADD 

<lil STATE SALES TAX 



Write SSI for infor 




SCIFI GAME OF 
TACTICAL SFACE COMBAT 

Design your own space fighter. You choose the 
weapons, equipment, engines, and more. Then engage 
in a one on one sudden death fly-off. Human opponent 
or 10 different computer opponents. Fight in 2 or 3 
dimensions. Action Sounds and Graphics. The most 
imaginative scifi game we offer. s ig 95 

( written by former USAF phantom pilot } 

More Super Games with Action Sounds and Graphics: 

1 1 1 A WTC 1 1 1 Amazing battle between ant colonies. 

!!! All loll! Easy to play. Challenging to master! S14.95 

O/YDCCPTflD \l Tne ultimate space war. Unique split 

rMHotL I Llli V video, each player has a private display. S19.95 

ninPrPTYln fl Tournament version of Parsector V . 

PARStUURO Larger gala,, to conquer. S20.95 

UIPU CDCCn I ICE Tne ,a » ,est ' most advanced lite 

nlUn OrttU Lilt game. Up to 2000 gen/min possible. 5 T'-SS 

NAMETHATSTATE QUIZ Zr^JZZZLf** 

TRS 80 Level II 16k, Model I or III required. >^231 
For cassette and instructions sand CHECK or MONEY ORDER. 

Synergistic Solar Inc. &„!}%. 5 |8iS 5 

Pleas* write for more info. Dealer inquiries invited- 



I Maxell*™ BDygm I 

P A 

P • ' • • • T 

I llilliii ; 

T 8" SINGLE SIDE u 

R DOUBLE DENSITY Box of 10 for iOO jr 

§ 8 DOUBLE SIDE R 

8 DOUBLE DENSITY Box of 10 for S 70 A 

9 V MINI Box ot 10lor ISO £ 

7 DYSAN* DISKS B 

q 9 V MINI Box oi 9 lo. S29 M 

M ( Specify -8" Soft or Hard Soctor, 5' Soft or Hard Sector-) A 

A 
N 



COD.- 51.00 Additional 



I @MAfom£tutn0*icA 



%c 



238 EXCHANGE STREET 
CHICOPEE, MA. 01013 

413 •592-4761 

established 1960 ■ cloMd mondaya 

i atari mmmm* ti/99-4 mmmm 



PET I 



8490 PRINT"ERR0R IN COMMANDS 8490": END 

8500 P0KEX,Y/Z:X=X+1:P0KEX,Y-Z*INT(Y/Z) :X=X+1 

8505 T=T+15360 

8510 P0KEX,T/Z:X=X+1:P0KEX,T-Z*INT(T/Z) :X=X+1 :GOTO806 

8525 T=4*T+31232 

8530 P0KEX,Y/Z:X=X+1:P0KEX,Y-Z*INT(Y/Z) :X=X+1 :GOTO8510 . 

8800 REM SET UP MACHINE LANGUAGE SUBROUTINE 

8810 X=32256 

8820 POKEX, 221 : P0KEX+1 , 33 : POKEX+2 , : P0KEX+3 , 122 : POKEX+4 , 205 : P0KEX+ 

5,48 
8825 POKEX+6,126:X=X+7 
8830 POKEX, 205 : POKEX+1 , 48 : P0KEX+2 , 126 : POKEX+3 , 205 : POKEX+4 , 48 : POKEX 

+5,126:X=X+6 
8840 POKEX , 58 : POKEX+1 , 192 : POKEX+2 , 126 : POKEX+3 , 254 : POKEX+4 , 
8845 POKEX+5 , 202 : POKEX+6 , 156 : POKEX+7 ,126 :X=X+8 
8850 POKEX, 58 : POKEX+1 , 255 : POKEX+2 , 56 : POKEX+3 , 254 : POKEX+4 , 
8855 POKEX+5 , 194 : P0KEX+6 , 156 : POKEX+7 , 126 : X=X+8 
8860 POKEX , 205 : POKEX+1 , 112 : POKEX+2 , 126 : POKEX+3 , 58 : POKEX+4 , 255 
8863 POKEX+5 , 56 : P0KEX+6 , 254 : POKEX+7 , : P0KEX+8 , 194 : P0KEX+9 , 43 
8866 POKEX+10 , 126 : POKEX+11 , 195 : P0KEX+12 , 4 : P0KEX+13 , 126 : P0KEX+14 , 20 

1 
8870 X=323 00: POKEX, 221: POKEX+1, 33 :X=32304 

8880 POKEX, 221 : POKEX+1 ,70: POKEX+2 , : POKEX+3 , 221 : POKEX+4 , 35 
8885 POKEX+5 , 221 : P0KEX+6 ,78: POKEX+7 , : X=X+8 

8890 POKEX , 221 : POKEX+1 , 35 : POKEX+2 , 221 : POKEX+3 , 102 : POKEX+4 , 
8895 POKEX+5 , 221 : P0KEX+6 , 35 : POKEX+7 , 221 : POKEX+8 , 110 : P0KEX+9 , : X=X+ 

10 
8900 POKEX , 221 : POKEX+1 , 35 : POKEX+2 , 10 : POKEX+3 , 87 : POKEX+4 , 50 : POKEX+5 

,193 
8905 POKEX+6 , 126 : POKEX+7 , 3 : POKEX+8 , 10 : POKEX+9 , 95 : POKEX+10 , 3 : X=X+11 
8910 POKEX , 10 : POKEX+1 , 119 : POKEX+2 , 3 : POKEX+3 , 35 : POKEX+4 , 21 
8915 POKEX+5 , 194 : POKEX+6 ,77 : POKEX+7 , 126 : X=X+8 
8920 POKEX, 58 : POKEX+1 , 193 : POKEX+2 , 126 : POKEX+3 , 87 : POKEX+4 , 62 : P0KEX+ 

5,60: POKEX+6 , 133 : POKEX+7 , 111 : POKEX+8 , 62 : P0KEX+9 , : POKEX+10 , 14 

: P0KEX+11 , 103 : POKEX+12 , 29 : P0KEX+13 , 194 : POKEX+14 ,77 : POKEX+15 , 

126:POKEX+16,201 
8922 POKEX+6 , 133 : POKEX+7 , 111 : POKEX+8 , 62 : P0KEX+9 , : POKEX+10 , 140 
8925 POKEX+11 , 103 : P0KEX+12 , 29 : POKEX+13 , 194 : POKEX+14 ,77 : P0KEX+15 , 12 

6 
8930 POKEX+16,201:X=32368 

8940 POKEX, 221 : POKEX+1 , 102 : POKEX+2 , : POKEX+3 , 221 : POKEX+4 , 35 
8945 POKEX+5 , 221 : POKEX+6 , 110 : POKEX+7 , : POKEX+8 , 221 : P0KEX+9 , 35 : X=X+ 

10 
8950 POKEX , 70 : POKEX+l , 35 : POKEX+2 ,7 8 : POKEX+3 , 62 : POKEX+4 , : POKEX+5 , 1 

1 
8955 POKEX+6 , 184 : POKEX+7 ,194 : POKEX+8 ,127 : P0KEX+9 , 126 :X=X+10 
8960 POKEX , 11 : POKEX+1 , 185 : POKEX+2 , 194 : POKEX+3 , 132 : POKEX+4 , 126 : POKE 

X+5 , 195 : POKEX+6 , 160 : POKEX+7 ,126 
8970 POKEX+5, 195: POKEX+6, 160: POKEX+7, 126 :X=32412 
8975 POKEX, 221 : POKEX+1 , 35 : POKEX+2 , 221 : POKEX+3 , 35 : X=X+4 
8980 POKEX, 221 : POKEX+1 , 102 : POKEX+2 , : POKEX+3 , 124 : POKEX+4 ,50 
8982 POKEX+5 , 3 : POKEX+6 , 126 : POKEX+7 , 221 : POKEX+8 , 35 : X=X+9 
8985 POKEX, 221 : POKEX+1 , 110 : POKEX+2 , : POKEX+3 , 125 : POKEX+4 , 50 : P0KEX+ 

5,2 
8987 POKEX+6, 1 26 :X=X+7 

8990 POKEX, 229 : POKEX+1 , 221 : POKEX+2 , 225 : POKEX+3 , 201 
9000 REM SET UP POINTERS 

9010 H=32302:G=32303:POKE16526,44:POKE16527,126 . 
9020 X=32464 

9030 POKEX, 124 : POKEX+1 , : POKEX+2 , 61 : POKEX+3 , 142 : POKEX+4 ,124 
9035 POKEX+5 , 18 : POKEX+6 , 61 : POKEX+7 , 152 :X=X+8 
9040 POKEX, 124 : POKEX+1, 7 2: POKEX+2, 61: POKEX+3, 166: POKEX+4, 124: POKEX 

+ 5,90 
9045 POKEX+6, 61 : POKEX+7, 176 
9050 REM SET UP FOOTSTEP PATTERNS 
906 X=317 44 : POKEX , 4 : POKEX+1 , 4 : X=X+2 : 
907 POKEX , 184 : POKEX+1 , 191 : POKEX+2 , 191 : POKEX+3 ,189 
9080 POKEX+4 ,143: POKEX+5 ,143: POKEX+6 ,143: POKEX+7 ,135 
9090 POKEX+8 , 176 : POKEX+9 , 17 6 : POKEX+10 , 176 : POKEX+11 , 144 
9100 POKEX+12 ,13 9: POKEX+13 ,143: POKEX+14 , 143 : P0KEX+15 ,129 
9110 X=X+16 : POKEX, 4 : POKEX+1 , 4 :X=X+2 
9120 POKEX, 190: POKEX+1, 191: POKEX+2, 191: POKEX+3, 180 
9130 POKEX+4 , 139 : POKEX+5 , 143 : POKEX+6 , 143 : POKEX+7 , 143 
9140 POKEX+8 , 160 : POKEX+9 , 176 : POKEX+10 , 176 : POKEX+11 , 176 
9150 POKEX+12 , 130 : POKEX+13 ,143: POKEX+14 , 143 : POKEX+15 , 135 
916 X=X+16 : POKEX , 4 : POKEX+1 , 4 : X=X+2 
917 POKEX, 184 : POKEX+1 , 191 : POKEX+2 , 191 : POKEX+3 ,189 
9180 POKEX+4 ,14 3: POKEX+5 , 143 : POKEX+6 , 143 : POKEX+7 ,135 
9190 POKEX+8 , 32 : POKEX+9 , 32 : POKEX+10 , 32 : POKEX+11 , 32 
9200 POKEX+12 , 32 : POKEX+13 , 32 : POKEX+14 , 32 : POKEX+15 , 32 
9210 X=X+16 : POKEX, 4 : POKEX+1 , 4 :X=X+2 
9220 POKEX , 190 : POKEX+1 , 191 : POKEX+2 , 191 : POKEX+3 , 180 
9230 POKEX+4, 139: POKEX+5, 143: POKEX+6, 143: POKEX+7, 143 
9240 POKEX+8 , 32 : POKEX+9 , 32 : POKEX+10 , 32 : POKEX+11 , 32 
9250 POKEX+12 , 32 : POKEX+13 , 32 : POKEX+14 , 32 : POKEX+15 , 32 
9260 X=X+16 : POKEX , 4 : POKEX+1 , 4 : X=X+2 
927 POKEX , 160 : POKEX+1 , 190 : POKEX+2 , 189 : POKEX+3 , 14 4 

Program continues 
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9280 POKEX+4 , 139 : POKEX+5 , 143 : POKEX+6 , 143 : POKEX+7 ,129 

9290 POKEX+8 , 32 : POKEX+9 , 17 6 : POKEX+10 , 32 : POKEX+11 , 32 

9300 POKEX+12 , 32 : POKEX+13 , 32 : POKEX+14 , 32 : POKEX+15 , 32 

9310 X=X+16 : POKEX , 4 : POKEX+1 , 4 : X=X+2 

9320 POKEX , 184 : POKEX+1 , 191 : POKEX+2 , 180 : POKEX+3 , 32 

9330 POKEX+4 ,13 9: POKEX+5 ,143: POKEX+6 , 143 : POKEX+7 ,129 

9340 POKEX+8 , 32 : POKEX+9 , 160 : POKEX+10 , 144 : POKEX+11 , 32 

9350 POKEX+12 , 32 : POKEX+13 , 32 : POKEX+14 , 32 : POKEX+15 , 32 

9360 X=X+16 : POKEX , 4 : POKEX+1 , 4 : X=X+2 

9370 POKEX, 160 : POKEX+1 , 190 : POKEX+2 , 189 : POKEX+3 , 144 

9380 POKEX+4 , 139 : POKEX+5 , 143 : POKEX+6 ,14 3: POKEX+7 ,129 

9390 POKEX+8 , 32 : POKEX+9 , 32 : POKEX+10 , 32 : POKEX+11 , 32 

9400 POKEX+12 , 32 : POKEX+13 , 32 : POKEX+14 ,32 : POKEX+15 , 32 

9410 X=X+16 : POKEX, 4 : POKEX+1 , 4 :X=X+2 

9420 POKEX , 184 : POKEX+1 , 191 : POKEX+2 , 180 : POKEX+3 , 32 

943 POKEX+4 , 139 : POKEX+5 , 143 : POKEX+6 ,14 3: POKEX+7 ,129 

9440 POKEX+8 , 32 : POKEX+9 , 32 : POKEX+10 , 32 : POKEX+11 , 32 

9450 POKEX+12 , 32 : POKEX+13 , 32 : POKEX+14 , 32 : POKEX+15 , 32 

9460 X=X+16 : POKEX, 4 : POKEX+1 , 4 :X=X+2 

9470 POKEX , 32 : POKEX+1 , 32 : POKEX+2 , 32 : POKEX+3 ,32 

9480 POKEX+4 , 32 : POKEX+5 , 32 : POKEX+6 , 32 : POKEX+7 , 32 

9490 POKEX+8 , 32 : POKEX+9 ,32 : POKEX+10 , 32 : POKEX+11 , 32 

9500 POKEX+12 , 32 : POKEX+13 , 32 : POKEX+14 , 32 : POKEX+15 , 32 

951 X=X+16 : POKEX , 5 : POKEX+1 , 1 : X=X+2 

9520 POKEX, 32 : POKEX+1 ,79: POKEX+2 ,78: POKEX+3 ,69: POKEX+4 , 32 : 

9525 POKEX, 5: POKEX+1, l:X=X+2 

9530 POKEX, 32 : POKEX+1 , 84 : POKEX+2 , 87 : POKEX+3 ,7 9 : POKEX+4 , 32 : 

9540 POKEX, 5: POKEX+1, l:X=X+2 

9550 POKEX, 84 : POKEX+1 ,7 2 : POKEX+2 , 82 : POKEX+3 ,69: POKEX+4 ,69: 

9560 POKEX, 5: POKEX+1, l:X=X+2 

957 POKEX , 32 : POKEX+1 ,70: POKEX+2 ,79: POKEX+3 , 85 : POKEX+4 , 82 : 

9580 POKEX, 5: POKEX+1, l:X=X+2 

9590 POKEX, 32 : POKEX+1 ,7 :POKEX+2,73 : POKEX+3, 86: POKEX+4, 69: 

9600 POKEX, 5: POKEX+1, l:X=X+2 

9610 POKEX, 32 : POKEX+1 , 83 : POKEX+2 , 73 : POKEX+3 , 88 : POKEX+4 , 32 : 

9620 POKEX, 5: POKEX+1, l:X=X+2 

9630 POKEX, 32 : POKEX+1 , 65 : POKEX+2 ,78: POKEX+3 ,68: POKEX+4 , 32 : 

9640 POKEX, 5: POKEX+1, l:X=X+2 

9650 POKEX , 32 : POKEX+1 , 32 : POKEX+2 , 32 : POKEX+3 , 32 : POKEX+4 , 32 : 

966 RETURN 

11000 REM LATIN HUSTLE WOMAN 

11010 DATA WLF1,218 

11020 DATA WRF1,226 

11030 DATA SPACE, 989 

11040 DATA DEL AY 1,4 

11050 DATA ERASE 1,2 26 

1106 DATA WRT1,232 

11070 DATA ONE, 989 

11080 DATA DELAY1,8 

11090 DATA ERASE1,232 

11100 DATA WRF1,226 

11110 DATA TWO, 989 

11120 DATA DELAY1,12 

11130 DATA ERASE1,218 

11140 DATA WLF1,602 

11150 DATA THREE, 989 

1116 DATA DELAY2,16 

1117 DATA ERASE1,226 
11180 DATA WRF1,610 
11190 DATA AND, 989 
11200 DATA DELAY2,20 
11210 DATA ERASE1,602 
11220 DATA WLF1,410 
11230 DATA FOUR, 989 
11240 DATA DELAY1,24 
11250 DATA ERASE1,610 
11260 DATA WRF1,226 
11270 DATA FIVE, 989 
11280 DATA DELAY1,28 
11290 DATA ERASE1,410 
11300 DATA WLF1,218 
11310 DATA SIX, 989 
11320 DATA DELAY1,4 
11330 DATA END,0 

12000 REM LATIN HUSTLE MAN 
12010 DATA MLF1,218 
12020 DATA MRF1,226 
12030 DATA SPACE, 989 
12040 DATA DELAY1,4 
12050 DATA ERASE1,218 
12060 DATA MLT1,212 
1207 DATA ONE, 989 
12080 DATA DELAY1,8 
12090 DATA ERASE1,212 
12100 DATA MLF1,218 
12110 DATA TWO, 989 
12120 DATA DELAY1,12 

Program continues 



X=X+5 
X=X+5 
X=X+5 
X=X+5 
X=X+5 
X=X+5 
X=X+5 
X=X+5 



TRS-80 Model I and 



H 



Model II Programs 



MULTIPLE REGRESSION J.I— A disk based package ot 
chained programs that permits model estimation using 
thousands of observations, user specified transforma- 
tions. X-Y plots, formatted for screen or printer 

$45.00 

Linear Programming $39.95 

0- 1 Programming $39.95 

Transportation Algorithm $39.95 

Heuristic Line Balancing $39.95 

Stat. Pack — medium, mode, mean (avg.. harmonic, 
geometric), variance, histograms. Tests (T.X'.F.) one 
variable regression, one and two-way ANOVA. $24.95 

Differential equations— 6 methods $39.95 

Queuing Statistics $ 1 8.95 

LOWERCASE MOD— Includes excellent documentation 
+ all parts (nothing else to buy), compatible with Elec- 
tric Pencil $ 1 4.95 




-269 



uont 

ysjems 



Aiailabk in Disk add 15 

S.C. residents add 4% sales lax 

Overseas otdets add $5 lot shipping 



p.o. box 628 

Charleston sc 

29402 



MEMOREX 

DISKETTES 
& CARTRIDGES 

for your computer or word processor 

BUY THE BEST FOR LESS. 
Lowest prices. WE WILL NOT 
BE UNDERSOLD!! Buy any 

quantity. Call free (800) 235- 
4137 for prices and information. 



^370 
PACIFIC 
EXCHANGES 

100 Foothill Blvd 
San Luis Obispo, CA 
93401 (In Cal. call 
(805) 543-1037.) 





If it" 


becau 


se you can't find a decent syste 


n to 


handle 


check: 


ng accounts on 


a TRS-80* Model J 


then 


you may need 


11CR0CHECK-80. 


With MICR0CHECK- 


10 you 


enter 


hecks 


and deposits on 


the keyboard, st 




them o 


i disk 


automatically 


reconcile bank st 


*te- 


IBM-it*. 


and ma 


Intaln a comple 


te cleared check 


:ile. 


Each c 


leek Is 


given an expen 


se category, permitting 


retrle 


ral by 


category, month 


, any combination 


of 


the tw 


3, or : 


n detail. A 8u 


nmary of expense 


:ate- 


gories 


is alt 


o Included. 







MTCROCHECK-80 is easy to use, well documented, and 
FASTI Machine language programs, and a system de- 
signed to eliminate sorting, provide incredible 
efficiencies over conventional techniques. The 
package Is perfect for personal or small business 
use, and requires 32K plus one disk. A8K and a 
printer unlock the system's full potential. 

SVhy not throw away your checkbooks , and let the 
computer do the arithmetic and recordkeeping for 
you? S39.95 postage paid. Send check or write 
for detailed Information. (Specify memory size.) 

SUMA MICROWARE ^267 
1110 WEST 41st STREET 
LA GRANGE, ILLINOIS 60525 

*A Trademark of Tandy Corporation. 



sSee List of Advertisers on page 306 
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^100 



CqmpuCquer 

COVER YOUR INVESTMENT 



•improved Re 
•Longer Life 



m 




Keyboarc 




*;•« 


1RS-80 MODEL III 

TRS-80 COLOR COMPUTER 


video Display 
Package Off«> 
•NOTE-Add $3 00f 

T*o OisK Cover (31 
TRS-80 MODEL II 

Keyboard Only . 


r Expansion 
e by side) 


1S96- 


Si is is : 




S2 7M 


Ou,« Prlnw II 



Over 200 covers, write for complete list. 

Send cluck oimoniyordtr to CuCIPuCtWER ' 



DEALER INQUIRES INVITEO 



' O 6o< 324 lOepI A> 
Jar v Es^hei Fl 32S69 

'none .904! 243 i'93 



| CHEAP CHIPS ... ARE NO BARGAIN ^m 

I BUYING ADD-ON MEMORY? 
I GET THE BEST!!! 

I Memory failures cost you time and money. Japanese 16k 

1 RAM chips have a one-to-ten in-service failure ratio to U.S. 
M chips--from a study by R. Anderson. Computer Div., 
9= Hewlett-Packard, reported in The Economist, 4-26-80. 

5 We offer 4116 chips by Fujitsu. NEC. Hitachi. Toshiba 

"j and Mitsubishi ... for most popular computers and 

< expansion memory boards, including: 

| "Apple 'All TRS-80's 'New Pet "Heath H-89 

s "Superbrain "Expandoram "Many Others 

S 4116 DYNAMIC RAMS THE BEST 

o 200nsec Plastic $27.70, Ceramic $37.95 

j I50nsec Plastic $31.95, Ceramic $41.95 

S STATIC RAMS 

° 2114 450nsec $3.30, 300nsec $3.90; 2101 $2.90. 

z EPR0MS (450 nsec std; ask for hi-speed if required) 

h_ 2708 $4.80; 2716 5V + 12V $9.40; 2716 SV $9.70; 

2 2732 $18.90. 

_i We'll beat any legitimate price for comparable chips. Hi- 
volume users, dealers, or clubs. ask for quantity discounts 
SHIPPING: to $25, $2; to $50, $1; over $50, FREE 
COD: +$1.40. 

DISCOUNTS ON TOTAL: over $100, 5%; over $200, 10% 

MINIS & MICROS INC. • 29486 T railway 

-98 Agoura, CA. 91301 • (213) 342-4535 

CA. residents add 6% sales tax 

2 YEAR WARRANTY * CALL US ANYTIME 
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EDUCATIONAL 
SOFTWARE 

For TRS-80* Color Computer, PET, Apple II. 



ELEMENTARY 

SCIENCE 

GEOGRAPHY 

ECONOMICS 

FOREIGN LANG. 

GRAMMAR 



MATH 
BIOLOGY 
HISTORY 
ACCOUNTING 
BUSINESS ED. 
FARM RECORDS 



COIN INVENTORY 



Write for FREE Catalogue: 

MICRO LEARNING WARE ^ a 

BOX 2 1 34, N. MANKATO MN 56001 
507-625-2205 



VISA 8. MASTER CHARGE ACCEPTED 

We pay 1 5% royalty for Educational 

Programs listed with us. 

Apple is a trademark of Apple Computer Co. 

TRS-80 Is a registered trademark of TANDY CORP. 

Pet Is a trademark of Commodore Bus. Machines. 



IS. m 

J 



12130 DATA 


ERASE1,226 


14280 DATA 


DELAY 2, 28 


12140 DATA 


MRF1,610 


14290 DATA 


ERASE1,218 


12150 DATA 


THREE, 989 


14300 DATA 


MLF1,218 


12160 DATA 


DELAY2,16 


14310 DATA 


FIVE, 989 


1217 DATA 


ERASE1,218 


14320 DATA 


DEL AY 2, 32 


12180 DATA 


MLF1,602 


14330 DATA 


ERASE1,610 


12190 DATA 


AND, 989 


14340 DATA 


MRF1,226 


12200 DATA 


DELAY2,20 


14350 DATA 


SIX, 989 


12210 DATA 


ERASE1,610 


14360 DATA 


DELAY1,4 


12220 DATA 


MRF1,418 


14370 DATA 


END,0 


12230 DATA 


FOUR, 989 


17 000 REM ROPE HUSTLE WOMAN 


12240 DATA 


DELAY 1,24 


17 010 DATA 


WLF1,602 


12250 DATA 


ERASE1,602 


17 020 DATA 


WRF1,610 


12260 DATA 


MLF1,218 


17030 DATA 


SPACE, 989 


12270 DATA 


FIVE, 989 


17 040 DATA 


DELAY1,4 


12280 DATA 


DELAY1, 28 


17 050 DATA 


ERASE1,610 


12290 DATA 


ERASE1,418 


17 060 DATA 


WRF1,418 


12300 DATA 


MRF1,226 


17 070 DATA 


ONE, 989 


12310 DATA 


SIX, 989 


17 080 DATA 


DELAY1,8 


12320 DATA 


DEL AY 1,4 


17 090 DATA 


ERASE1,602 


12330 DATA 


END,0 


17100 DATA 


WLF1,410 


13000 REM DISCO HUSTLE WOMAN 


17110 DATA 


AND, 989 


13010 DATA 


WLF1,218 


17120 DATA 


DELAY1,12 


13020 DATA 


WRF1,226 


17130 DATA 


ERASE1,418 


13030 DATA 


SPACE, 989 


17140 DATA 


WRF1,226 


13040 DATA 


DELAY 1,4 


17150 DATA 


TWO, 989 


13050 DATA 


ERASE1,226 


17160 DATA 


DELAY 1,16 


13060 DATA 


WRF1,610 


1717 DATA 


ERASE1,410 


13070 DATA 


ONE, 989 


17180 DATA 


WLF1,218 


13080 DATA 


DELAY1,8 


17190 DATA 


AND, 989 


13090 DATA 


ERASE1,218 


17200 DATA 


DELAY 1,20 


13100 DATA 


ERASE1,218 


17210 DATA 


ERASE1,226 


13110 DATA 


TWO, 989 


17220 DATA 


WRF1,418 


13120 DATA 


DEL AY 2, 12 


17230 DATA 


THREE, 989 


13130 DATA 


ERASE1,218 


17 240 DATA 


DELAY1,24 


13140 DATA 


WLF1,218 


17250 DATA 


ERASE1,218 


1315 DATA 


TWO, 989 


17260 DATA 


WLF1,410 


13160 DATA 


DELAY 2, 16 


1727 DATA 


AND, 989 


1317 DATA 


ERASE1,610 


17280 DATA 


DELAY1,28 


13180 DATA 


WRF1,226 


17 290 DATA 


ERASE1,418 


13190 DATA 


THREE, 989 


17300 DATA 


WRF1,610 


13200 DATA 


DELAY1,20 


17 310 DATA 


FOUR, 989 


13210 DATA 


ERASE1,218 


17 320 DATA 


DELAY 1,3 2 


13220 DATA 


WLF1,602 


17 330 DATA 


ERASE1,410 


13230 DATA 


FOUR, 989 


17 340 DATA 


WLF1,602 


13240 DATA 


DELAY 1,24 


17 35 DATA 


AND, 989 


13250 DATA 


ERASE1,226 


17 360 DATA 


DEL AY 1,4 


13260 DATA 


ERASE1,226 


17370 DATA 


RND.0 


13270 DATA 


FIVE, 989 


18000 REM ROPE HUSTLE MAN 


13280 DATA 


DELAY 2, 28 


18010 DATA 


MLF1,602 


13290 DATA 


ERASE1,226 


18020 DATA 


MRF1,610 


13300 DATA 


WRF1,226 


18030 DATA 


SPACE, 989 


13310 DATA 


FIVE, 989 


18040 DATA 


DEL AY 1,4 


13320 DATA 


DELAY 2, 32 


18050 DATA 


ERASE1,602 


13330 DATA 
13335 DATA 


ERASE1,602 
WLF1,218 


18060 DATA 
18070 DATA 


MLF1,410 
ONE, 989 


13340 DATA 
13350 DATA 


SIX, 989 
DEL AY 1,4 


18080 DATA 


DEL AY 1,8 


1336 DATA 


END.0 


18090 DATA 


ERASE1,610 


14000 REM DISCO HUSTLE MAN 


18100 DATA 


MRF1,418 


14010 DATA 


MLF1,218 


18110 DATA 


AND, 989 


14020 DATA 


MRF1,226 


18120 DATA 


DELAY 1,1 2 


14030 DATA 


SPACE, 989 


18130 DATA 


ERASE1,410 


14040 DATA 


DELAY1,4 


18140 DATA 


MLF1,218 


14050 DATA 


ERASE1,218 


18150 DATA 


TWO, 989 


14060 DATA 


MLF1,602 


18160 DATA 


DELAY1,16 


14070 DATA 


ONE r 989 


1817 DATA 


ERASE1,418 


14080 DATA 


DELAY1,8 


18180 DATA 


MRF1,226 


14090 DATA 


ERASE1,226 


18190 DATA 


AND, 989 


14100 DATA 


ERASE1,226 


18200 DATA 


DELAY1,20 


14110 DATA 


TWO, 989 


18210 DATA 


ERASE1,218 


14120 DATA 


DELAY 2, 12 


18220 DATA 


MLF1,410 


14130 DATA 


ERASE1,226 


18230 DATA 


THREE, 989 


14140 DATA 


MRF1,226 


18240 DATA 


DELAY1,24 


1415 DATA 


TWO, 989 


18250 DATA 


ERASE1,226 


14160 DATA 


DELAY 2, 16 


18260 DATA 


MRF1,418 


1417 DATA 


ERASE1,602 


18270 DATA 


AND, 989 


14180 DATA 


MLF1,218 


18280 DATA 


DELAY1,28 


14190 DATA 


THREE, 989 


18290 DATA 


ERASE1,410 


14200 DATA 


DELAY1,20 


18300 DATA 


MLF1,602 


14210 DATA 


ERASE1,226 


18310 DATA 


FOUR, 989 


14220 DATA 


MRF1,610 


18320 DATA 


DELAY1,32 


14230 DATA 


FOUR, 989 


18330 DATA 


ERASE1,418 


14240 DATA 


DELAY1,24 


18340 DATA 


MRF1,610 


14250 DATA 


ERASE1,218 


18350 DATA 


AND, 989 


14 260 DATA 


ERASE1,218 


18360 DATA 


DELAY1,4 


14270 DATA 


FIVE, 989 


18370 DATA 


END,0 


Note: Set Memory Size = 31232. Listing 


is configured for Level II BASIC only. 
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'.. this is not only a worthwhile book 
but a great book. My advice is to get it 
and USE it!' - William Barden Jr. 




'HOW TWO' 

information ! 



TRS-80 Disk & Other Mysteries is the 
definitive fixit book for disk users. More than 
130 pages of easy to read, entertaining and 
immensely useful information - find out how to 
recover disk files, the layout of information on 
disks, memory maps, problem solutions ... the 
list goes onl 

Many readers have saved days of work by 
recreating disk files that were unreadable. 
With morethan 14,000 copies sold so far, TRS- 
80 Disk & Other Mysteries has received 
favourable reviews in several magazines. 
Yours for only $22.50 (plus $1.50 shipping, 
CA residents add $1 .35 sales tax). 

Microsoft BASIC Decoded & Other 
Mysteries is the definative guide to your Level 
II ROMs. With morethan 7,000 lines of detailed 
comments, and 6 additional chapters packed 
with information, it is easily the biggest and 
best book about the Level II ROMs available. 

Written by James Farvour, the comment 
section took more than a year to finish - it even 
includes the changes for the latest ROM sets 
Edited by Jim Perry, the founding editor of 80 
Microcomputing, the text and comments are 
understandable. 

Exploit the full power of Microsoft BASIC, with 
the aid of more than 300 pages of tested 
examples, explanations and detailed 
comments. Only$29.95 (plus $2.00 shipoing, 
CA residents add $1 .80 sales tax). 

Pick them up at your nearest I JG dealer, phone 
your order in or use the coupon. 



312 page 
$29.95 



'It has twelve thousand one-liners 
in it, and every one is great!' 
- Dennis Kitsz. 



IJG Computer Services, 
£? 1260 W. Foothill Blvd., 
'J*5 Upland, CA 91786 




^37 



Pleasesend me a copy of TRS-80 Disk&Other 
Mysteries for $22.50 plus $1 .50 shipping. D 

Please send me a copy of Microsoft BASIC 
Decoded & other Mysteries for $29.95 plus 
$2.00 shipping. Q 

OK, send me both IJG books for $52.45 plus 
$3.50 shipping. D 



Phone orders (714) 946-5805 



m 



IJG Computer Services, 
1260 W. Foothill Blvd., 
Upland, CA 91786 



Name 

Address 

City 

State Zip 

Charge my 

D Mastercard Interbank Code 

D Visa Expiration Date 

Card Number 

D Check enclosed 

D Ship COD ($2.00 extra) 



Signature 



sSee List of Advertisers on page 306 
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CONSTRUCTION 



If you think you're good with a soldering pencil try this project. 
It may change your mind. 



Hardwire the RS-232 



Don DeJarnette 
1909 6th Ave. East 
Tuscaloosa, AL 35401 



It's midnight and your printer is 
busily printing out the last of 
those 1000 sorted inventory 
items. The printer stops. Ah, bed 
at last. But noooo!! The RS-232 
board has screwed up again. 

The RS-232 board is secured(?) 
to the 42-pin connector by two 
small screws. The spring clips 
on the connector contact the 
foil side of the circuit board, in 
theory, this connector works 



very well. In practice, the screws 
can be tightened unevenly, dust 
can accumulate on the contacts 
and the board can flex. Board 
flexing was my greatest prob- 
lem. After a long session the 
CRT would heat the board, caus- 
ing it to flex, resulting in poor 
contact with the connector. 

Radio Shack has attempted 
to cope with this problem by 
cleaning the contacts, re-tinning 
the foil with solder and replac- 
ing the connector. This was a 
temporary solution in my case. 

I felt the only remedy left was 
to hard wire the board to the 
connector. 

Roll up your sleeves, take a 
shot of bourbon to calm your 
nerves, and pull out the smallest 
pencil soldering iron you can 




find. You will need to purchase 
enough ribbon cable to make 26 
connections. Radio Shack has 
18 inches of color-coded 
16-strand ribbon cable for $3.99 
(276-1976). Only about five or six 
inches of cable should be need- 
ed. Good soldering technique is 
a necessity. 

Step 1— Separate all of the 
wires up to 1 1/2 inches from the 
end. 

Step 2— Strip 1/16 inch insula- 
tion from each wire and lightly 
tin with solder. 

Step 3— Trim each tinned end 
to 1/32 inch. 

Step 4— Very carefully tin the 
28 pins (Fig. 1) on the connector 



making sure there are no solder 
bridges. Note: Pins 1 and 2 are 
connected to each other; pins 3 
and 4 are connected to each oth- 
er. This accounts for the 26 
wires. Tin the connector pins 
very quickly; this will prevent the 
heat from melting the plastic 
body of the connector. 

Step 5— Solder the wires of 
the ribbon cable to the connec- 
tor. This is the most difficult part 
of the process. A very short 
touch of the iron to the wire as it 
is positioned on the pin is all 
that is required to make a good 
solder connection. Alternate the 
solder points on the pins to each 
extreme end. This will help pre- 



Photo 1. RS-232 Board and 42 pin connector. Note: the circuit board 
is pictured upside down with the foil contacts in reverse order. 



Orient this end to rear of expan- 
sion interface (side that 110 volt 
cords exit from case) 



10- 

11- 

12 
13- 

14- 
15- 
16- 
17- 

18- 



19- 
20- 
21- 



-> CONNECT 

-> CONNECT 

-> CONNECT 

-> CONNECT 

-> NO CONNECT 

-> NO CONNECT 

-> CONNECT 

-> CONNECT 

-> CONNECT 

-> NO CONNECT 

-> CONNECT 

-> CONNECT 

-> CONNECT 

-> CONNECT 

-> CONNECT 

-> CONNECT 

-> CONNECT 

-> CONNECT 

-> NO CONNECT 

-> CONNECT 

-> CONNECT 



22- 
23- 

24- 

25- 
26- 
27- 

28 



30- 
31- 
32- 
33- 
34- 



35- 
36- 



37- 

38 

39- 

40- 

41- 

42- 



-> CONNECT 

-> NO CONNECT 

-> NO CONNECT 

-> NO CONNECT 

-> NO CONNECT 

-> NO CONNECT 

-> NO CONNECT 

-> NO CONNECT 

-> CONNECT 

-> CONNECT 

-> CONNECT 

-> CONNECT 

-> NO CONNECT 

-> NO CONNECT 

-> NO CONNECT 

-> CONNECT 

-> CONNECT 

-> CONNECT 

-> CONNECT 

-> CONNECT 

-> CONNECT 



Orient this side to front of expan- 
sion interface (side with on-off 
switch) 



Figure 1. Pin Diagram of RS-232 Board Connector. Remember 
to connect pin 1 to pin 2 and pin 3 to pin 4 (see photograph). 



202 • 80 Microcomputing, May 1981 




Photo 2. Wired 42 pin connector. Note the alternating solder points. 



vent a solder bridge. Note: on 
pins 1 and 2 lay the wire be- 
tween the pins and bridge the 
gap between them, connecting 
the two. Likewise, bridge the 
gap on pins 3 and 4. 

Step 6— Check for unwanted 
solder bridges. I find using a 
magnifying glass very helpful. 

Step 7— While pressing down 
on the top of the connector, very 
carefully bend and form the rib- 
bon cable around the connector 
to the base of the RS-232 com- 
partment. Secure the cable to 
the base with electrical or duct 
tape. This will prevent the pins 
from being pulled out of their 
sockets by the ribbon cable. 

Step 8— Follow the color cod- 
ed wires from the connector to 
the foil connections on the 
RS-232 board. Use the two wires 
from the bridged connections 



(1-2, 3-4) to key to the wide foil 
tabs on the board. 

Step 9— Solder the cable to 
the RS-232 board. This is not as 
difficult as the connector, but 
watch for solder bridges and 
alternate solder points. 

Step 10 — Route the wires con- 
veniently and position the board 
in the compartment. I used the 
foam rubber packing from my ex- 
pansion interface box to hold the 
board in place. I also used a 
small amount of silicon caulking 
compound on top of the connec- 
tor. This assures that pins will 
not move. 

This process can be some- 
what painstaking, but so can sit- 
ting through a two hour sort. In 
the nine months since I have in- 
stalled the direct wiring of the 
RS-232 board, I have not had a 
single malfunction. ■ 




Photo 3. Completed circuit wiring and board placement. 
sSee List of Advertisers on page 306 
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ZIP UP YOUR 
MODEL I 



SPEED-UP UNIT - an easy to install electronic device that enables programs 
to run 2 to 3 times faster. It's the fastest and finest quality speed-up unit 
on the market. 

• guaranteed to double processing speed - no additional 
purchases required. 

• programs will run up to 3 times faster (5.3 mhz) by adding 
a Z80B microprocessor and delay line - not supplied. 

• returns automatically to normal speed during disk and 
cassette operation - no software patches required. 

• keyboard power-on light changes color to indicate operating 
speed. 

$45.00 



VIDEO I. Reverses the video display to provide black characters and 
graphics on an all white screen for a much easier to read presentation. 
Software controlled. Cures pulling and distortion problems commonly ex- 
perienced with TRS-80 monitors. For use with TRS-80 monitors only. 
Assembled. 

$24.00 



"SATISFACTION GUARANTEED 



Add $2.00 postage & handling - California residents add 6% sales tax 
-Foreign orders add 15%. 



ARCHBOLD ELECTRONICS 

10708 Segovia Way Rancho Cordova, CA 95670 

(916) 635-5408 

Dealer inquiries invited 



TIME ... 

METHUSELAH" has time for you 
and your TRS-80" 



The name Methuselah has always been associated with long life. The Methuselah 
computer clock board with its 24 hour clock and its perpetual calendar is indeed worthy 
of the title. Methuselah puts state of the art technology into action with the on board four 
year lithium battery back-up to keep it running even when your computer is off. That 
means no more fooling around with the software or hardware "clocks" that become Rip 
Van Winkles when the computer is reset or turned off. 

Methuselah has many other timely features. Software patches keep the DOS and BASIC 
time and clock commands ticking. Only two screws mount Methuselah inside the expan- 
sion interface without soldering, clipping, cutting, or jumpering. There is even a spare 
1/0 port and four different interrupts available for people who love to tinker. 

SPECS: MM/DD/YY, HH:MM:SS and day of the week. Four year lithium battery 

back-up. Crystal controlled timing (adjustable 32.768 oscillator). Twenty four 
hour clock and perpetual calendar. 



Send check or money order to: 



IMDM DESIGNS ^135 

6330 W. North Ave. 

Wauwatosa, Wl S3213 

(414) 259-0120 



$97.00 



$17.50 



M-Sl 

(add $4.50 P and H) 

S-Sl 

(add $2.50 P and H) 
(If you wish to use Methuselah 
and the RS-232 board (26-1145) 
together, order this option which 
includes a new cover and con- 
nector.) 
WI residents add 4% sales tax. 



METHUSELAH is a 
trade mark ol NDM Designs 
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GRAPHICS 



Jazz up your displays with segmented screen scrolls. 



The Flexible Scroller 



Jeff Myers 
210 Park Ave. 
Hillsboro, OH 45133 



I've often wished for a simple 
way to make the TRS-80 video 
display more stylish. If not styl- 
ish, at least more unexpected 
than always moving up one line. 

A year ago, I devised a ma- 
chine language program to treat 
the video display as three separ- 
ate entities. Downward scrolls, 
upward scrolls and quick eras- 
ing were all available for each 
third of the screen— left, center, 
and right. When some of my 
high school students were adapt- 
ing this routine to a game pro- 
gram they were writing, one of 
them goaded me into improving 
my program by asking whether I 
could make the movable regions 
more flexible. 

After six or eight hair-pulling 
hours I had an answer. Yes! 

The program is called Flexible 
Scroller (Program Listing 1). It is 
a BASIC program including a 
subroutine to POKE the ma- 
chine language program into a 
string variable (lines 49000 + ), 
an operating routine (48000) and 
two examples of how it can be 
put to work. 

When using Flexible Scroller, 
you do not need to protect 
memory (the POKE portion as- 
sumes a maximum of 16K; on 
larger systems minor altera- 
tions will be needed). During the 
use of this program you will 
need to protect the variable O 



and the string 0$, however. You 
can see that in lines above 
48000, seven values are POKEd 
directly into the machine lan- 
guage program so that it scrolls 
up or down. The variable © is in 
charge of aiming these POKEs 
properly. 

Early in the program the sub- 
routine at 49000+ must be 
called to POKE the machine lan- 
guage into the string variable 0$. 
To make use of the scroller: 

• Set S equal to the starting 
point (left edge) of the vertical 
strip to be moved (0 to 63 inclu- 
sive); 

• Set W equal to the width of 
the strip (1 to 64 incl.), making 
sure that W + S does not ex- 
ceed 64; 

• Set the flag F$ to U or D (you 
get to guess what they're for !); 

• GOSUB 48000. 

Listing 1 illustrates two sim- 
ple uses of the Flexible Scroller. 
One of the options shows a ran- 
dom column-erase which is 
done by calling 48000 sixteen 
times. To make it scroll down, 
just change F$. 

The second option allows you 
to specify various combinations 
of W, S, and F$ and watch what 
happens. Be sure to try the 
TRS-80 feature of repeating in- 
puts; enter one set of data, 
watch it move, then hit enter 
repeatedly. 

The best way to use Flexible 
Scroller is to keep a copy of lines 
48000 to the end. This can be 
entered when you begin a pro- 
gram in which you anticipate us- 
ing it or it can be easily append- 
ed to existing programs, assum- 



ing the line numbers are safe. 
My tape of lines 48000+ is a 
weapon I'm frequently glad to 
have in my programming arsenal. 

Invent applications of your 
own for the scroller: Erase the 
screen (in either directions or 
both!) one column at a time. 
Code and decode messages by 
vertically zapping columns on 
the screen. Leave a column or 
two of messages stationary 
while other parts of the screen 
scroll normally during the 
course of a game or practical 
program. (In the last case, 
PRINT® with a trailing semi- 
colon is useful.) 

Listing 2 is a source code list- 
ing of this 86-byte program. The 
data in the BASIC program are 
decimal values which create 
this program in machine code. 

Special comments have been 
added where up-scrolling and 
down-scrolling differ. This was 
the challenging part of writing 
the program: inventing a routine 
which would do both with a mini- 



mum of alterations. 

Assembly language program- 
mers might try to make it even 
more flexible by eliminating the 
need to alter the program at all. 
(The width and starting point are 
sent to the program as the argu- 
ment of USR and register H gets 
the width and L gets the start. 
Since S doesn't exceed 63, bit 7 
is available for use as an up/ 
down flag and the machine lan- 
guage could alter itself.) 

I have trespassed into the 
disk command vectors at hexa- 
decimal 4152—4159. I do not 
use disks and this was one way 
to make the program relocat- 
able. To use the program with a 
disk system, you'll have to store 
the variables somewhere else, 
CALL000B (hex) and set up stor- 
age, PUSH and POP a lot more, 
or some other alteration. 

Whether you want to alter the 
inner workings or not, Flexible 
Scroller should provide you with 
an interesting programming 
tool.B 



'FLEXIBLE SCROLLER BY JEFF MYERS 

1 'CALL 49000 EARLY TO POKE MAC H.LANG. ROUTINE INTO 

STRING 0$...*** PRESERVE VARIABLE 
THROUGHOUT *** 

2 'AFTER SETUP, SEND W=WIDTH, S=STARTING COLUMN AN 
D F$= OR TO SUBROUTINE 48000 

TO PERFORM SCROLL 

3 'NOTE: MAKE SURE W + S < 64 
100 CLS:CLEAR170:GOSUB49000 

110 INPUT" l=COLUMN-ERASE SAMPLE 2=INPUT SAMPLE ";F 

120 ON F GOTO 130,170 

130 CLS:FORK=1TO100:PRINT@RND(1000) ,CHR$ (64+RND (26 ) ) ;:N 

EXT 
140 PRINT@0,"°;:INPUT"HIT ENTER TO SEE A RANDOM COLUMN 

ERASED BY 16 'UP' CALLS" ;W$ 
150 W=RND(20) :S=RND(40) :F$="U" : F0RI=1T016 :GOSUB48000 :NE 

XT 
160 GOTO140 
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17 CLS:FORK=1TO100:PRINT@RND(1000) ,CHR$ (128+RND(63) ) ; : 

NEXT 
180 PRINT@0,"";: INPUT-WIDTH, START, U OR D";W,S,F$ 
190 GOSUB48000:GOTO180 
48000 'SEND W,S & F$=U OR D 
48010 IFF$="U"THEN48030 
48020 POKEO+17 , 128 : POKEO+18 ,63 : POKEO+30 , 90 : POKEO+57 ,66 : 

POKEO+63,66:POKEO+6 8,0:POKEO+69,60:GOTO48060 
48030 POKEO+17 ,64 : POKEO+18 ,60 : POKEO+30 , 82 : POKEO+57 ,7 4 : P 

OKEO+63 ,74: POKEO+6 8,192: POKEO+6 9,63 
48060 U=USR ( 256 *W+S ): RETURN 
49000 0$=STRING$(87,1) :01=VARPTR(0$) :0=PEEK(01+1) +256*P 

EEK(01+2) :POKE16526,PEEK(01+l) : POKE16527 , PEEK (01+2 

49010 FORM=0 TO 0+85 :READX : POKEM , X:NEXT:RETURN 

50000 DATA 205,127,10,235,33,82,65,115,35,54,0,35,114,3 
5,54,0,33,6 4,6 0,237,91,82,65,25,229,17,64,0,17 5,23 
7,82,235 

50001 DATA 225,6,15,197,34,86,65,237,83,88,65,237,75,84 
,65,237,17 6,1,6 4,0,17 5,42,88,65,237,7 4,235,42,86,6 
5,237,74 

50002 DATA 193,16,224,33,192,63,237,91,82,65,25,237,75, 
84,65,65,54,32,35,16,251,201 



Program Listing 


2. 




00100 


; SOURCE CODE FOR =FLEXIBLE 


SCROLLER= 








00110 


BY 


JEFF MYERS 


6/1 


/80 








00120 


; 






00130 


;THIS 


LISTING IS FOR 


DOWNWA 


RD SCROLLING 








00140 


;**COMMENTS DESCRIBE 


CHANGE 


S FOR UPWARD 








0000 CD7F0A 00150 


CALL 


0A7FH 


;GE 


T H=WIDTH,L=START 








0003 EB 00160 


EX 


DE,HL 




0004 215241 00170 


LD 


HL,4152H 


;ST 


ORAGE IN DISK VECTORS 








0007 73 00180 


LD 


(HL) ,E 


;ST 


UFF START AS 2-BYTE 








0008 23 00190 


INC 


HL 




0009 3600 00200 


LD 


(HL) ,0 




000B 23 00210 


INC 


HL 




000C 72 00220 


LD 


(HL) ,D 


;ST 


UFF WIDTH " " 








000D 23 00230 


INC 


HL 




000E 3600 00240 


LD 


(HL) ,0 




0010 21803F 00250 


LD 


HL,3F80H 


. ** 


FOR UP:LD HL,3C40H 








0013 ED5B5241 00260 


LD 


DE, (4152H) 


;GE 


T START COLUMN & ADD 








0017 19 00270 


ADD 


HL,DE 




TO LEFT EDGE ADDR 








0018 E5 00280 


PUSH 


HL 




0019 114000 00290 


LD 


DE,0040H 




001C AF 00300 


XOR 


A 




001D ED5A 00310 


ADC 


HL,DE 


. ** 


FOR UP: SBC HL,DE 








001F EB 00320 


EX 


DE,HL 




0020 El 00330 


POP 


HL 




0021 060F 00340 


LD 


B,0FH 


;15 


LINES TO MOVE 








0023 C5 00350 LOOP 


PUSH 


BC 




0024 225641 00360 


LD 


(4156H),HL 


;SA 


VE HL= SOURCE 








0027 ED535841 00370 


LD 


(4158H) ,DE 


;SA 


VE DE=DESTINATION 








002B ED4B5441 00380 


LD 


BC, (4154H) 




002F EDB0 00390 


LDIR 






0031 014000 00400 


LD 


BC,0040H 




0034 AF 00410 


XOR 


A 




0035 2A5841 00420 


LD 


HL, (4158H) 




0038 ED42 00430 


SBC 


HL,BC 


. ** 


FOR UP: ADC HL,BC 








003A EB 00440 


EX 


DE,HL 




003B 2A5641 00450 


LD 


HL, (4156H) 




003E ED42 00460 


SBC 


HL,BC 


. ** 


FOR UP: ADC HL,BC 








0040 CI 00470 


POP 


BC 




0041 10E0 00480 


DJNZ 


LOOP 




0043 21003C 00490 


LD 


HL,3C00H 


. ** 


FOR UP:LD HL,3FC0H 








0046 ED5B5241 00500 


LD 


DE, (4152H) 




004A 19 00510 


ADD 


HL,DE 


;TH 


IS LAST ROUTINE IS 








004B ED4B5441 00520 


LD 


BC,(4154H) 


; A 


CLEAN-UP OF THE 








004F 41 00530 


LD 


B,C 


; t 


OP (BOTTOM) EDGE 








0050 3620 00540 CLEAR 


LD 


(HL) ,20H 




0052 23 00550 


INC 


HL 




0053 10FB 00560 


DJNZ 


CLEAR 




0055 C9 00570 


RET 






0000 00580 


END 






00000 TOTAL ERRORS 










Introducing SIMUTEK'S ZBASIC, The truly interactive BASIC 
COMPILER for your TRS-80! FINALLY' People that don't have the time or 
the inclination to learn complicated assembly language, have a chance to 
write PROFESSIONAL QUALITY SOFTWARE in machine lanquaqe usmq 
a subset of LEVEL II BASIC" 

What does interactive mean? It means you have ZBASIC and your 
BASIC program resident at the same tine! You may compile a BASIC 
program, run it or save it without destroying your resident BASIC program' 
In fact, jumping back and forth between the compiled code and the BASIC 
code is one of its finest features! 

ZBASIC allows saving your COMPILED PROGRAM as a system tape, 
(tape version), or as /CMD file, (disk version). THE COMPILED CODE IS 
VERY EFFICIENT Z80 OBJECT CODE. THE LEVEL II ROMS ARE USED 
ONLY FOR I/O ROUTINES!' 

FACTS ABOUT ZBASIC 

1. 16K ZBASIC will compile a 4 8K program (tape only) 
32K ZBASIC will compile a 17K (tape), 10K (disk) pgm 
48K ZBASIC will compile a 17K program, (disk only) 

(These are approximate values depending on program efficiency 
etc.) 

2. ZBASIC DOES NOT support disk or tape files. 

3. BASIC programs compiled with ZBASIC are between 10-200 times 
faster than interpreted BASIC! 1 

4. NO ROYALTIES ON ZBASIC COMPILED PROGRAMS'! 

5. ZBASIC programs are only about 1 .1 times larger than the average 
basic program. 

6. ZBASIC programs may be used as USR routines from basic. 

7. ZBASIC uses INTEGER MATH ONLY to increase speed and 
decrease compiled program size. Use of Single or Double precision 
would destroy the beauty of the first "INTERACTIVE COMPILER" on 
the market' 

8. Limited variables: A-Z, A1-Z1. A2-Z2, A$-Z$. Arrays are not 
supported to decrease memory demands and speed up compiling of 
programs. 

9. COMPILE TIMES ARE TYPICALLY 1 TO 10 SECONDS' THERE IS 
NO NEED TO USE COMPLICATED COMPILE TIME MODULES' 

10. ZBASIC comes with a HIGHLY DETAILED manual describing all 
important memory locations, commands, variables, warm/cold start 
entry points and many useful sub-routines for emulating unsupported 
commands!! 

1 1 . Existing programs may be loaded from tape or disk and compiled as 
long as unsupported commands or variables are not used. 



ALL COMMANDS DIRECTLY SUPPORTED BY ZBASIC 


FOR 


NEXT 


STEP 


IE 


THEN 


ELSE 


PEEK 


SET 


RESET 


POINT 


CHRS 


RANDOM 


RND 


POKE 


DATA 


READ 


RESTORE 


END 


GOTO 


GOSUB 


CLS 


INPUT 


INKEYS 


LET 


STOP 


OUT 


INP 


RETURN 


PRINT 


LPRINT 


PRINTS 


USR 


SGN 


'Ml 


A8S 


SOR 


LEN 


ASC 


VAL 


STRS 


POS 


ON GOTO 


ON GOSU8 


REM 


NOT 


ANO 


OR 






INTEGER MATH. 'MULTIPLY 


/DIVIDE 


f ADD - 


SUBTRACT 


4 '- 3276/ 




NOTE Some 


commands do not act oxac 


ly as BASIC 


commands 


id 





TRS-80 MOD I and III or PMC-80 Computers. (Level II 
Only) NEW LOWER PRICES! 

ZBASIC 1 6K/32K LVII Tape Version + Manual $79.95 

ZBASIC 32K/48K Disk Version + Manual $89.95 

Both Versions + Manual $99.95 

ZBASIC Manual Only (Fully Refundable) $25.00 
Model III Version Available 3/1/B1 



Credit Card or COD. Call Toll Free: (800) 528-1 149 

or send check or money order to: 



SIMUTEK 
COMNTER PRODUCTS 



P.O. Box 13687 Tucson, AZ 85732 
(COD. Available $3.00 Extra) 
TRS-80 is a TM of Tandy Corp 



(602) 323-9391 



sSee List of Advertisers on page 306 
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REVIEW 



A complete assembly language 

development package for 16K Level II owners. 



Editor/ Assembler-Plus 



Editor/Assembler-Plus 
Microsoft 
Bellevue, WA 
$29.95 

Dan Zuckerman 
56 Hickory Place 
Livingston, NJ 07039 



Attention assembly language program- 
mers! Have you ever wished you could 
assemble, debug, and reassemble your pro- 
gram ad infinitum without touching the cas- 
sette tape in the process? Your wish has 
come true! It's called Editor/ Assembler- 
Plus and it's made by Microsoft, the same 
people who wrote Radio Shack BASIC and 
Radio Shack's Editor/Assembler. This 12.5 K 
bug-free machine language program in- 
cludes features such as: macros, condi- 
tional assembly, and many useful editing 
commands. Best of all, it only requires a 
Level II TRS-80 with 16K of memory. 

The Old Way 

For the benefit of the novice, first let me 
explain Radio Shack's Editor/Assembler 
and T-BUG machine language monitor. 
They are used to write, assemble, and 
debug assembly language programs. After 
loading the Editor/Assembler tape, type in 
your source text (assembly language pro- 
gram). A successful editing and assembling 
session results in an object (machine lan- 
guage) tape and a source (assembly lan- 
guage text) tape. Next, load T-BUG and your 
object tape. Then, try running your program. 
Chances are it doesn't work. Use T-BUG to 
execute a few instructions at a time by us- 
ing its single breakpoint (similar to a STOP 
statement in BASIC program debugging). 



Unless you are lucky enough to have a 
printer (or a photographic memory) you will 
have to refer back to your notes on your pro- 
gram and a table of instructions to interpret 
those strange looking hexadecimal num- 
bers that T-BUG flashes at you. Upon find- 
ing errors, reload Editor/Assembler and 
your source tape, correct the mistakes, and 
record more tape. If your program is more 
than a few lines long this is a very discour- 
aging process. 

As previously mentioned, Editor/Assem- 
bler-Plus was written by Microsoft. In fact, 
one of its authors, Mark Chamberlin, wrote 
the Radio Shack Editor/Assembler. Conse- 
quently, Editor/Assembler-Plus is an im- 
proved version of Radio Shack's Editor/As- 
sembler. 

A Comparison 

Microsoft's Editor/Assembler-Plus 
package includes a 112 page instruction 
manual (well indexed), a 14 page folding 
quick reference card, and a tape with Editor/ 
Assembler-Plus and Z-BUG (combined) on 
one side and Z-BUG alone on the other. 
(Z-BUG is a machine language monitor simi- 
lar to T-BUG, RSM-2, and others for debug- 
ging machine language programs.) After 
successfully loading Editor/Assembler- 
Plus I recommend that you immediately 
follow any update instructions and make a 
new working tape. 

The loading instructions are easy to 
follow even if you've never loaded a ma- 
chine language tape before, as is the rest of 
the instruction manual. 

The most valuable feature of Editor/As- 
sembler-Plus is the assemble into memory 
option. Using this feature, the option auto- 
matically decides where to assemble your 
object code so that it does not conflict with 
your source text, symbol table, or the 
Editor/Assembler-Plus itself. With all these 
things in safe places, you can easily switch 
between Editor/Assembler and Z-BUG to 
edit, reassemble, or debug your program 
without manipulating tapes or losing your 
program. 

No matter how badly your program 



crashes, as long as it does not disturb your 
source text or the Editor/Assembler-Plus, 
you can reenter Editor/Assembler-Plus 
without losing anything or touching a tape. 
Of course, you can also reserve high mem- 
ory, assemble into memory of your own 
choice, or generate object tapes without 
assembling into memory. Larger programs 
can be handled by using the QUASH com- 
mand to delete Z-BUG (and the assembler 
too, if desired). You can then load Z-BUG to 
debug your program. 

Macro and Conditional Assembly 

Macros permit you to generate common- 
ly used sequences of instruction easily. For 
the benefit of BASIC programmers, a macro 
is best defined as a multi-line defined func- 
tion or a portion of program with blanks for 
variables of your choice. Each time a macro 
is referenced, a particular sequence of code 
is assembled using unique parameters for 
that reference. This saves both time and 
memory space. Using macros can help you 
develop your own library of easily used rou- 
tines, create a new language, or even simu- 
late another computer. 

The assembler also has an expanded ex- 
pression evaluator (that's computerese for 
calculator). Radio Shack's Editor/Assem- 
bler is limited to addition, subtraction, 
logical and, and logical shift. The new ex- 
pression evaluator can multiply, integer 
divide, logical or, logical exclusive or, logi- 
cal not (ones complement a number), and 
modulo (remainder of integer division). Oc- 
tal (base eight), hexadecimal (base 16), and 
decimal (normal base 10) can be used with 
Radio Shack's Editor/Assembler but Editor/ 
Assembler-Plus also understands paren- 
theses. 

Conditional assembly is a function that 
allows you to assemble sections of your 
program only if a specified condition is true. 
The above feature combined with the equal 
to and nor equal to operators make condi- 
tional assembly a useful feature. 

Using conditional assembly sections of 
code can be assembled or ignored based on 
an equation or a logical arithmetic expres- 
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sion. These algebraic style parameters are 
affected by labels set in the beginning of 
your program. Thus, modifying one label 
can affect many different sections of condi- 
tionally assembled program. A conditional 
section of source text can contain a condi- 
tional section within it. Thus one source 
text can be used to create many different 
versions of a machine language program. 
Programs can be made for disk, tape, 
screen, printer, Level I ROM, Level II ROM, 
or different size memories, to mention a few 
possibilities. 

Whenever a program is assembled, a 
symbol table is created. This tells which 
symbolic references you have used and 
which memory locations or data they actu- 
ally represent. Editor/Assembler-Plus lists 
these symbols in alphabetical order along 
with the data they represent. The list is an- 
notated to tell you which symbols represent 
macros, which change as the program is 
assembled, and which are involved in possi- 
ble error conditions. 

All error messages are fully typed out and 
are self-explanatory. There is no need to 
search through the manual to interpret error 
messages. You can also direct the assem- 
bler to pause when it detects an error, and 
await your instructions. You can stop and 
correct the error, continue until the next er- 
ror, or abandon the wait on error feature and 
let assembly continue without pausing for 
errors. 

Easy Editing 

It's a pleasure to edit source text with 
Editor/Assembler-Plus. Text can be insert- 
ed, deleted, listed, and manipulated on 
tape. Lines can be copied or moved. The 
character oriented editor (like the Level II 
BASIC editor) can be invoked. The X (ex- 
tend) subcommand of the editor can be 
automatically entered with one command. 
You can search for particular words 
(strings). You can even automatically 
replace all occurrences of a given string 
with another. Not only can the above func- 
tions be performed on single lines but they 
can all be performed on groups of lines. 
Thus, you can copy or move a group of lines, 
edit a section of text all at once, extend an 
area of text (to add comments), or find 
and/or substitute for strings within any par- 
ticular area of text. The entire text can be re- 
numbered at any time. There is never any 
reason to type the same thing twice or 
scroll through the entire text searching for a 
particular line. 

With Radio Shack's Editor/Assembler 
you can specify a line number or the begin- 
ning and ending line numbers of a series. 
Editor/Assembler-Plus lets you specify 
lines such as the 13th line after line 10 
(10 + 13) or the fifth line before the last 
(* -5). You can specify line number ranges 
such as the 23 lines following line 20 (20!23) 
or even the three lines after the fifth line fol- 
lowing the first line in the text (# + 5!3). It is 
an extremely flexible system! 

If you have a printer you'll be pleased to 
know that Editor/ Assembler-Plus has all the 
Radio Shack Editor/Assembler commands 



to send information to your printer. You can 
send output from the assembly or your 
source text with or without line numbers. If 
your printer requires software in RAM to 
run, high memory can be reserved for this 
and any other use you may desire. 

Z-BUG 

Z-BUG is a completely new machine lan- 
guage monitor. The feature I like best is its 
use of the symbol table to reference 
memory locations and data. For example, 
to run your program you can tell Z-BUG to 
go to the location labeled in your source 
text as START. Unless otherwise command- 
ed it will refer to all memory locations in 
terms of the labels used in your text. The 
location following START is referred to as 
START + 01. This feature can be defeated 
and locations displayed in octal, hexadec- 
imal or decimal form. The contents of mem- 
ory can be displayed in disassembled form 
(Z-80 mnemonics). All addressing (including 
relative addressing) can be displayed using 
either labels or numeric memory references, 
ences. 

Program listings can easily be followed 
because instructions affecting the program 
flow can be used to automatically deter- 
mine the next memory location shown. 
Memory can be displayed in bytes (8 bits) 
and words (2 bytes) in octal, hexadecimal, 
decimal, or even the printable ASCI I charac- 
ters. Locations can be modified in any inte- 
ger base between two (binary) and 16 (hexa- 
decimal) inclusive. One command allows an 
entire series of memory locations to be dis- 
played together in any of the above forms 
and you may scroll up and down through 
memory. 

The full expression evaluator of the as- 
sembler (as previously described) is avail- 
able for immediate use in calculator mode. 
No longer is it necessary to have a hand cal- 
culator handy to debug programs. Symbolic 
references as well as numbers in bases two 
through 16 may all be used in calculations. 
By using symbols, a thoroughly labeled pro- 
gram requires very little, if any, numerical 
manipulation for debugging. 

Z-BUG can maintain eight breakpoints at 
once as opposed to T-BUG's one. Break- 
points are referred to by location and 
assigned a number (zero through seven). 
After stopping at a breakpoint you can con- 
tinue until the next breakpoint or any 
specified number of following breakpoints. 
Thus, by setting a breakpoint in a loop you 
can observe the results of going through 
the loop any number of times. A built-in 
single step function allows you to execute a 
program one instruction at a time while 
modifying the instructions and their effects 
on memory, screen, registers, and flags. 

All of the commands are logically de- 
signed and easy to learn and use. The sim- 
ple format of the commands is facilitated 
by a new escape character. When the shift 
key and the up arrow are both depressed a $ 
symbol results. This $ is different in opera- 
tion than the shifted four symbol. This new 
escape character is used in many of the 



commands. 

Editor/Assembler-Plus is made foolproof 
by requiring a two step command sequence 
for all cassette operations and for the 
destructive quash command. Any cassette 
operation command results in the CAS- 
SETTE READY prompt, after which you 
could hit Break to abort the command or hit 
any other key to confirm it. QUASH (which 
deletes parts of the system to allow more 
programming space) results in a QUASH? 
prompt and requires a similar response. 
Furthermore, the program is always check- 
ing your memory. Attempting to modify a lo- 
cation in fixed memory (ROM) or a defective 
location in user memory (RAM) results in a 
BAD MEMORY error message. 

Almost Perfect 

I can find only one fault in this giant pro- 
gram which fills more than three-fourths of 
available memory in a 16 K system. There is 
a short page break every 2.5 seconds when 
a machine language tape is generated. I 
find that this space in the tape makes pro- 
grams slightly longer and more difficult to 
load. I prefer the continuous tape output of 
T-BUG. The monitor lacks such luxurious 
features as tape verify (similar to CLOAD? 
in BASIC), memory search and compare 
functions. However, Editor/Assembler-Plus' 
many other features make up for these 
functions which would utilize more memory 
and leave less space for programming. 

One feature I felt was lacking was a sym- 
bolic listing function which is used to disas- 
semble any supplied machine language 
tape or an area of memory into the assem- 
bler text buffer. By using the superb editing 
commands, you could easily find all labels 
needed for relocation and assemble or 
modify the new text. Disassemblers to ac- 
complish this are available separately 
(Myosis Disassembler 1.2, for example). If 
you are willing to do some typing, this fea- 
ture could be accomplished using the sys- 
tem as provided. You just have to display a 
screen full of symbolic listing in Z-BUG, 
jump to the Editor/Assembler, and type the 
information on the screen into the text buf- 
fer (same as typing in a new program). This 
is proof of the feasibility of implementing 
this feature. 

Editor/Assembler-Plus is all a beginning 
assembly language programmer (with a 16 
K Level II TRS-80) needs to have a complete 
assembly language development system. 
This powerful, easy to use system is sold 
for about $30— that's $15 less than buying 
Radio Shack Editor/Assembler and T-BUG 
separately. A good introductory program- 
ming book with information on Z-80 instruc- 
tions and mnemonics is needed to comple- 
ment the documentation provided. 

Programmers without an assembler and 
Radio Shack Editor/Assembler owners tired 
of waiting for tapes load and desiring the 
new features of Editor/Assembler-Plus will 
find it well worth the money. Radio Shack 
Editor/Assembler owners might even con- 
sider their initial investment well worth it for 
the excellent documentation that is pro- 
vided. ■ 
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GENERAL 



An observing aid for students of the species. 



A Field Guide 
To Computerists 



Chuck Doherty 

32 Meadowood Drive 

South Dartmouth, MA 02748 



This is quite a country we live 
in. Where else could one 
find such a wide range of differ- 
ent people? And the computer 
boom of the last few years has 
spawned a totally new group 
from ail the others. This group 
has managed, in a few short 
years, to carve a permanent 
nitch for themselves in society. 
This group is, of course, the 
computerist. 

I'm not referring to the com- 
puter professional, who spends 
his eight hours at the helm of 
some IBM monster, and at five 
flips the switch to become Joe 
American, Regular Guy. I'm talk- 
ing about the man who rushes 
home from work, pats his wife, 
kisses the dog and disappears 
until the wee hours into that 
mysterious little room with the 
phosphorus glow. 

This is not to imply that all 
computerists are alike, quite the 
opposite is true. The purpose of 
this article is to guide you in 
learning the many sub-groups, 
and to point out the differences 
between them. 

The Whiz Kid 
(Youtharious Technicalia) 

The easiest to spot of all the 



sub-groups, is the whiz kid who 
can be identified at some dis- 
tance. Plaid pants and a differ- 
ent plaid shirt is usually the tip- 
off along with a plastic shirt- 
pocket protector containing an 
inordinant amount of pencils. 
Another sign is a leather calcu- 
lator pouch hanging from the 
belt. If you see any of the above 
combined, you can be sure 
you've got a classic. 



section. He knows that in a few 
years computers will control 
robots delivering mail at 300 
m.p.h. and he's going to be 
ready. He also insists that his 
wife use a computer to figure 
how many pounds of hamburger 
to use for four people when the 
recipe is for only two. 

All in all he's a terrific guy to 
have for a neighbor, especially if 
you ever need to borrow a ben- 



"The easiest to spot 
of all the sub-groups, 

is the whiz kid 
who can be identified 

at some distance." 



By their thirteenth birthday, 
most whiz kids know more 
about computer hardware than 
most senior engineers. 

Don't try to find the whiz kind 
at sporting events or at discos; 
try the local computer store or 
library instead. 

The Computer Pioneer 
(Forefrontus Electro) 

If a house in your neighbor- 
hood has solar panels or a wind- 
mill, it may also have one of 
these. The Computer Pioneer 
looks like the guy in Popular 
Science's "Wordless Workshop" 



zene powered, home built, metal 
detector. 

The Computer User 
(Ineptus Bythebookia) 

The computer user is a firm 
believer in the old addage: "If 
man were meant to have lower- 
case, it would be inside." His 
favorite activity is browsing the 
corner Radio Shack outlet and 
he laughs at the idea of writing 
his own software. This is the guy 
who, as a child, searched all 
over town for a certain brand of 
glue (made by the same people 
who made his model car kit) 



because the instructions said 
so. 

He also believes that com- 
puters are the wave of the 
future, but doesn't hope to be 
their master; he only hopes to be 
able to talk his way into a job. 

The Junior Businessman 
(Financla Multipulis) 

Every town has a few of these. 
This is the fellow who runs the 
shop that sharpens saws, 
makes 3-D magnetic signs, rub- 
ber stamps and used to sell CB 
radios. The Jr. Businessman 
has taken almost every corre- 
spondence course known to 
man, and views the computer as 
the best business opportunity to 
come down the pike since lock- 
ing gas caps. One wall of his 
shop is devoted to pre-packaged 
software and back issues of 
computer magazines. He knows 
that riches and prosperity are 
right around the corner, just as 
soon as he gets around to clean- 
ing up that back room and fixing 
the air conditioner. (He knows 
how to do it himself; he took a 
course.) 

The Visionary 
(Misinformia Weilintentia) 

The visionary heard from a 
friend that computers can fix 
dinner, scare away burglars, 
keep all his records and teach 



208 • 80 Microcomputing, May 1981 



the kids fluent German just by 
pushing a few buttons. . .noth- 
ing to it. Boy, is he in for a sur- 
prise. 

The Computer Student 
(Idiot Perlpheralis) 

The computer student is go- 
ing to make it big in the world of 
tomorrow. He is able, in one 
breath, to recite entire instruc- 
tion sets of over two dozen dif- 
ferent microprocessors. How- 
ever, he cannot tie his shoes 
without an illustration. 

The Big-Time Hustler 
(Richis Swiftis) 

We've all heard stories of 
these fellows, but few have ever 
been met face-to-face. He 
knows there is money changing 
hands out there somewhere, 
and is determined to get his 
grimy paws on some of it. These 
are the fellows you see with hats 
over their faces as reporters try 
to get an interview. Most are 
well versed in retirement land 
sales and commodity options. 



The Social Outcast 

(Dullis, Dullis, Dullis) 

By far, The Social Outcast is 
the least interesting person you 
will ever meet. However, at the 
keyboard, he is in charge. He is a 
brilliant programmer, and under- 
stands both software and hard- 
ware throughly. But, outside of 
computer-related discussions 
he's at a total loss. The Wife and 
kids are equally as dull. Pass out 
the No-Doze if this man has a 
comment at your computer club 
meeting. 

Of course, not every computer 
user falls into one of these 
classifications. There are also 
many others, some so diverse 
that they only have one member. 
Also do not forget the indirectly 
related groups, such as the com- 
puter widow, the computer or- 
phan, and the infamous com- 
puter salesman. 

In the future perhaps a mod- 
ern Audubon will do a more in- 
depth study of this group, giving 
us a standard reference guide to 
the American Computerist. ■ 



SAVE more than 50% 




NEW! $1 995 USED in excellent condition 
RO version only RO $995; KSR $1 495 

Rugged and well-constructed; available in KSR and RO versions; 
feature 96 ASCII (upper & lower case) plus 27 graphics characters in a 
5X7 (optionally 5X9) dot matrix. Prints bidirectional^ (logic seeking) at 
180 char/sec on std pin feed paper (up to SIX part) in red and black. 
Tractors are adjustable from 3 to 15 inches; split platen versions also 
available. Electronic top of form/forms length control and six select- 
able character print densities (10, 12, and 17 cpi plus elongated in 
each). 1K buffer and 110-9600 Baud RS-232C interface is standard; 
additional buffer may be added and a Centronics-compatible parallel 
interface is available. Free-standing pedestal unit. 
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Digital Systems Engineering 



12503 King's Lake Drive, Reston VA 22091 (703) 620-2994 

ALSO AVAILABLE: New Centronics and Integral Dala Systems printers at 
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REVIEW 



A powerful tool with minor problems. 



Microsoft's Compiler 
For The Model II 



Basic Compiler (Model II) 

Microsoft 

Bellevue, WA 

$400 



James L Waggoner 
1854 Wedgemere Road 
El Cajon, CA 92020 



As a programmer who began his career 
on IBM 7094s that occupied entire 
buildings, you'd think I'd be realistic in my 
expectations of new products, especially 
compilers! 

Reasons for Buying a Compiler 

First, let me give you my reasons for pur- 
chasing a compiler for the Model II. Radio 
Shack designed the Model II so the user of a 
64K machine would be able to use all 64K 
for programs. With the disk-based BASIC 
interpreter occupying 28K to 29K, the pro- 
grammer is left with 35K to 36K for his pro- 
grams. 

My first reason, then, for buying a com- 
piler is that I could make more memory 
available for BASIC programs. 

The compiler saves memory by compiling 
statements and producing object code as 
opposed to ASCII bytes, and by including 
only those subroutines (e.g., PRINT and 
LPRINT) that are actually used by the pro- 
grams. For example, a 9000 byte BASIC pro- 
gram may produce a 15,000 byte object file 
(/CMD file). But you save with the compiled 
version at 15,000 bytes because you don't 
need the 28,000 byte interpreter or 9000 
bytes of program, making your net savings 
22,000 bytes. 



My second reason for buying a compiler 
is that programs will execute faster. 

An interpreter examines each program 
statement and determines what to do with 
it when it is encountered. A compiler deter- 
mines what operations are necessary to ex- 
ecute a statement and produces machine 
language instructions that are then ex- 
ecuted when the program is run. This ob- 
viously avoids the extra steps introduced by 
an interpreter each time a statement is ex- 
ecuted. 

In general, the increased speed would 
not be noticed in print operations, screen 
displays, or interactive sessions, since 
these activities are limited by the speed of 
the devices (I/O bound) rather than the 
speed of the microprocessor. I hoped, 
however, that the compiler would speed up 
arithmetic calculations, string searches, 
and other internal operations. 

I invested some money in phone calls to 
Microsoft to assure myself that the compil- 
er would run on a single-drive Model II. 

No Clicks, Hums or Displays 

In typical "old hand" programmer fash- 
ion, when I received the compiler, I gave the 
documentation a cursory glance and 
popped the eight inch diskette into my 
single drive and hit RESET. Much to my sur- 
prise, I was not greeted by the usual clicks, 
hums, and displays. Instead, I received a 
message saying there was no system on 
the disk. 

Not being one to give up that easily (pro- 
gramming requires tenacity), I booted a 
good disk, removed it, and inserted the disk 
with the compiler on it. I requested a direc- 
tory that produced a list of files that agreed 
with what the documentation suggested 
should be there. This small triumph en- 
couraged me to spend the next several 



hours between reading the documentation 
and fruitless attempts to either copy the 
system onto the compiler disk or copy the 
compiler files onto a system disk. 

Even a programmer's tenacity has limits. 
I finally decided to get some sleep, and as I 
drifted off I began composing the conversa- 
tion that would take place during my angry 
phone call to Microsoft the next day. 

The conversation the following morning 
went something like this: 

"My compiler doesn't work," I said to the 
customer representative. (Programmers 
tend to overstate their cases.) 

"Did you copy the files to system disk?" 
he responded. 

"I tried. How do I do that with one drive?" 

"You can't. You have to take the disk we 
sent you to a Radio Shack store or a friend 
with two drives and make the transfer," he 
replied. 

"You said I could run the compiler on a 
single-drive system." 

"You can, but first you need two drives to 
transfer the files to a system disk." 

"What if I lived in Cutbank, Montana, four 
hundred miles from the nearest Radio 
Shack computer store?" (Programmers are 
clever at thinking up hard questions.) 

"Believe me, I get calls from those people 
too," he retorted. 

Realizing that the conversation was lead- 
ing nowhere I asked, "Are there any other 
surprises in store for me?" 

"No," he answered. 

End of conversation. 

Fortunately the distance from my office 
to the nearest computer center is only a few 
miles. I sure feel sorry for that guy in Cut- 
bank! 

That evening I figured I was all set to run 
my BASIC programs through the compiler 
and produce programs that ran like greased 
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lightning. (Programmers are also eternally 
optimistic.) 

Documentation 

Let me explain the organization of the 
documentation supplied by Microsoft. It's 
divided into several sections. The first and 
largest section deals with the commands 
available in the Microsoft version of the BA- 
SIC language. As a part of the description 
available with each command, a line is in- 
cluded stating the version for which the 
command is valid. This line may state that a 
particular command (instruction) is valid for 
8K BASIC, Extended BASIC, or Disk BASIC. 
(Notice I did not mention the BASIC Com- 
piler.) 

This large section contains several ap- 
pendices which explain differences among 
the various usages. There is also an ap- 
pendix which describes the peculiarities of 
the version for the compiler. This section is 
followed by a section called the "BASIC 
Compiler User's Manual" for the CP/M 
usage, a section on the macro assembler 
and one for the linking loader. 

The information dealing with the Model II 
version of the compiler is contained in six 
pages appended to the front of the manual. 
The appended information deals mainly 
with the commands (instructions) which are 
not legal in this compiler version. The user 
is left with the assumption that, if it isn't 
strictly forbidden, it must be okay. 

After discovering in the first six pages 
that dashes "— " must be substituted for 
slashes "/", :TT (for CRT display), not TTY: 
and :LP for line printer, I typed the com- 
mand line for the compile: 

BASCOM TEST,:TT TEST = TEST-N 

The disk drive commenced to spin furi- 
ously. Lines appeared on the CRT indi- 
cating that Microsoft's latest and greatest 
was up and running. I sat back triumphant- 
ly, expecting a blur of lines to scroll across 
the screen. After several seconds, two more 
lines appeared which indicated completion 
of the compile. Strange, I thought, that an 
8000 byte program would compile without 
errors and produce so few lines of output on 
the CRT. Perhaps there's an error in the 
command line? 



Since the completion of the compile had 
left me at the TRSDOS READY mode, I re- 
quested a list of the directory. Sure enough, 
there was a file called TEST/REL. It looked 
very short, so I examined it with the 
TRSDOS command to list it to the CRT. It 
looked short because it was short. In fact, it 
was almost non-existent. 

After several more attempts using 
various permutations of the command line 
(e.g., list output to screen, list output to 
printer, list source only, list source and ob- 
ject, don't create object file, etc.), I decided I 
needed a beer. While sipping my beer, I 
glared at the CRT and vowed it would not 
get the better of me this night. (Beer aids 
tenacity.) Suddenly a thought. Perhaps the 
compiler doesn't accept the compressed 
format for BASIC. I quickly loaded the 
BASIC interpreter, read my program from 
the disk, and saved it in ASCII using the 
",A" extension. At this point, I must confess 
that in an appendix it does state that the 
compiler will accept ASCII files. 



000 Fatal Errors 

I returned to TRSDOS and entered the 
BASIC compiler command with which I was 
now gaining a certain intimacy. The same 
furious disk activity began, and then the 
CRT was a blur of errors scrolling across 
the screen. 

Success! Well, compared to the results 
so far it was a success. 

After examining and eliminating several 
errors (bear in mind that this program ran 
without problems in the interpreter mode), I 
ran across an innocent looking error la- 
belled "LL." Intrigued, I reached for the Mi- 
crosoft manual and thumbed to the list of 
compiler error codes— "LL" meant "linetoo 
long." 

Examining the line displayed on the CRT 
to which the error code apparently referred, 

1 counted the characters. The line was only 
28 bytes long (back to the documentation). 
After intensive investigation (and another 
beer), I found a reference which said, in ef- 
fect, that the compiler will not accept a 
physical (as opposed to logical) line greater 
than 127 bytes. 

I carefully recounted the characters dis- 
played on the line. There were still only 28. 1 
examined the rest of the listing. My eyes 



FUNCTION 


TIME (IN SECONDS) FOR 2000 EXECUTIONS 


PERFORMED 


COMPILED VERSION 


INTERPRETER VERSION 


B% = B%*(10/10) 


1 


15 


C = C "(10/10) 


1 


14 


LOG(l/7)' 


34 


41 


L0G<4.155/7.2) 


31 


74 


SQR(I)* 


30 


63 


I 1/3 (CUBE ROOT) - 


58 


129 


-B + SQR(B-4.A-C) 


100 


182 


2. A 






"1 = 1 to 2000 


7ab/e 1. 





wandered down to the next line. Now this 
line, I thought, is definitely longer than 
127 bytes. I checked several other lines with 
line length errors indicated and discovered 
a pattern. It wasn't the indicated lines that 
were too long, but the lines following. 

Sensing victory was at hand, I quickly 
severed the lines at a convenient point (less 
than 127 bytes in length), re-typed the 
severed portion on a separate line and 
recompiled the program. After several anx- 
ious seconds, I was rewarded with that 
most elusive of remarks "0000 FATAL ER- 
RORS." 



The Purpose of the Loader 

Flushed with victory, I plunged on to the 
next step in creating a loadable object program, 
The Linking Loader. According to the Addenda 
to the BASIC Compiler User's Manual, I was 
to type "L80 TEST-G" to load and execute 
my program or "L80 TEST-E" to exit and 
save a copy. If I wished to relocate the pro- 
gram at a base address other than 3000 hex- 
adecimal, I could use the "-P";address or 
"-D":address switch. Since Microsoft didn't 
think I needed to know the difference be- 
tween the two or give any examples to 
follow, I decided not to get that fancy on my 
first attempt. 

I sat back and reflected upon the purpose of the 
loader. The linking loader processes the com- 
piled program and searches for references to 
subroutines (subroutine calls). When a sub- 
routine reference is found, the loader searches 
a file of subroutines, the subroutine library, 
and extracts the required routine for inclusion 
in the object file. The Microsoft subroutine 
library is approximately 45,000 bytes long. 
You could expect a program that used every 
conceivable variation of every command to re- 
quire the inclusion of one copy of every sub- 
routine in the library. 

Conversely, limiting the variety of com- 
mands in a program would be a way of reduc- 
ing the object file size. For example, if a simple 
program contained several instructions requir- 
ing addition and only one or two requiring mul- 
tiplication and further, assumes the multiplica- 
tion subroutine is 3000 bytes long, you could 
save 3000 bytes (more or less) by writing the 
multiplications as repetitive additions. (An in- 
teresting project would be to determine the size 
and speed of the various subroutines and select 
the shorter and faster routines when writing 
your programs.) 

Well, back to the loader. The disk was work- 
ing furiously and very little other activity was 
apparent. Searching and selecting the various 
subroutines from the library took several min- 
utes. When the loader has completed its task, 
four hexadecimal values are displayed on the 
screen (two of the values are the same). As an 
example, say the values were 3000, 3A61 , and 
6AB1 (the 3000 appearing twice). These values 
are required for the TRSDOS DUMP routine, 
which saves the object file in a command file. 
The 3000 represents the beginning of the pro- 
gram.(AII compiled programs will start at 
3000 unless the "-P":or"-D":options are 
used.) The 6AB1 represents the location 
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THE 

UNINTERRUPTIBLE 
POWER SUPPLY 



that keeps your computer on 
when the power fails . . . 

Mayday protects the computer and disk system from power surges, sudden drops in 

voltage, or a complete disruption of power. 
Most problems operators or programmers have are caused by voltage or current interruptions of the computer. 
There are 12 different Mayday UPS power supplies, one of which is specifically designed to handle your computer 
system from 50 watts up to over 600 watts. 

Protect your time and investment. One power failure could well cost you the price of the Mayday. Prices start at 
$240 for the 150 watt system. (Line surge voltage regulator protection is available at additional cost). 
For more information, please call or write. 

Box 210 New Durham, NH 03855 
(603) 859-7110 TWX 510-297-4444 




FEATURES INCLUDE: 

• Uses Standard Typewriter Ribbon 

• Micro Processor Controlled 

• Can Operate Continuously— 

No Thermal Problems (Hasan all metal 
print head) 

• 5 x 7 to Larger 10 x 7 and Larger 10x14 
Dot Matrix Character Generator 

• Standard 96 ASCII Character Font 

• Upper and Lower Case Printing 

• Up to 88 Characters Per Line 

• Single Line Print Rate Is 160 CPS 

• Average Print Rate Is 60 CPS For Ten 
Lines 

• Graphics Capability With Extended 
Character Modes 

• Programmable With 32 System Level 
Software Commands 

• Standard Parallel and Serial Interface 

• Software and Hardware Reset Interface 

• Software Line Counting For Paging 

• Baudrate Select From 110 to 9600 

• Manual Paper Advance 

• Manual Selftest and Reset 

• Adjustable Tractor Width From 1 to 9 1 /2 
Inches 

• Interfaces with Apple, Atari, OSI, T.I., 
TRS-80 and the List Goes On ■ 



C00S0L DATA LOGGER IMPACT PRINTER 




FACTORY DIRECT 



$495 Kit, 1 01 B-80KE $545 Assembled & Tested 1 01 B-80E 

^78 'Registered Trademarks of Apple Computer Inc.. Atari Inc.. Ohio Scientific Inc.. Texas Instruments Inc., 

Tandy Corp. respectively 

COOSOL, INC. P.O. BOX 743, ANAHEIM, CA 92805 (714) 545-2216 7 Days a Week 
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where execution of the program is to begin. 
I entered the TRSDOS DUMP command: 

DUMP MYPROG/CMD 
START = 3000,END = 6AB1,TRA = 3A61 

which dumped the object file to the disk in a 
few seconds. 

At last, I was ready to perform the ulti- 
mate test. At the TRSDOS READY level, I 
typed in "MYPROG/CMD". The disk activity 
light came on and the first menu in my pro- 
gram appeared on the screen. After check- 
ing several of the features of the program, I 
decided that I had indeed created a com- 
piled version of my program that actually 
worked just like the interpreter version. 

Since I finally had the compiler figured 
out I decided to perform a few experiments 
to determine what kind of increase in pro- 
cessing speed I could expect. I wrote a 
small program in BASIC and debugged it. 
Once I had it running in the interpreter 
mode, I made the changes required for the 
compiler (such as deleting the CLEAR 
statement) and saved an ASCII version to 
compile. I then ran both versions of the pro- 
gram and, using the internal clock in the 
Model II, printed the time required to per- 
form the various functions. As I expected, 
there was little difference in the screen dis- 
play time (although the compiled version 
appeared slightly faster) or the printout. A 
significant difference in the string search 
times was indicated. 

The string search test consisted of estab- 
lishing a 2000 item array with a five-charac- 
ter pattern in each item. A loop was estab- 
lished to search the array using the INSTR$ 
function. I set the last item in the array to 
the pattern I was searching for. The inter- 
preter version of the program took 16 sec- 
onds to find the required item. The compiler 
version took just four seconds, a four to one 
advantage in processing speed for the com- 
piler. Upon examining the programs, I no- 
ticed I had used a single precision variable 
for the loop counter. I changed the variable 
to an integer type variable in both versions 
of the program, recompiled, and re-ran the 
test. 

The interpreter version run time was re- 
duced by a second or two (the granularity 
on the clock is one second), but, the com- 
piled version now ran in only two seconds. 
This would indicate that programs requiring 
searches of large numbers of string items 
would run seven or eight times faster using 
compiled versions. 

Table 1 contains data for various simple 
tests I ran to the execution speed between 
interpreter and compiler versions. Each test 
consisted of executing the indicated func- 
tion 2000 times and displaying the start and 
stop times. The execution times indicated 
are exclusive of any interactive input or dis- 
play times. The granularity of the clock was 
one second, and the times indicated in- 
clude the loop processing time as well as 
the calculations. I made no attempt to opti- 
mize the routines. 



Updates 

Recently, I received the latest version of 
the Compiler and a revised addendum. 
Microsoft's latest version, 5.2, adds the in- 
clude % function that allows a programmer 
to create subroutines and add them to a 
program without re-entering the code (a 
very handy function). This version also 
eliminates the step of dumping the object 
code to a command file during the load pro- 
cess. A new compile switch has also been 
added to allow compiling using one set of 
BASIC conventions, and execute using 
another. Considering all the improvements 
the latest version is a significant step for- 
ward. 

After making another visit to the local Ra- 
dio Shack computer center to transfer the 
latest version to a system disk, I eagerly an- 
ticipated exercising the compiler. I trans- 
ferred my 29,000 byte BASIC program to the 
system disk. 

I was expecting to encounter similar 
problems with the line lengths, etc., but 
figured I would try the largest program first 
just to see how it fared. To my amazement 
(apologies to Microsoft for my doubt), the 
program zipped through the compile in less 
than four minutes. No line length errors; the 
new version accepts lines greater than 127 
bytes. The four indicated "fatal errors" con- 
sisted of reserved words which were imbed- 
ded in variable names, a no-no when using 
"-4" compiler switch. 

Still dazed from my initial success, I cor- 
rected the indicated errors, re-ran the com- 
piler and decided to attempt the loader. Not 
wishing to push my luck too far, I did not at- 
tempt to use the added feature which elimi- 
nates the necessity for dumping the object 
code. (I later verified that this function does 
work.) 

I typed in the loader command and sat 
back to wait. In less than four minutes the 
now familiar start, end and transfer addres- 
ses appeared, indicating a successful load. 
I dumped the object code to a command file 
and not yet believing my good fortune, 
typed in the command file name. The first 
menu of the program appeared on the 
screen. After exercising several of the fea- 
tures of my program, I had to admit that 
everything appeared to be working. The 
29,000 byte source file was now a 7,000 byte 
object file, a savings of 22,000 bytes. 

A Different Kind of Animal 

To summarize my experience with the 
Microsoft BASIC Compiler for the Model II, I 
would have to say the greatest deficiency is 
the documentation. Microsoft has fallen in- 
to the trap of trying to make one documen- 
tation package serve for every conceivable 
application. 

A compiler is a fundamentally different 
animal than an interpreter and deserves 
separate instructions. Five or six pages of 
addendums cannot begin to provide the 
detail required to effectively utilize this 
powerful tool.B 



TRS-80 



SAVE fi BUNDLE 

When you buy your 
TRS-80™ equipment! 

Use our (oil free number to §§ 
check our price before you buy {S 
a TRS-80™ . . . anywhere! 





TEACH YOUR 
CHILDREN 

Learning to count money by Malcolm Nygren 



A three-program learning system that teaches 
the important skill of counting money. 

1. Counting Coins— Instruction and drill in 
counting pennies, nickels, dimes and 
quarters. 

2. Shopping Trip — Buy goods in various 
stores; count out the payments and earn 
"purple stamps" for a right answer. Three 
speed levels. 

3. Check-Out — Run your own checkout 
counter. Learn and practice how to make 
change. 

Learning to count money by Malcolm Nygren 
features superior graphics and is available for 
TRS-80 Model I— Level II— 16K on cassette 
only. Shipped postpaid by first-class mail 

Each program $6.95—0// three $19.95 



ALSO AVAILABLE 

ALPHA — Alphabet recognition for 

preschoolers 
SIGMA — Addition problems for 

Grades 1-3 
SIGMA-EX — Addition problems for 
— the younger or slower 
learner 
SPE_L— Spelling practice for 
Grades 2-4 
Available on cassette only. $5.95 each. Two for $11. 
All four for $20.00. ^104 

Mercer Systems Inc. 

87 Scooter Lane 

Hlcksvllle, N.Y. I I SO I 



sSee List of Advertisers on page 306 
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ANIMATION 



PROFESSIONAL 



GRBASIC OFFERS FULLY INTEGRATED BASIC GRAPHIC COMMANDS FOR 
THE MODEL I AND MODEL III! LINESI SHAPE TABLES! SCALING! ROTATIONS! 



GRBASIC extends Level II or DISK BASIC to include an 
easy-to-use graphics command set. A single BASIC com- 
mand allows the user to draw a line between any two 
pixels on the screen. The longest diagonal can be drawn 
in less than 7/100 second! Coordinates can be chained to 
allow complex figures to be drawn by a single BASIC pro- 
gram line in less than a second! 

GRBASIC allows the definition of shapes. Once defined, 
a shape can be rotated, scaled up or down in size, drawn 
anywhere on the screen in less than a second, and can 
even be drawn totally or partially "off" the screen in 
extended space! And all with short, simple BASIC com- 
mands! Even multiple shapes are no problem! 

GRBASIC is not a string-packer or machine-language 
USR-called utility. GRBASIC is fully integrated into Level 
II and DISK BASIC. There is nothing on the market that 
offers its graphic features, except possibly the Apple II 
computer! 

TRS-DOS AND TRS 80 ARE REGISTERED TRADEMARKS OF TANDY CORP 
NEWDOS 80 IS A REGISTERED TRADEMARK OF APPARAT. INC. 



Med Systems Software *■ 

P.O. Box 2674- Y Chapel Hill, NC 27514 
(919) 933-1990 



GRBASIC will allow the professional user to produce data 
graphs and displays with unbelievable ease. The data 
graph pictured above was produced by a few simple 
BASIC statements and was drawn in under 1 second! 

3-D animation from BASIC is now a reality! The game 
pictured above, taken from a demonstration program 
included with GRBASIC, pictures an alien ship attacking 
a moon base. This demonstration is written completely in 
BASIC and is superb! 

GRBASIC is available for Level II BASIC on cassette. 
DISK versions support TRS-DOS 2.3 and NEWDOS 80 
(please specify which!), including BASIC * recoveries and 
full DOS integration. Memory overhead is only 1.5K. Doc- 
umentation is extensive, and includes numerous examples. 

GRBASIC cassette — $19.95 

GRBASIC diskette [TRS-DOS 2.3] —$24.95 

GRBASIC diskette [NEWDOS 80] — $24.95 



GUARANTEE AND ORDERING 
INFORMATION ARE UNDER THE SLEEPING 
DRAGON ON THE NEXT PAGE. -► 



214 • 80 Microcomputing, May 1981 



Labyrinth is not easy. Waking a sleeping watch-dragon is 
the least of your troubles. Somewhere in this nightmare 
of tunnels lurks an evil minotaur. To escape, you must 
kill it. And survive. 

Only the legendary light sabre of Dnev can kill the 
minotaur. It is secreted away in stygian darkness. To get 
it, you must deal with cave bears, gnomes, pits, wraiths, 
and much more. You must avoid the minotaur at all 
costs. 

Alas! Once armed with your light sabre, the minotaur 
flees! What treasures must be found and used as bait? 
Why is the maiden so beautiful? What lies beyond the 



3-D PERSPECTIVE GRAPHICS 

Labyrinth features the full screen 3-D perspective 
graphic displays that have made Asylum and Deathmaze 
5000 best sellers. You can actually see what you are 
doing and where you are going! The mazes and build- 
ings are bit-coded. This allows us to store gigantic mazes 
in small amounts of memory. These programs are not 
just a series of stored pictures. Our mazes typically 
contain over 600 locations. Further, machine-language 
programming gives instantaneous graphics generation 
and game response! 

LABYRINTH places you in a huge maze of tunnels 
inhabited by gnomes, ghosts, witches, and an evil mino- 
taur. You must find the weapons and treasures needed 
to destroy the minotaur before he destroys you! There 
is food enough in the maze to hold out for months! 
TRS-80 Level II 16K or Model III 16K $12.95 

ASYLUM places you on a cot in a small room. Periodi- 
cally, a janitor lobs a hand-grenade through the window 
of your locked door. What you do next could mean 
survival and escape! It could also mean permanent 
residence in the home for Deathmaze survivors! To 
leave, you will have to deal with guards, fellow sur- 
vivors, doctors, the infamous Crazed Carpenter, and 
much, much more. Don't expect to get out any time 
soon! There are over 1200 locations! 

TRS-80 Level II 16K or Model III 16K $14.95 

DEATHMAZE 5000 places you in a gigantic five-story 
building. There is only one goal. ESCAPE ALIVE! Mon- 
sters, dogs, vampires, and other vile horrors will plague 
your every step as you struggle to survive one of the 
most challenging adventures ever written. As of Decem- 
ber 20, only two people outside the Med Systems' staff 
were known to have escaped! 

TRS-80 Level II 16K or Model III 16K $12.95 



Med Systems Software 

P.O. Box 2674-Y Chapel Hill, NC 27514 
(919) 933-1990 




SsBfiBa* 



SATISFACTION GUARANTEED! 

Asylum, Deathmaze 5000, Labyrinth, and GRBASIC are 
guaranteed to be the most incredible graphic 
packages you can buy. If for any reason you are not satis- 
fied with these products, return your order within 14 days 
for a prompt and cheerful refund. 

ORDERING INFORMATION 

Orders are processed within five working days. We pay all 
postage and handling within the U.S., Canada, and U.S. 
territories. European orders please include $3.00 for air 
post. 



□ Asylum 

□ Deathmaze 5000 

□ Labyrinth 

□ Adventures on Disk 

□ GRBASIC Cassette 

□ GRBASIC TRS-DOS Disk 



($14.95) $ 
($12.95) $ 
($12.95) $ 
(add $4.00) $ 
($19.95) $ 
($24.95) $ 



□ GRBASIC NEWDOS 80 Disk ($24.95) $ 

TOTAL $ 

Name ; 

Street 

City State Zip 

Computer: 

□ TRS-80 Lll 16K 



□ Mastercard 
MC or VISA # . 
Expiration Date 



□ VISA 



□ Model III 16K 

□ check 
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UTILITY 



Use this subroutine 

to generate formatted input commands in your business software. 



Dollars and Sense 



Tom Andrews 
WLKI Radio 
Angola IN 46703 



If you write much business 
software in BASIC, you un- 
doubtedly appreciate such con- 
veniences as the print using 
command in Microsoft BASIC. 

But how about a formatted IN- 
PUT command? What a boon 
that would be for inputting dol- 
lars and cents amounts! 

The subroutine here will pro- 
vide a solution forTRS-80 users, 
and many other Microsoft 
BASIC programmers too. The 
subroutine can be renumbered 
and relocated as you like, but 
wherever you put it, it will pro- 
vide nice, neat dollars and cents 
input, with the numbers march- 
ing from right to left, and with 
the decimal point and commas 
all properly placed. 

To use the subroutine, set the 
value of variable FL to the maxi- 
mum number of digits to be in- 
put. If you do not want the 
screen to increment to the next 
line after you hit the carriage re- 
turn, set FF = 10. Then GOSUB 
to the routine. When the oper- 



ator hits return after entering 
the last digit to be input, the sub- 
routine will return with the input 
value carried in string variable 
INS which can then be trans- 
ferred to whatever numeric 
variable you wish, using the 
VAL(IN$) command. 

For example, if your numeric 
variable is X then you would 
write X = VAL(IN$). In this way, 
both single and double preci- 
sion input can be handled by the 
same subroutine. 

How It Works 

The actual subroutine begins at 
line 50000 in Listing 1. For a 
quick demonstration of how it 
works, simply tack on the short 
program stub given in Listing 1. 
This will give you an accumula- 
ting calculator on the computer 
screen. 

Note that the subroutine will 
accept entry of the minus sign 
only if it is the first thing en- 
tered. Attempts to enter the 
minus sign at any other time will 
be ignored, as will any effort to 
make a non-numeric entry. The 
only exception to this rule is the 
letter C, which will clear the rou- 
tine and return the display to 
zero so you can start over. 

In actual use, the subroutine 



works this way. Let's say that at 
line 1000 you wish to enter a dol- 
lar amount into variable A. Nor- 
mally, you might write some- 
thing like 

1000 INPUT-ENTER A DOLLAR 
AMOUNT";A 

and enter the desired dollar 
amount, including the decimal 
point. However, if you are enter- 



ing amounts in columns, and 
your entries have varying num- 
bers of digits, you will find that 
the columns don't line up neatly. 
Our subroutine solves the prob- 
lem this way: 

1000 PRINT-ENTER A DOLLAR AMOUNT";: 
FL = 6:GOSUB 50000:A = VAL(IN$) 

Your display would look this 
way if you entered 123456: 



Program Listing 1 

50000 ' >> INPUT USING ROUTINE << 

50005 FL=FL+2 

50010 T%=((FL-6)/3) :PRINTSTRING$(T%+2," "); 

50015 T%=0 

50020 A$="" :IN$= n ":IL$="":IS$=" " 

50025 PRINTSTRING$(T%+FL-5," "); 

50030 PRINT"$0.00"; 

50035 C!=0:T=0:I=0 

50040 REM 

50045 A$=INKEY$:IF A$="" THEN 50045 

50050 IF A$<>"C" THEN 50065 

50055 GOSUB 50150 ' — -ADJ FOR COMMAS 

50060 PRINTSTRINGS (FL+1+T%, 24 ); STRINGS (FL+1+T%, " ");STR 

ING$(FL+T%,24) ;:GOTO50020 
50065 IF ASC(A$)<>13 THEN 50085 
50070 IF C!>2 THEN IN$=LEFT$ ( IN$ , LEN ( IN$) -2 ) +" . "+RIGHT$ 

(IN$,2) ELSE IF C!=2 THEN IN$="."+IN$ ELSE IF C!=l 
THEN IN$=".0"+IN$ ELSE IN$="0" 
50075 IF IS$="-" THEN IN$=IS$+IN$ 
50080 IF FFO10 THEN PRINT 
50082 FF=0:RETURN 

50085 IF C!>=FL-2 THEN 50045 

50086 IF C!<>0 THEN 50095 

50090 IF A$="-" THEN IS$="-" :PRINT STRINGS (6 , 24) ; IS$ ; "$ 

0.00"; :GOTO50040 
50093 IF A$="0" THEN A$="" :GOTO50040 
50095 IF A$<"0" OR A$>"9" THEN 50045 
50100 IN$=IN$+A$ 
50105 GOSUB 50150 

Program continues 
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4MHZ, DOUBLE DENSITY,COLOR&B/W 
GRAPHICS . .THE LNW80 COMPUTER 




When you've compared the features of an LNW80 Computer, you'll quickly 
understand why the LNW80 is the ultimate TRS80 software compatible system. 
LNW RESEARCH offers the most complete microcomputer system at an outstand- 
ing low price. 

We back up our product with an unconventional 6 month warranty and a 10 
days full refund policy, less shipping charges. 

LNW80 Computer $1,200.00 

LNW80 Computer w/B&W Monitor & one 5" Drive $1,664.00 

All orders must be prepaid, CA residents please include 6% sales tax. 
Shipping and handling charge of $15.00 must be included with every order. 
* TRS80 Product of Tandy Corporation. 
** PMC Product of Personal Microcomputer, Inc. 



FEATURES 


COMPARE THE 


FEATURES AND PERFORMANCE 

LNW80 PMC- 80** 


TRS-80* 
MODEL III 


PROCESSOR 




4.0 MHZ 


1 ,8 MHZ 


2.0 MHZ 


LEVEL II BASIC INTERP. 




YES 


YES 


LEVEL III 
BASIC 


TRS30 MODEL 1 LEVEL II COMPATIBLE 


YES 


YES 


NO 


48K BYTES RAM 




YES 


YES 


YES 


CASSETTE BAUD RATE 




500/1000 


500 


500/1500 


FLOPPY DISK CONTROLLER 




SINGLE/ 
DOUBLE 


SINGLE 


SINGLE/ 
DOUBLE 


SERIAL RS232 PORT 




YES 


YES 


YES 


PRINTER PORT 




YES 


YES 


YES 


REAL TIME CLOCK 




YES 


YES 


YES 


24 X 80 CHARACTERS 




YES 


NO 


NO 


VIDEO MONITOR 




YES 


YES 


YES 


UPPER AND LOWER CASE 




YES 


OPTIONAL 


YES 


REVERSE VIDEO 




YES 


NO 


NO 


KEYBOARD 




63 KEY 


53 KEY 


53 KEY 


NUMERIC KEY PAD 




YES 


NO 


YES 


B/W GRAPHICS, 128 X 48 




YES 


YES 


YES 


HI-RESOLUTION B/W GRAPHICS 


, 480 X 192 


YES 


NO 


NO 


HI-RESOLUTION COLOR GRAPHICS (NTSC), 









128 X 192 IN 8 COLORS 

HI-RESOLUTION COLOR GRAPHICS (RGB) 
384 X 192 IN 8 COLORS 



OPTIONAL 
6 MONTHS 



TOTAL SYSTEM PRICE 



51, 664. C 



$1,840.00 



LESS MONITOR AND DISK DRIVE 



$1,200. 



51,375.00 



LNW80 



LNDoubler + DOS Plus 3.2D 



NO 

90 DAYS 



- BARE PRINTED CIRCUIT BOARD /. MANUAL 



.9b 



- Assembled and Tested $175.00 



The LNW80 - A high-speed color computer totally compatible with 
the TRS-80*. The LNW80 gives you the edge in satisfying your 
computation needs in business, scientific and personal computa- 
tion. With performance of 4 MHz, Z80A CPU, you'll achieve per- 
formance of over twice the processing speed of a TRS-80*. This 
means you'll get the performance that is comparable to the most 
expensive microcomputer with the compatibility to the world's 
most popular computer (TRS-80*) resulting in the widest soft- 
ware base. 

FEATURES: 

. TRS-80 Model 1 Level II Software Compatible 
. High Resolution Graphics 

. RGB Output - 384 x 192 in 8 Colors 
. NTSC Video or RF MOD - 128 x 192 in 8 Colors 
. Black and White - 480 x 192 
4 MHz CPU 

500/1000 Baud Cassette 
Upper and Lower Case 
16K Bytes RAM, 12K Bytes ROM 
Solder Masked and Silkscreened 



LNW SYSTEM EXPANSION 



8ARE PRINTED CIRCUIT BOARD 

AND MANUAL 

WITH GOLD CONNECTORS . . . 



$69.95 
$84.95 



Double-density disk storage for the LNW Research's "System Expan- 
sion" or the Tandy's "Expansion Interface". The LNDoubler™ is 
totally software compatible with any double density software 
generated for the Percom's Doubler***. The LNDoublerTM provides 
the following outstanding features. 

. Store up to 350K bytes on a single 5" disk 

. Single and double density data separation 

. Precision write precompensation circuit 

. Software switch between single and double density 

. Hardware override into single density only 

. Easy plug in installation requiring no etch cuts, jumpers 

or soldering 
. 35, 40, 77, 80 track 5" disk operation 
. 120 day parts and labor Warranty 
*** Doubler is a product of Percom Data Company, Inc. 

DOS PLUS 3. 2D 

Micro Systems software's double density disk operating system. 
This operating system contains all the outstanding features of 
a well developed DOS, with ease in useability. 

LNW DATA SEPERATOR 

- Assembled and Tested $17.95 



The System Expansion will allow you to expand your LNW80, TRS-8C 
or PMC-80** to a complete computer system that is still totally 
software compatible with the TRS-80* Model 1 Level II. 

FEATURES: 

32K Bytes Memory 

5" Floppy Controller 

Serial RS232 20ma I/O 

Parallel Printer 

Real Time Clock 

Screen Printer Bus 

On Board Power Supply 

Solder Masked and Silkscreened 



KEYBOARD 



LNW80 KEYBOARD KIT 



The Keyboard Kit contains a 63 key plus a 10 key, P.C. board, and 
remaining components. 



The LNW Data Separator provides you with a reliable and inexpen- 
sive means of solving your disk data read error problems for your 
5" single density drives. Compatible with both the LNW System 
Expansion and Tandy's Expansion Interface. Some soldering 1s 
required. 

CASE 

LNW80 CASE . Add $12.00 for postage $84.95 



The streamline design of this metal case will house the LNW80, 
LWN System Expansion, LNW80 Keyboard, power supply and fan, 
LNDoubler™, or LNW Data Separator. This kit includes all the 
hardware to mount all of the above. 

PARTS AVAILABLE FROM LNW RESERARCH 
4116 - 200ns RAM 

6 Chip set $26.00 

8 chip set $33.50 

16 chip set $64.00 

24 chip set $94.00 

32 chip set $124.00 



LNW RESEARCH 



OR PORA T IO 

14661 -C MYFORD RD. 
TUSTIN CA. 92680 



N 



v-53 



LNW80 "Start up parts set" LNW80-1 $82.00 

LNW80 "Video parts set" LNW80-2 $31.00 

LNW80 Transformer LNW80-3 $18.00 

LNW80 Keyboard cable LNW80-4 $16.00 

40 Pin computer to expansion cable $15.00 

System Expansion Transformer $19.00 

Floppy Controller (FD1771) and UART (TR1602) . . . $30.00 



VISA & MASTER CHARGE ORDERS & I N FO. NO. 714 - 552-8946 
ACCEPTED, Add $3 for postage SERVICE NO 714-641-8850 



• See List of Advertisers on page 306 
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A MAJOR 

BREAKTHRU FOR 

Electronic Engineers 

Electronic Hobbiest 

Electronic Students 

Ham Operators 

A General DC-AC (steady state) Analysis 

of Any Circuit 

Will Analyze and Compute: 

• Node, Branch. Element. Voltages 

• Node, Branch, Element. Currents 

• Branch Power Dissipation 

• Magnitude and phase values and complete 
frequency response with graphic display 

• Modify any element in circuit for desired 
results 

To Order Write: 

G & L Software Enterp. 
2304 N. 1st. Street 
Upland. CA 91786 

60 DAY MONEY 
BACK GUARANTEE 
IF NOT SATISFIED. 



A complete operational 

manual supplied 
comparable to I.B.M.'s 

E.C.A.P."" Program 
*A.C. Analysis Program 

$149.95 

♦D.C. Analysis Program 

$89.95 

'Order before May 31, 1981 

to get bothforS749.95 



TRS80" isalrad 
.Business Ma 



$0.00 
$0.01 

$0.12 

$1.23 

$12.34 



Initial display 
First digit entered 

Second digit entered 
Third digit entered 
Fourth digit entered 




$123.45 Fifth digit entered 
$1,234.56 Sixth digit entered 



The routine is an INPUT equiva- 
lent to PRINT USING. 

I have used this routine for all 
of my business software and 
have found it to be fast, conve- 
nient and reliable. ■ 



50110 PRINTSTRING$(FL+1+T%,24) ; 

50115 C!=C!+1 

50120 IF C!>8 THEN IL$=LEFT$ (IN$, LEN ( IN$) -8) +" , "+MIDS (I 

N$,LEN(IN$)-7,3)+","+RIGHT$(IN$,5) ELSE IF C!>5 TH 

EN IL$=LEFT$(IN$,LEN(IN$)-5)+","+RIGHT$(IN$,5) ELS 

E IL$=IN$ 
50125 IF C!>2PRINTSTRING$(( (FL-5) -(C!-3) ) ," ");:PRINT I 

SS;"$";LEFT$(IL$,LEN(IL$)-2);".";RIGHT$(IL$,2) ;:G0 

TO50140 
50130 IF C!=l THEN PRINTSTRING$ (FL-5 , n ") ; IS$; "$0 . 0" ; IL 

$ ' 
50135 IF C!=2 THEN PRINTSTRING$ (FL-5 , " " ) ; IS$ ; "$0 . ; IL$ 

50140 GOTO50040 

50145 STOP 

50150 T%=((LEN(IN$)-3)/3) :IF T%<1 THEN T%=0: '—COMMA A 

DJ 
50155 RETURN 



Program Listing 2 

>50000 
>LIST 

1 REM FORMATTED INPUT PROGRAM DEMONSTRATION DRIVER 

2 REM ACCUMULATING CALCULATOR 

3 REM DEMONSTRATION IS IN DOUBLE PRECISION BUT THE 
SUBROUTINE AT 50000 WILL ALSO WORK IN SINGLE PRECISION 

4 REM DEMONSTRATION IS A TYPICAL APPLICATION 
10 CLS 

20 PRINT TAB (15) "FORMATTED INPUT DEMONSTRATION" 

30 CLEAR 100 

40 DEFINT A-Z 

50 PRINT-ENTER AN AMOUNT " : :FF=10 :FL=9 :GOSUB 50000 

60 T#=T#+VAL(IN$) :PRINT USING "$$#######,,.##" ;T# 

7 GOTO 50 



Explanations of Program Listing 1. 

49999 LIST 

50000 ========>>INPUT USING HOW IT WORKS<<========== 

50005 ADD 1 SPACE FOR $ SIGN, 1 SPACE FOR DECIMAL POINT 
50010 T% REPRESENTS MAX # OF COMMAS 

50015 CLEAR T% (AFTER THIS T% WILL REPRESENT ACTUAL # 

F COMMAS) 
50020 CLEAR STRING VARIABLES 
50025 MOVE CURSOR TO BEGINNING POINT 
50030 INITIAL DISPLAY (DOLLAR SIGN, ZERO, DECIMAL, AND 

TWO MORE ZEROES) 
50035 IITIALIZE NUMERIC VARIABLES 
5004 ENTRY POINT 
50045 INKEY$ INPUT 
50050 CHECK IF INKEYS INPUT IS A "C" —IF NOT JUMP TO 

50065 
50055 PUT INTO T% , THE ACTUAL NUMBER OF COMMAS NEEDED F 

OR DISPLAY 
50060 ERASE DISPLAY, RESTORE CURSOR, JUMP TO START OF E 

NTRY ROUTINE AT 50020 
50065 CHECK IF CARRIAGE RETURN— A$=CHR$ (13) IF NOT JUMP 

TO 50085 
50070 FINAL OUTPUT ROUTINE— ESTABLISH PROPER DECIMAL PL 

ACEMENT 
5007 5 INSERT MINUS SIGN IF NEEDED IN VARIABLE IN$ 
50080 DETERMINE IF SCREEN DISPLAY SHOULD BE INCREMENTE 
50082 END OF FINAL OUTPUT ROUTINE RESET SCREEN INCRE 

MENT FLAG ' FF ' TO ZERO AND EXIT 

50085 PREVENTS EXTNDING ENTRY BEYOND LIMIT SPECIFIED BY 
FL 

50086 IGNORE NEXT TWO LINES IF COUNTER IS GREATER THAN 
ZERO 

50090 ACQUIRE MINUS SIGN ONLY IF ENTERED BEFORE ANYTHIN 

G ELSE 
50095 REJECT NON-NUMERIC ENTRY 

50100 APPEND LAST ENTRY TO MAIN STORAGE STRING— IN$ 
50105 COMMA ADJUST 
50110 MOVE CURSOR TO PROPER POSITION FOR DISPLAY STRING 

— IL$ 
50115 INCREMENT COUNTER 
50120 CONFIGURE DISPLAY STRING— I L$— WITH PROPER # OF C 

OMMAS 
50125 TO 50135 DISPLAY VALUE WITH PROPER DECIMAL LOCATI 

ON 
5014 JUMP BACK TO INPUT POINT 
5014 5 SAFETY STOP 
50150 SUB TO DETERMINE PROPER # OF COMMAS IN CURRENT DI 

SPLAY 
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APPLICATION 



Your computer benefits from an interpreter, so why not you? 



Foreign Language Translation 



Dan L. Robinson 
1625 Higgins Way 
Pacifica, CA 94044 



Can the Electric Pencil and 
the TRS-80 team up to 
translate foreign languages? 
They sure can! 

If you must decipher a busi- 
ness letter from a client across 
the sea, research a technical pa- 
per to see how companies over- 
seas have advanced, learn a 
language, or merely communi- 
cate with Grossmutter from the 
old country, then TRS-80 and 
Pencil can do it. 

What makes Pencil into a for- 
eign language translator is its 
string search and replacement 
mode. Simply type in: (space) 
FOREIGN WORD (space)/(space) 
ENGLISH WORD(space)/999 
and presto! That word is 
changed to another language 
throughout the text. This means 
it is necessary to look up a for- 
eign word only once. 

Since most applications may 
be confined to a narrow field 
(you may be in the widget ex- 



porting business; your specialty 
may be laser brain surgery), a 
small vocabulary will probably 
suffice, adding only a few new 
words for each future transla- 
tion. 

Like everything else, there's a 
right and a wrong way to trans- 
late with Electric Pencil, and be- 
lieve me, I've tried all the wrong 
ways. 

Inputting Text 

When typing in the original 
text, don't use Pencil's lower- 
case option. The search and re- 
place mode won't recognize 
The, the, and THE as the same 
word, and you may have to re- 
place the string three times un- 
less you stick to uppercase. You 
can convert to lowercase later, if 
you wish, as you replace the for- 
eign words with English. 

Using uppercase avoids an- 
other confusing element; some 
languages don't follow the 
same conventions on capitaliza- 
tion that we do. For example, the 
Germans capitalize such words 
as Log, Distance and Poor Fool, 
even in the middle of a sentence. 
You might find that the impor- 
tant looking name with the capi- 
tal letter translates to "Stuffy 
air" in English. 

Be particularly careful with 
Pencil's famous dropped letters 
in the first word on a new line. 
The string search won't recog- 
nize a word with a missing letter, 
and probably later on neither 
will you. 

Leave a space between words 



and puctuation marks. The string 
search won't recognize (space) 
WORD(space) as being the 
same as "WORD or WORD;. 

If the foreign alphabet con- 
tains symbols not used in En- 
glish, you may substitute @$% 
* + = , so long as you are con- 
sistent. 

Make liberal use of markers 
such as ((((((PAGE 3)))))) so that 
you can easily find your place, 
or recognize your remarks as 
distinct from the text. 

Building a Dictionary 

If you are going to translate 
often, it's important to build a 
dictionary so you won't have to 
look up words more than once. 
As small as your widget- 
exporting or laser-brain-surgery 
vocabulary may be, it's easier if 
it is in alphabetical order, and 
being able to consult the foreign 
dictionary in alphabetical order 
is much quicker than leaping 
from A to Z and back to the 
same page. 

The following program will 
permit you to input the foreign 
words at random. It will then pre- 
sent them in alphabetical order 
so that you may tack on their En- 
glish counterparts. Add a rou- 
tine at the end to save the data 
to a disk or tape file, and you'll 
be ready to use them again in 
the future: 



10 CLS:PRINT"DICTIONARY":CLEAR 

1500 ; DIM A$(100) 
20 PRINT:INPUT"NUMBER OF WORDS"; 

C 
30 FOR D = 1 TO C:PRINT"WORD";D;: 



INPUT A$(D): N EXT D 
40 FOR D = 1 TO C:FOR E = 1 TO C - 1 
50 A$ = A$(E):B$ = A$<E + 1):IFA$©B$ 

THEN 70 
60 A$(E) = B$:A$(E + 1) = A$ 
70 NEXTE,D:CLS 
80 FOR D = 1 TO C:PRINT A$(D);" = ";: 

INPUT Z$ 
90 A$(D) = A$(D) + " = " + Z$:NEXTD 
100 END 



Making the Translation 

Most languages, like our own, 
make larger words out of a num- 
ber of smaller ones, and the 
meaning may have little relation 
to the elements. Therefore, it 
is important to first translate 
words and not word elements. 
For instance, changing short 
words might give an equivalent 
of "a mixture of nitrogen and ox- 
ygen" and "a tool for shaving 
wood" when what was meant 
was "airplane". 

To avoid this pitfall, the string 
to be searched and its replace- 
ment should be placed between 
a pair of spaces. That way, only 
words and not word elements 
will be translated; and that is al- 
so why you input the text with a 
space between the words and 
the punctuation marks. 

Making the replacement, you 
may now choose to have the En- 
glish translation in lowercase. 

In Pencil's string search 
mode, # is the wild card, and it 
can save a great deal of effort. 
Languages such as French, 
Spanish and Italian use slightly 
different words depending on 
whether the word is masculine 
or femine, although both would 
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translate the same into English. 
Thus LOS and LAS in Spanish 
would both translate into THE in 
English using the # symbol: 
(space)L#S(space)/(space) 
THE(space)/999. 

Many words have more than 
one meaning, and only when 
viewed in context is it possible 
to select the correct one. These 
words can be saved until the 
more obvious words have been 
replaced. There are two ways to 
deal with these multiple mean- 
ing words. 

The first is a blunderbuss ap- 
proach, throwing in some bell- 
ringing markers to get your at- 
tention as you later review the 
text: (space)FOREIGN WORD 
(space)/(space)$$$ENGLISH 



WORD$$$(space). 

As you come across $$$ 
WORD$$$ in the text, you can 
decide if you have selected the 
proper meaning, and the mark- 
ers can be removed once you are 
satisfied. 

The second method is to use 
the search function without a re- 
placement. Pencil will put the 
cursor at the beginning of the 
line containing the string, and 
you may then type in the appro- 
priate translation. Merely type C 
to continue the search to the 
next string location. 

After all the major words have 
been changed, it's time to deal 
with those tricky word elements. 

In English, the first or last few 
letters often modify a word and 



give its true meaning. For exam- 
ple, the UN in UNable. Dealing 
with prefixes and suffixes is just 
a matter of spacing: 



(space)FOREIGN PREFIX /(space) 

ENGLISH PREFIX/999 
FOREIGN SUFFIX(space)/ ENGLISH SUFFIX 

(space) / 999 
FOREIGN ELEMENT/ ENGLISH ELEMENT/ 
999 



Translating parts of words 
can be hazardous, since the ac- 
tual meaning isn't always the 
same as the literal translation. 
That's why word elements 
should be changed only after 
whole words have been trans- 
lated. 

There will probably be a few 
words for which you have been 



unable to find an English coun- 
terpart in your $1.95 paperback 
dictionary. By thistime, you may 
have translated enough so that 
the meaning of these mystery 
words is made clear by the con- 
text. If not, insert * as a marker. 
You can use the string search to 
locate the tough words so that 
they can be listed for a later trip 
to the library's foreign language 
dictionary. 

Page 1 of your first translat- 
ing effort is a task, since you'll 
have to look up every word. As 
your mini-dictionary is built up, 
you'll discover how easy it is to 
use the TRS-80 and Electric Pen- 
cil to change confounding 
foreign letters and articles into 
English. ■ 



VISA/MC Order Line Only (except Mich.) 800253 4358 ext.100 

FINDISK-II The ultimate in automatic disk indexing with exclusive features Model-I $20.00 

AUTOMATICALLY create INDEX of programs or data from all your disks, print disk LABELS, print 
alphabetized MASTERLIST, do fast SEARCH, add DESCRIPTIONS. Also automatically: detect DATA or 
SYS disks, PURGE disks and index of old files, and UPDATE from revised disks only. 
SOLAR-I The critical calculations for passive design. . . Model-I $30.00 Model-II $45.00 

INPUT: any latitude, orientation, slope, roof overhang, storage type, building loss, OUTPUT: solar angles, 
shading, time, heat gain/loss, percent solar, fuel use. Print report by hour, month, year in presentation format. 
RIA-II Complex Real Estate Investment Analysis Model-I $30.00 Model-II $45.00 

Analysis for investor or homeowner using Elwood method. INPUT: Project costs, loan and tax data, 
expenses, depreciation rate. OUTPUT: Cap rate/value, mortgage payments, before/after tax cash flows, return 
(IRR), profit/gain from sale over any time series. 
DEPRECIATE-I Manage a list of depreciable items Model! $15.00 Model-II $20.00 

Tracks long list of depreciable items with varying purchase dates, depreciation rates, or per cent business use. 
Update any time. Print tax form. Used by many CPAs. 
STRUCT-I Graphic design of steel/wood beams and moment transfer Model-I $ 15.00 

INPUT: span/cantilever, uniform/point loads, beam material. OUTPUT: with screen graphics beam moment 
& shear diagrams. Print job report with diagram, stresses, and required beam sizes. 

Min 32K. On disk (Mod-I one drive order tape). Add $1.00 postage (Mich, add 4% tax) VISA/MC 
••88 DOCUMAN SOFTWARE BOX 387-A KALAMAZOO, Ml 49005 (616) 344-0805 



Program 
Watch! 



Converted any 80 programs lately? 
80 is looking for updates to its pub- 
lished programs. Have you converted a 
program to run on a Model I? Model 
II? Model III? The Color Computer or 
the Pocket Computer? 
Do your neighbors a favor and 
make yourself some extra 

CASH 



Send them to the office in care of: 
Jake Commander 
80 Pine Street Peterborough. INH 



03458 



RSGLM0D1 - $50 - Enhancements to Radio Shack General Ledger 1.1 Special feature - Copy ONLY ONE disk for back-up security. 

Print features - General ledger with beginning balances; current month activity; ending balances ** Classified balance sheet. 

Print Options - Omit current column on income statement ** Omit account numbers on balance sheet and/or income statement. 

Input Display - Previous document name, number of entries/total entries permitted for current session, and dollar total of current 
document are always visible. These are nice anytime and just plain excellent after you return from an interruption. 

Input Options - Set up an "automatic" account number. Touch ENTER to use. Change to another account anytime ** Re-do a document 
after it is balanced (Before starting next document) ** Change document name and entry date for each entry. One possibility 
is a check register with only one cash entry ** Automatic credits to liability, capital, and income accounts ** Others. 

Supplied as program lines which must be MERGED into the original programs, or, send a disk copy of the original programs and 
the modifications will be installed on your diskette — no additional charge. 

DDIR81 - $23 - Organize your disks. Creates program lines of directory contents using TRSDOS or NEWDOS. 32K/one drive. 

CAT - $12 - You have to plan ahead to beat the computer or a friend. X's and O's advance with each human move. Fast graphics. 

FTDEM080 - $12 - Displays and EXECUTES the NEWDOS/80 Appendix A programs and keyboard entries. A real time saver. 32K. 

Disk only. Deduct $3 each for 2nd-3rd-4th program. Add 4% for MasterCard /Visa 
NEWDOS/80 - $135 DOUBLER - $215 DOUBLE-ZAP II - $47 DOUBLE-ZAP (2.1)- $37 BASE 2 MODEL 850 - $760 w/Cable 

MODEL III DISK DRIVES FIRST - $760 SECOND - $350 EXTERNAL - $430 

^445 AT-80 3827 Dismount Dallas, Texas 75211 (214)339-0498 
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16K MEMORY ONLY $25.95! 

For TRS-80 Keyboard or Expansion 
interface. KEYBOARD requires jumpers: 
$2.00 Extra. These are 200 ns tested RAM 
for the TRS-80, APPLE or EXIDY. 



DISK DRIVES for the TRS-80 OR PMC-80: 



All of our drives come complete with power supply 
and chassis. They may be used with existing Radio 
Shack drives on the same cable! 40 track drives 
store 102K bytes single density, and 175K double 
density. 80 track drives have 175K single density 
and 345K double density! All drives guaranteed 90 
days, one year on power supply. 

40 track MPI drives $319.95 

40 track TEAC drives $315.95 

40 track TANDON drives $319.95 

80 track MPI drives $449.95 

80 track TEAC drives $429.95 

2 drive cable $ 25.95 

4 drive cable $ 39.95 

NEWDOS 80 OPERATING SYSTEM $139.95 

NEWDOS 80 PATCH Patches NEWDOS 80 to 
work with single or double density and the 

doubler $ 59.95 

PERCOM'S DOUBLER for double density 

operation! $219.95 

The DOUBLER works with the TRS or PMC 
expansion interfaces to allow you to use yourdrives 
in double density! You may still operate your drives 
as single density also! Comes with DBLDOS 
operating system which allows you to transfer 
single density files to doubleand vice versa! GREAT 
BUY! 

DISKETTES: VERBATIM DATALIFE! BOX OF TEN 
SOFT OR HARD SECTORED 5%' $32.50 

WE HAVE DRIVES AND CONTROLLERS FOR THE 
MODEL III. CALL FOR PRICES!!! 





MODEMS AND TELE- 
COMMUNICATIONS 



LYNX Telecommunication 
system for the TRS-80 and 

PMC-80 $279.95 

Includes terminal software and 
connections for instant 
hookup! Can be connected to the TRS-80 or PMC- 
80 with or without an expansion interface' 

LEXICOM MODEM 300 BAUD Requires 

RS-232 $169.95 

THE SOURCE: Hook-up to the 

"SOURCE" $ 99 95 

ATARICONNECTJON: Modem for 400/800, 

complete with software! $249.00 

APPLECONNECTION: Modem for 

APPLE II $279.95 



PMC-80, 16K LEVEL II 
COMPUTER $739.00 

The PMC-80 is a work alike to 
the TRS-80 mod I computer! 
Comes with Microsoft's BASIC 
in ROM. Built in cassette. 
12" green screen video monitor. 
Expandable to 48K. 
Compatible to All TRS-80 MOD I Programs. 

PMC 80 without monitor $595.00 

RF— MOD for PMC to TV hookup $39.95 

PMC-80 EXPANDER 100 SYSTEM $644.00 

INCLUDES: 32K memory, S-100 bus, RS-232 
interface, Parallel printer driver, Disk controller. 
Fully compatable with TRSDOS. NEWDOS, VTOS, 
and all other TRS-80 Mod I disk software! 

APPLE II COMPUTERS 16K $1195.00 

APPLE II COMPUTERS 48K $1299.00 

ATARI 400 $ 495.95 

ATARI 800 COMPUTER $ 795.00 

ZENITH Z-89 48K, 1 DISK ALL IN ONE 
COMPUTER $2495.00 



VIDEO MONITORS 



LEEDEX 100 12' B/W MONITOR $139.95 

SANYO 9' B/W MONITOR $199.95 



PRINTERS 



OKIDATA MICROLINE 80 All OKI'S have TRS-80 

Graphics!!! $ 499.00 

Comes with friction and pin feed, upper/lowercase, 

Graphics. 

EPSON MX-80 PRINTER: Word Processing Quality 

Printout with Graphics! Call 

NEC SPINWRITER with Tractor Feed . . $2995.00 

DIABLO MODEL 1630 with Tractor $2695.00 

UNIVERSAL PRINTER STANDS $ 94.50 

Other Accessories: 

SUP-R-MOD RF Modulator for APPLE . . . $29.95 
ARCHBOLD SPEED-UP MOD FOR TRS MOD I. 

Allows up to 300% increase! $45.00 

MICROSOFT BASIC Decoded and other 

mysteries $29.95 

TRS-80 DISK and other mysteries $18.95 

ZBASIC BASIC COMPILER for MOD I and MOD III 
TRS-80 and PMC-80 Increase basic program 
speeds by up to 200 times!!!!! 
Tape $79.95 Disk $89.95 

Both For Only $99.95 Specify MOD I or MOD III 

WE HAVE HUNDREDS OF PROGRAMS FOR 

ALL THE POPULAR COMPUTERS! 

CALL FOR OUR FREE CATALOG 



Personal and Business Checks take 3 weeks to clear. For fastest delivery use Certified Checks, Money Orders. Credit Card, or COD. 

We will try and beat any published price on any system! Call! 
SIMUTEK CALL TOLL FREE TO ORDER 

COMPUTER PRODUCTS l\ (800) 528-1 1 49 

4877 E Speedway Blvd Please mention this magazine when ordering 

Tucson. Arizona 85712 ARIZONA RESIDENTS ADD 6% SALES TAX. 

(602) 323-9391 Technical Questions WE TAKE V)SA MASTER CARD. 



IS A TRADEMARK OF RADIO SHACK A TANDY CORP 



APPLE IS A TRADEMARK OF APPLE INC 



sSee List of Advertisers on page 306 
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BUSINESS 



A cassette based, double entry accounting system for the small business. 



The General Ledger 



ft L. Conhaim 
15506 Kiamichi Rd #7 
Apple Valley, CA 92307 



One of the most practical ap- 
plications of the micro- 
computer is the keeping of the 
financial records for small to 
medium-size businesses. 

Among important records is 
the genera! ledger for which 
many packaged programs are 
available. 

Unfortunately for the owner of 
a very small business, they are 
often too complex. Also, there is 
often a sizeable investment re- 
quired for the hardware and 
software. Just keeping such 
small programs up to date may 
also require too much time. The 
small business, therefore, 
needs only those records which 
pare it down to provide tax infor- 
mation; secure loans; make 
mandatory reports, and provide 
the owners with information 
about the status of the busi- 
ness. Anything more is overkill. 

Many general ledger pro- 
grams available require disk 
memory, at least 32K of RAM, 
and a considerable amount of 
time to keep the records current. 
In addition, there are single en- 
try bookkeeping systems that 
become unusable when the 
business grows large enough to 
need double entry accounting. 



No. Account Name 


Primary 


Secondary 








Variable 


Variable 


Location 


Type 


1 Petty Cash 


A1 




1580 


A 


2 Cash in Bank 


A2 




1600 


A 


3 Savings Account 


A3 




1620 


A 


4 Parts Inventory 


A4 




1640 


A 


5 Merchandise Inventory 


A5 




1660 


A 


6 Accounts Receivable 


A6 




1680 


A 


7 Furniture & Fixtures 


A7 




1700 


A 


8 Service Equipment 


A8 




1720 


A 


9 Trucks & Autos 


A9 




1740 


A 


10 Building 


B1 




1760 


A 


11 Keogh Account 


B2 




1780 


A 


12 Miscellaneous Fixed Assets 


B3 




1800 


A 


13 FICA Withheld 


L1 




1820 


L 


14 Employees' Taxes Withheld 


L2 




1840 


L 


15 Accounts Payable 


L3 




1860 


L 


16 Notes Payable 


L4 




1880 


L 


17 Sales Tax Due 


L5 




1900 


L 


18 Mortgage Payable 


L6 




1920 


L 


19 Keogh, Employees' Contrib. 


L7 




1940 


L 


20 Jenkins Capital 


L8 




1960 


L 


21 Sales, Service Labor 


11 


J1 


1980 




22 Sales, Service Parts 


12 


J2 


2000 




23 Sales, Merchandise 


13 


J3 


2020 




24 Interest Earned 


14 


J4 


2040 




25 Miscellaneous Income 


15 


J5 


2060 




26 Purchases, Parts 


E1 


K1 


2080 


E 


27 Purchases, Merchandise 


E2 


K2 


2100 


E 


28 Cost of Goods Sold 


E3 


K3 


2120 


E 


29 Payroll 


E4 


K4 


2140 


E 


30 FICA Expense 


E5 


K5 


2160 


E 


31 Auto & Truck Expense 


E6 


K6 


2180 


E 


32 Bad Debts 


E7 


K7 


2200 


E 


33 Telephone Expense 


E8 


K8 


2220 


E 


34 Postage 


E9 


K9 


2240 


E 


35 Interest Paid 


F1 


M1 


2260 


E 


36 Dues & Subscriptions 


F2 


M2 


2280 


E 


37 Insurance 


F3 


M3 


2300 


E 


38 Depreciation 


F4 


M4 


2320 


E 


39 Maintenance, Building 


F5 


M5 


2340 


E 


40 Utilities.Gas, Elec.Water 


F6 


M6 


2360 


E 


41 Office Expense 


F7 


M7 


2380 


E 


42 Service Equipment Maintenance 


F8 


M8 


2400 


E 


43 Personal Property Tax 


F9 


M9 


2420 


E 


44 Workmen's Compensation 


G1 


N1 


2440 


E 


45 Shipping Expense 


G2 


N2 


2460 


E 


46 Service Expense 


G3 


N3 


2480 


E 


47 Miscellaneous Expense 


G4 


N4 


2500 


E 


48 Jenkins Withdrawals 


H1 


N5 


2520 




49 Profit & Loss 


H2 


N6 


2540 




Sample 1. Jenkins List of Accounts 





The system described can 
provide the small business with 
a practical double entry general 
ledger (TRS-80, Level II, 16K sys- 
tem). It uses the standard cas- 
sette and a peripheral printer. 
Data is kept on cassette so 
there is no practical limit to the 
number of entries but a limit to 
the number of accounts, 65 be- 
ing practical. 

A common sense rule is— if 
you only use an account occa- 
sionally, you probably don't 
need it. Extras may be lumped 
into a miscellaneous category. 

The most common form of 
bookkeeping is called double 
entry. For every transaction, two 
or more entries are made. These 
entries are either positive or 
debit, or negative credit. For ev- 
ery transaction, the debits must 
equal the credits. Assets and ex- 
penses normally have debit 
balances, while liability, in- 
come, and capital accounts 
have credit balances. Accounts 
are identified by name and 
number. 

Daily entries are normally 
made in a journal, of which there 
are several styles, while account 
totals are accumulated in a led- 
ger. The general ledger is the 
principal source of information. 
Subsidiary ledgers can handle 
accounts receivable and ac- 
counts payable. These divide to- 
tals from the general ledger into 
customer and supplier names 
and amounts. 
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In a double entry system, the 
amounts between debits and 
credits must correspond and 
balance; if they don't, a mistake 
has been made. Checking the 
balance is called trial balancing 
in which all ledger accounts are 
added, the debits in one column 
and the credits in another. The 
totals of each must then match. 
The columns may be added to- 
gether algebraically, looking for 
zero balance. 

The advantage of double en- 
try is its ability to point out er- 
rors quickly, and distribute 
amounts to accounts efficient- 
ly. Of course, since everything is 
written twice, the chance for 
making errors is there, but it 
may be minimized with a well- 
designed computer system. 

The system here has been de- 
veloping for three years, and 
was begun on a programmable 
TI-59 calculator and later 
adapted to the TRS-80. This pro- 
vided more account memory 
with greater flexibility. 

It has been through the 
throws of correction, adapta- 
tion, modification and expan- 
sion to the point where it satis- 
fies several types of businesses. 
Two features include: a manual- 
ly-maintained general ledger 
which can be updated whenever 
convenient. The journal serves 
as a check register, since many 
businesses receive income and 
make dispersals by check. 

The system may be used with 
cash or accrual bookkeeping. 
The accrual method is a neces- 
sity for income tax purposes, 
where merchandise inventories 
are maintained. In this method, 
sales are considered made 
when the merchandise or ser- 
vice is delivered, and purchases 
or expenses are accrued when 
the purchased items are re- 
ceived. 

The Journal 

The journal in this system has 
a number of columns. There are 
three for cash— debit, credit and 
balance. The balance is main- 
tained manually as a check on 
the computer balance's accura- 
cy. It is one of many checks to 
insure that information is cor- 
rectly entered. Most of the other 
columns are single-columns in 
which distributions of transac- 



tions are made. The accounts 
most often used have individual 
columns. A three-column catch- 
all, labeled account number, 
debit and credit takes care of 
less often used accounts. 

To make inputting to the com- 
puter faster, a worksheet is 
used. It takes its data from the 
journal and lists the account 
numbers and amounts for deb- 
its, and account numbers and 
amounts for credits for each 
transaction. The sheet may 
seem unnecessary and increase 
the error possibilities, but work- 
ing at the computer with a large, 
clumsy journal is indeed dif- 
ficult. The use of a worksheet 
avoids errors. 
The Computer 

The computer part of the sys- 
tem uses three cassettes: one 
contains the program; a second, 
contains monthly data (and is 
used over and over, month after 
month), a third, accumulates 
year-to-date data 

The operator enters the date, 
and indicates as to whether the 
data is monthly or accumulated 
annually. A menu then appears 
on the screen providing a choice 
of the following: making entries, 
running a trial balance, printing 
a profit and loss statement or a 
balance sheet, and performing 
the end of month procedure. The 
last choice provides a means of 
adding the monthly data to the 
annual accumulated data. 
When the end of the month's 
procedure is completed, the 
monthly data tape retains only 
the assets and liabilities ac- 
counts. Expense and income ac- 
counts have been zeroed so the 
tape is ready for the new month. 
The year-to-date tape retains all 
data for accounts cumulatively 
for the year. 

The Workings of the System 

The workings of this system 
are best illustrated by us creat- 
ing a hypothetical business and 
setting up accounts for it. We'll 
call our business the Jenkins 
Service Company. It is a single 
proprietor establishment owned 
by George Jenkins. The busi- 
ness of the company is repairing 
and selling TV and radio sets. 
The repair business is the larg- 
est part of the company. Jenkins 
employs three people and owns 



two service trucks. There are 49 
accounts in this business, but 
these are not necessarily typical 
of other businesses, nor are the 
amounts used. 

The account breakdown in as 
follows: six current asset ac- 
counts, six fixed asset ac- 
counts, five current liability 
accounts, two fixed liability ac- 
counts, one capital (net worth) 
account, five income accounts, 
one cost of goods sold account, 
two purchases accounts and 21 
expense accounts. 

Any business may use the 
program— changing only the 
names of the accounts, along 
with making a few minor pro- 
gram changes, if needed. As we 
shall see, accounts may be add- 
ed, for a total of perhaps 65. 

A Closer Look 

The program is fully interac- 
tive with the operator, providing 
instructions throughout for 
making entries and securing 
various reports. The program 
takes about 10K. (Note in line 30 
we are using double precision 
for the various dollar amounts.) 
Early in the development of this 
program, we discovered that a 
combination of double preci- 
sion and two decimal place print 
using statements got rid of 



those one-cent errors plaguing 
bookkeeping programs. Lines 
60 and 70 define the print using 
formats. 

When the entries portion of 
the program are selected, the 
screen asks for account num- 
ber, amount, and whether the 
amount is a credit. The operator 
presses ENTER if the amount is 
a debit, but must enter C if it is a 
credit amount. If the amount is 
the same as a previous entry 
just hit ENTER in answer to the 
enter amount input. The pre- 
vious entry is saved by the pro- 
gram in lines 260 through 290. 
This avoids possible errors 
which could be caused by re-en- 
try of the same amount. In many 
transactions, there is only one 
debit and one credit account 
and the amount is the same for 
each. 

Entries are printed out, and in 
case of an entry error, traced 
easily. Line 330 accumulates 
algebraically both debit and 
credit amounts. The result of 
this addition is printed as an en- 
try balance after all entries are 
made. This is done in line 410 
where we seek a 0.00 answer. 
This technique shows entry er- 
rors immediately, and you don't 
have to wait for a trail balance. 

During the entry of data, ON 





A/C(M PETTY CASH 


10639 




A/C#2CASH1NBANK 


5,965.20 




A/C #3 SAVINGS ACCOUNT 


2,715.42 




A/C IMPARTS INVENTORY 


1,694.85 




A/C #5 MERCHANDISE INVENTORY 


3,040.40 




A/C #6 ACCOUNTS RECEIVABLE 


848.69 




A/C #7 FURN. & FIXTURES, NET 


2,493.70 




A/C #8 SERVICE EQUIPMENT 


5,830.21 




A/C K9TRUCKS AND AUTOS 


8,424.98 




A/C #10 BUILDING 


113,443.51 




A/C#11 KEOGH RETIREMENT 


7,432.00 




A/C #12 MISC. FIXED ASSETS 


111.22 




A/C #13 FICA WITHHELD 


-84.84 




A/C #14 EMPLOYEETAXES WITHHELD 


- 449.25 




A/C #15 ACCOUNTS PAYABLE 


-521.10 




A/C #16 NOTES PAYABLE 


-1,500.00 




A/C#17SALESTAXDUE 


-338.14 




A/C #18 MORTGAGE PAYABLE 


-89,988.73 




A/C #19 KEOGH, EMPLOYEES CONTRIB. 


-3,918.68 




A/C #20 JENKINS CAPITAL 


- 55,307.83 




A/C #21 SALES SERVICE LABOR 


-7,591.43 




A/C #22 SALES SERVICE PARTS 


- 2,483.50 




A/C #23 SALES, MERCHANDISE 


-4,118.73 




A/C #24 INTEREST EARNED 


-34.59 




A/C #25MISCL INCOME 


-10.56 




A/C #26 PURCHASES, PARTS 


1,533.28 




A/C #27 PURCHASES, MERCHANDISE 


2.101.01 




A/C #29 PAYROLL 


3,026.13 




A/C #30 FICA EXPENSE 


69.77 




A/C #31 AUTO S TRUCK EXPENSE 


142.33 




A/C #32 BAD DEBTS 


91.18 




A/C #33 TELEPHONE EXPENSE 


56.25 




A/C #34 POSTAGE 


15.00 




A/C #35 INTEREST PAID 


529.50 




A/C #36 DUES & SUBSCRIPTIONS 


17.00 




A/C #37 INSURANCE 


201.00 




A/C #39 MAINTENANCE, BUILDING 


76.34 




A/C #40 UTILITIES, GAS, ELEC, WATER 


207.60 




A/C #41 OFFICE EXPENSE 


31.04 




A/C #42 SERV. EQUIP. MAINTENANCE 


18.95 




A/C#45SHIPPING EXPENSE 


1.45 




A/C #46 SERVICE EXPENSE 


51.07 




A/C #47 MISCL. EXPENSE 


4.14 




A/C«48JENKINS WITHDRAWALS 


2,300.00 




A/C #49 PROFIT AND LOSS 


3,765.77 




DEBIT/CREDIT DIFFERENCE = 


$0.00 


Sample 2. 


Typical Trial Balance from Ann 


ual Cumulative Data 
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ASSETS 




CURRENT 




AC#1 PETTY CASH 


106.39 


AC#2CASHINBANK 


5,965.20 


AC #3 SAVINGS ACCOUNT 


2,715.«2 


AC #4 PARTS INVENTORY 


1,694.35 


AC #5 MERCHANDISE INVENTORY 


3,040.40 


AC #6 ACCOUNTS RECEIVABLE 


846.69 


TOTAL CURRENT 


$14,372.95 


FIXED 




AC #7 FURN. 4 FIXTURES, NET 


2,493.70 


AC#8SERVICE EQUIPMENT 


5,830.21 


A/C #9 TRUCKS AND AUTOS 


8,424.98 


AC#10BUILDING 


113,443.51 


A/C #1 1 KEOQH RETIREMENT 


7,432.00 


AC t12MISC. FIXED ASSETS 


111.22 


TOTAL FIXED 


$137,735.62 


TOTAL ASSETS 


$152,108.57 


LIABILITIES 




CURRENT 




A/C #13 FICA WITHHELD 


-84.84 


AIC #14 EMPLOYEE TAXES WITHHELD 


-449.25 


A/C #15ACCOUNTS PAYABLE 


-521.10 


AC #18 NOTES PAYABLE 


-1,500.00 


AC#17SALESTAXDUE 


-338.14 


TOTAL CURRENT 


-$2,893.33 


FIXED & NET WORTH 




AC #18 MORTGAGE PAYABLE 


- 89.988.73 


AC #19 KEOGH, EMPLOYEES CONTRIB. 


-3,918.68 


AC #20JENKINS CAPITAL 


- 55,307.83 


TOTAL FIXED & NET WORTH 


-$149,215.24 


TOTAL LIABILITIES & NET WORTH - $152,108.57 


Sample 3. Typical Balance Sheet 



GOSUB commands are used. 
Because of the number of ac- 
counts, you can't get all GOSUB 
line numbers on one line. Lines 
350 through 390 show how two 
lines are used. 

The Trial Balance 

The trial balance prints out all 
accounts one after the other, 
with their positive (debit bal- 
ances) or negative (credit bal- 
ances). Accounts not used have 
zero balances and are not 
printed. The amounts are accu- 
mulated algebraically in line 
580, and the results printed in 
lines 600 and 610. Here again we 
are looking for a zero balance. 
The recording of updated infor- 
mation is accomplished in lines 
620 through 650. The CHR$(12) 
PRINT command in line 660 ad- 
vances the paper in the author's 
printer to the next sheet. The 
trial balance may be used with 
monthly or year-to-date data, 
and is customarily used with 
both. 

The profit and loss statement 
for year-to-date data is the con- 
ventional income and expense 
statement. The cost of goods 
sold, in the Jenkins report, 
prints out with a zero balance. 
This is a reminder to the reader 
that the account has not been 
journalized. It is normally fig- 
ured from opening and closing 
inventories and purchases. In a 
small business, the taking of in- 
ventory is usually done once a 



year. It can be estimated, how- 
ever it wasn't done in the Jen- 
kins P & L This assumes pur- 
chases account for all merchan- 
dising and parts sold. 

Note that net profit is figured 
by deducting expenses and 
withdrawals from the gross 
profit amount. For income tax 
purposes, withdrawals cannot 
be called an expense and the 
profit amount calculated in lines 
880 and 890 as income is used. 
Since income accounts have a 
credit balance, the sign is 
changed in line 880 by dividing 
by - 1 to get a correct profit cal- 
culation. 

There is another way to calcu- 
late net profit. This method is 
used in the end-of-month proce- 
dure as a check on the accuracy 
of the amount in the P & L state- 
ment. 

Balance Sheet 

The balance sheet is the most 
important indicator of the health 
of a business. The method used 
here is a straightforward pre- 
sentation of assets, liabilities 
and net worth. All the dollar 
amounts are taken from their re- 
spective accounts; none is cal- 
culated in preparing the state- 
ment. Assets should balance li- 
abilities and net worth. In addi- 
tion, not all businesses require 
fixed and current assets or lia- 
bilities, but they are provided in 
this case to show programming 
possibilities. 



End of Month Procedure 

At the end of each month or 
accounting period, it is neces- 
sary to add the month's figures 
to the year-to-date or annual 
totals. Since the year-to-date 
and monthly accounts use the 
same variables, however, we 
can't read the monthly tape 
without destroying the annual 
one. To stop this, move the data 
from the annual to other vari- 
able storage registers. Provide 
variables for expense and in- 
come accounts. Then add the 
prime variables from the month- 
ly tape to the annual to give an 
updated total for the year. Note: 
we do not need this technique 
for assets and liabilities, since 
these are correct each month. 
We merely destroy outdated an- 
nual information in the process. 

Change overs are incorpo- 
rated in I ines 1 360 to 1 560. There 



are a couple of items that may 
need clarifying, however. There 
is another way to determine 
profit and loss. It is the differ- 
ence between Jenkins' capital 
account for the previous period 
and the capital account for the 
present. First compute the capi- 
tal for the present by adding as- 
set and liability accounts alge- 
braically (line 1460). The net re- 
mainder is the amount of capi- 
tal. Using the current capital 
amount, profit and loss is calcu- 
lated in line 1470. The capital ac- 
count is corrected in line 1480. 
We can now write the updated 
annual tape. 

To upgrade the monthly tape 
for use in the next month, we 
want to preserve only the asset 
and liability accounts, and zero 
the income and expense ac- 
counts. The zeroing is done in 
line 1520, after which the month- 
ly tape is written, ready for the 



INCOME 




AC #21 SALES SERVICE LABOR 


-7,591.43 


AC #22 SALES SERVICE PARTS 


- 2,483.50 


AC #23 SALES. MERCHANDISE 


-4,118.73 


AIC #24 INTEREST EARNED 


-3459 


AC #25 MISCL. INCOME 


-10.58 


TOTAL INCOME 


-$14,238.81 


COST OF GOODS SOLD 


$0.00 


GROSS PROFIT 


-$14,238.81 


EXPENSES 




AC #26 PURCHASES, PARTS 


1,533.28 


AC #27 PURCHASES, MERCHANDISE 


2,101.01 


AC #29 PAYROLL 


3,026.13 


AC #30 FICA EXPENSE 


69.77 


AC #31 AUTO 4 TRUCK EXPENSE 


142.33 


AC #32 BAD DEBTS 


91.18 


AC #33 TELEPHONE EXPENSE 


56.25 


AC #34 POSTAGE 


15.00 


AC#35INTERESTPAID 


529.50 


AC #36 DUES 4 SUBSCRIPTIONS 


17.00 


AC#37INSURANCE 


201.00 


A/C #39 MAINTENANCE, BUILDING 


76.34 


A/C #40 UTILITIES, GAS, ELEC, WATER 


207.60 


AC #41 OFFICE EXPENSE 


31.04 


A/C #42 SERV. EQUIP. MAINTENANCE 


18.95 


AC #45SHIPPING EXPENSE 


1.45 


A/C #46 SERVICE EXPENSE 


51.07 


A/C (M7MISCL EXPENSE 


4.14 


TOTAL EXPENSES 


$8,173.04 


PROFIT 


$6,065.77 


LESS JENKINS WITHDRAWALS 


$2,300.00 


NET PROFIT 


$3,765.77 


Sample 4. Typical Profit 


and Loss Statement 


AC #1 PETTY CASH 


108.39 


AC#2CASHINBANK 


5,965.20 


AC #3 SAVINGS ACCOUNT 


2,715.42 


AC #4 PARTS INVENTORY 


1,694.85 


AC #5 MERCHANDISE INVENTORY 


3,040.40 


AC #6 ACCOUNTS RECEIVABLE 


848.69 


AC #7 FURN. 4 FIXTURES, NET 


2,493.70 


AC #8 SERVICE EQUIPMENT 


5,830.21 


AC #9 TRUCKS AND AUTOS 


8,424.98 


AC #10 BUILDING 


113,443.51 


AC #11 KEOGH RETIREMENT 


7,432.00 


AC #12 MISC. FIXED ASSETS 


111.22 


AC #13 FICA WITHHELD 


-84.84 


AC #14EMPLOYEETAXES WITHHELD 


-449.25 


AC#15ACCOUNTS PAYABLE 


-521.10 


A/C #16 NOTES PAYABLE 


- 1,500.00 


AC#17SALESTAXDUE 


-338.14 


AC #18 MORTGAGE PAYABLE 


-89,968.73 


AC #19 KEOGH, EMPLOYEES CONTRIB. 


-3,918.68 


AC #20 JENKINS CAPITAL 


-55,307.83 


DEBITCREDIT DIFFERENCE = - $0.00 


Sample 5. Monthly Data After Clearing 
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"If you missed us at the shows. . . If you can't visit our store. . . 




Madison Square Garden, NY, March 1981 



NAME THAT SONG 

FROM SOFTWARE INNOVATIONS 

A wonderful new sound program for the 32K Disk 
TRS-80. The game is played similar to the popular 

TV show and consists of 3 separate rounds in 
which 2 players try to name popular tunes. Fast 
action and non-stop graphics make it great for 
parties or just playing around. NAME THAT 
SONG comes with over 100 tunes, and you can 
add your own using the provided utility. More 
song files will be available soon at no charge. 

19.95 



SUPERHOST 

NOW FOR THE MODEL III 

32K Disk System 

SUPERHOST by Clayton Schneider turns your 
Model III into a true host computer allowing others 
to access your computer from any type terminal. 
(Auto answer modem required.) A PROGRAMS 
UNLIMITED EXCLUSIVE!— Runs on NEWDOS, 
NEWDOS-80, TRSDOS— Data-in and Data-out 
translation tables— Correctly advances the date 
on all DOS's — Masks out undesirable characters 
(i.e. BREAK)— Remembers the date and time after 
reboot — Lowercase driver option — Optional pass- 
word entry— Automatic disconnect upon loss of 
carrier— Sets Nulls and Line feeds— Plus, many 
more outstanding features! 

39.95 



How to order: 

CALL TOLL-FREE: 
(800) 645-6038 (except NY*) 

COMPUTER TO COMPUTER: 
Call (516) 334-3134 

WRITE: Dept. 581 M, 
Box 265, Jericho, NY 11753 



'NY State residents 
call (516) 997-8668. 
(If placing an order, 
please call collect.) 




says Richard Taylor, 

noted software author and 

President, Programs Unlimited 




■:i4L;; 



The programs and peripherals 
listed here are among more than 
600 that our store and our show 
customers can try out before 
they buy. 

So they have to be good. That 
simple fact, coupled with our no- 
holds-barred guarantee, gives you 
every reason to order from us 
with confidence. 



Programs Unlimited Retail Center, Jericho, NY 



SUPERHOST— 32K Disk l/MI $29.95 

DIRINDEX— 32K Disk 19.95 

ZAP— 32K Disk 29.95 

THE WIZARD— 32K Disk l/lll 19.95 

LDOS— 32K Disk 139.00 

MISSILE ATTACK-16K Mod l/lll .. 14.95 

ORCHESTRA-80— 16K Mod I 79.95 

ORCHESTRA-85— 16k Mod I CALL 

Z80A SPEED-UP Mod I 199.95 

ZORK— 32K Disk 39.95 

DECATHLON 24.95 

SMART III CASSETTE TERMINAL 

PROGRAM Mod III— 16K 99.95 

AUTO ANSWER/DIAL CONNECTION 

(Direct Connect Modem) 279.95 

TRS-OPERA— 16K Mod l/lll 9.95 

CHALLENGE— 16K Mod l/lll 9.95 

MESSAGE-80— 48K 2 Disk l/lll ... 149.95 

PERCOM DOUBLER 219.00 

DOUBLER ZAP II NEWDOS-80 . . . 49.95 
DOUBLE ZAP II NEWDOS 2.1 .... 39.95 
QUICK FIX Disk Utility— 32K Disk . 39.95 

QS LIGHT PEN 19.95 

SARGON 1 1— 32K Disk 34.95 

BASKETBALL— 1 6K LI I 1 5.95 

EPSON MX80B CALL 

GREEN SCREEN Mod I 19.95 

GREEN SCREEN Mod I l/l 1 1 24.95 

WABASH DOUBLE DENSITY 

DISKETTES (10) 34.95 

MICROSOFT BASIC DECODED . . 25.00 

Ask for our FREE catalog 



FULL 
GUARANTEE 

If you are for any reason dissatisfied 
with any purchase that you make 
from PROGRAMS UNLIMITED, re- 
turn the merchandise in its original 
condition and its original packaging 
within 14 days for a prompt, full 
refund. 



the software source 1 



Visit our new Retail Center at 20 Jericho Tpke.. Jericho. 
Long Island. NY. Call (51 6) 333-2266 lor hours & directions. 



PROGRAMS UNLIMITED 



next month's entries. Although 
the end of the period procedure 
is a little complex, the operator 
sees only the read and write re- 
quests in lines 1370, 1420, 1500 
and 1540. 

If you stay in the account 
breakdown listed, you should 
have no trouble adapting the 
program to your needs. If the 
Jenkins case uses more ac- 
counts than you, just show zero 
balances for the unused ac- 
counts. 

The account numbering sys- 
tem shown here is required for 
the several ON GOSUB func- 
tions. You could use your own 
account numbers followed by 
dash numbers. Entries would be 



made by dash number. 

Adding more expense ac- 
counts is fairly simple. Suppose, 
for example, that you also need 
an advertising account. Try this: 



Delete 2560 

2560 G5 = G5 + C5; If G5 = Return 

2580 LPRINT "A/C #50 Advertising Ex- 

pense";Tab(40);Using A$; G5:Return 

2600 END 

390 (Add by Editing ',2560' after 2500) 

550 (Add by Editing ',2560' After 2500) 

570 (Change '49' to '50') 

580 (Add ' + G5' at end of line) 

840 (Add',2560' at end of line) 

860 (Add ' + G5' at end of line) 

3030 (Add ',G5' at end of line) 

4030 (Add ',G5' at end of line) 

This system, as exemplified 
by the Jenkins example has 
proved to be a practical time 
saver. ■ 



10 


JENKINS SERVICE COMPANY GENERAL 


LEDGER 






20 DEFSTR 


Q 










30 


3EFDBL 


A-P 










40 


:ls 












60 


LET AS 


= "###,###.##" 










70 


LET D$ 


= "$$###,###.##" 










80 


:i = 












90 


INPUT " 


LOAD DATA TAPE. PRESS ENTER", -CI 






100 


IF CI 


= GOSUB 3000 ELSE GOTO 


30 








110 


INPUT 


"ENTER DATE AS MO/DA/YR" ; 


3 








120 


INPUT 


"IF MONTHLY DATA ENTER 1. 


IF ANNUAL 


CUMULATIV 




E DATA ENTER 2 n ;C2 










130 


CLS 












140 


PRINT 


TAB (20); "MENU": PRINT 










150 


PRINT 


"1 FOR ENTRIES" 










160 


PRINT 


"2 FOR TRIAL BALANCE" 










17 


PRINT 


"3 FOR PROFIT AND LOSS STATEMENT" 






180 


PRINT 


"4 FOR BALANCE SHEET" 










190 


PRINT 


"5 FOR END OF MONTH PROCEDURE" 


PRINT 




200 


INPUT 


"ENTER SELECTION NUMBER"; 


C3 








210 


IF C3 


<> 1 GOTO 430 










220 


LPRINT 


"JENKINS SERVICE ENTRIES 


AS OF ";Q 






230 


IF C2 


= 1 LPRINT "MONTHLY DATA" 


ELSE 


LPRINT "ANNUAL 




CUMULATIVE DATA" 










240 


INPUT 


"ENTER ACCOUNT NUMBER. IF 


NONE 


ENTER 0";C4 


250 


IF C4 


= GOTO 410 










260 


INPUT 


"ENTER AMOUNT. IF SAME PRESS ENTER" 


C5 




270 


IF C5 


= GOTO 290 










280 


C6 = C5: GOTO 300 










290 


C5 = C6 










300 


C$ = " 


0" 










310 


INPUT 


"ENTER C IF CREDIT AMOUNT 


";C$ 




' ■ ',■ 




320 


IF C$ 


= "C" THEN C5 = -C5 










330 


C7 = C7 + C5 










340 


LPRINT 


TAB(30) "#"; C4; TAB(40) 


C5 








350 


IF C4 


>45 GOTO 380 










360 


ON C4 


GOSUB 1580,1600,1620,1640 


,1660 


1680 


1700 


1720 




,17 40 


,17 60,17 80,1800,1820,1840 


,1860 


1880 


1900 


1920 




,1940 


,1960,1980,2000,2020,2040 


,2060 


2080 


2100 


2120 




,2140 


,216 0,2180,2200,2220,2240 


226 


2280 


2300 


2320 




,2340 


,236 0,23 80,2400,2420,2440 


,2460 








370 


GOTO 400 










380 


P9 = C4-45 










390 


ON P9 


GOSUB 2480 ,2500 ,2520 ,2540 








400 


C5 = 


:GOTO 240 










410 


CLS:LPRINT :LPRINT "ENTRY BALANCE" ; USING A$;C7 




420 


INPUT 


"FOR THE MENU, TYPE 1";X1 


IF XI = 1 


GOTO 


130 


430 


IF C3 


= 2 GOTO 470 










440 


IF C3 


= 3 GOTO 6 80 










450 


IF C3 


= 4 GOTO 940 










460 


IF C3 


= 5 GOTO 1360 










470 


LPRINT 


"JENKINS SERVICE AS OF " 


Q 








480 


IF C2 


= 1 LPRINT "MONTHLY DATA" 


ELSE 


LPRINT "ANNUAL 




CUMULATIVE DATA" 










490 


LPRINT 


TAB(4) STRINGS (15, "-"); "TRIAL 


BALANCE ";STR IN 




G$(15 


,"-") :LPRINT 










500 


C8 = 1 












510 


IF C8 


>45 GOTO 540 










520 


ON C8 


GOSUB 1580,1600,1620,1640 


1660 


1680 


1700 


17 20 




,17 40 


,1760,17 80,1800,1820,1840 


1860 


1880 


1900 


1920 




,1940 


,1960,1980,2000,2020,2040 


2060 


2080 


2100 


2120 




,2140 


,2160,2180,2200,2220,2240 


2260 


2280 


2300 


2320 




,2340 


,2360,23 80,2400,2420,2440 


2460 








530 


GOTO 560 










540 


C9 = C8-45 











550 ON C9 GOSUB 2480 ,2500 ,2520 ,2540 

560 C8 = C8 + 1 

570 IF C8>49 GOTO 580 ELSE 510 

580 X3 = A1+A2+A3+A4+A5+A6+A7+A8+A9+B1+B2+B3+L1+L2+L3+L 

4+L5+L6+L7+L8+I1+I2+I3+I4+I5+E1+E2+E3+E4+E5+E6+E7+ 

E8+E9+F1+F2+F3+F4+F5+F6+F7+F8+F9+G1+G2+G3+G4+H1+H2 
590 LPRINT 

600 LPRINT TAB (15) "DEBIT/CREDIT DIFFERENCE = "; 
610 LPRINT USING D$;X3 
620 D2 = 0: INPUT "TO RECORD TRIAL BALANCE PREPARE DATA 

CASSETTE FOR RECORDING AND PRESS ENTER" ;D2 
630 IF D2<> GOTO 130 

640 PRINT "TRIAL BALANCE BEING RECORDED" 
650 GOSUB 4000 
660 LPRINT CHR$(12) 
670 GOTO 130 

680 LPRINT "JENKINS SERVICE CO. AS OF ";Q 
690 IF C2 = 1 LPRINT "MONTHLY DATA" ELSE LPRINT "ANNUAL 

CUMULATIVE DATA" 
700 LPRINT TAB(10) STRINGS (15 ,"-"); "PROFIT & LOSS STATE 

MENT"; STRINGS (15,"-") 
710 LPRINT 
720 LPRINT "INCOME" 
730 GOSUB 1980 
740 GOSUB 2000 
750 GOSUB 2020 
760 GOSUB 2040 
770 GOSUB 2060 
780 D3 = I1+I2+I3+I4+I5 

790 LPRINT TAB(10)"TOTAL INCOME" ;TAB( 50) USING D$;D3 
800 LPRINT TAB(10)"COST OF GOODS SOLD" ;TAB(50) USING DS; 

E3 
810 LPRINT TAB(20) "GROSS PROFIT" ;TAB(50)USING D$;D3-E3 
820 LPRINT: LPRINT "EXPENSES" 
830 D4=l 
840 ON D4 GOSUB 2080 ,2100 ,2140 ,2160 ,2180 ,2200 ,222 

,2240 ,2260 ,2280 ,2300 ,2320 ,2340 ,2360 ,2380 

,2400 ,2420 ,2440 ,2460 ,2480 ,2500 
850 D4 = D4+1:IF D4<>22 GOTO 840 
860 D5=E1+E2+E4+E5+E6+E7+E8+E9+F1+F2+F3+F4+F5+F6+F7+F8+ 

F9+G1+G2+G3+G4 
870 LPRINT TAB(10) "TOTAL EXPENSES" ; TAB (50) USING D$;D5 
880 D6 = ((D3-E3)/-l)-D5 
890 LPRINT TAB(10)"PROFIT";TAB(50)USING D$;D6 

900 LPRINT TAB(10)"LESS JENKINS WITHDRAWALS" ; TAB (50) US I 

NG D$;H1 
910 LPRINT: LPRINT TAB (10) "NET PROFIT" ; TAB (50) USING D$;D 

6-H1 
920 LPRINT CHR$(12) 
930 INPUT "FOR THE MENU, TYPE 1";X2: IF X2 = 1 GOTO 130 

940 LPRINT "JENKINS SERVICE CO. AS OF ";Q 

950 IF C2 = 1 LPRINT "MONTHLY DATA" ELSE LPRINT "ANNUAL 

CUMULATIVE DATA" 
960 LPRINT TAB(10) STRINGS (15 ,"-"); "BALANCE SHEET";STRI 

NG$(15,"-") :LPRINT 
970 LPRINT "ASSETS" 
980 LPRINT TAB (10) "CURRENT" 
990 GOSUB 1580 
1000 GOSUB 1600 
1010 GOSUB 1620 
1020 GOSUB 1640 
1030 GOSUB 1660 
1040 GOSUB 1680 
1050 D7 = A1+A2+A3+A4+A5+A6 

1060 LPRINT TAB(10) "TOTAL CURRENT" ; TAB (50) USING D$;D7 
1070 LPRINT:LPRINT TAB(10) "FIXED" 
1080 GOSUB 1700 
1090 GOSUB 1720 
1100 GOSUB 17 40 
1110 GOSUB 1760 
1120 GOSUB 17 80 
1130 GOSUB 1800 
1140 D8 =A7+A8+A9+B1+B2+B3 
1150 LPRINT TAB(10) "TOTAL FIXED";TAB(50)USING D$;D8:LPR 

INT 
1160 LPRINT TAB(20) "TOTAL ASSETS" ;TAB(50) USING D$;D7+D8 

: LPRINT 
1170 LPRINT "LIABILITIES" 
1180 LPRINT TAB (10) "CURRENT" 
1190 GOSUB 1820 
1200 GOSUB 1840 
1210 GOSUB 1860 
1220 GOSUB 1880 
1230 GOSUB 1900 
1240 D9 = L1+L2+L3+L4+L5 

1250 LPRINT TAB(10) "TOTAL CURRENT" ;TAB(50) USING D$;D9:L 
1260 LPRINT TAB(10) "FIXED & NET WORTH" 
1270 GOSUB 1920 
1280 GOSUB 1940 
1290 GOSUB 1960 
1300 Pi = L6+L7+L8 
1310 LPRINT TAB(10) "TOTAL FIXED & NET WORTH" ;TAB( 50 ) US 

ING D$;P1 
1320 LPRINT:LPRINT TAB(20) "TOTAL LIABILITIES & NET WOR 

TH";TAB(50)USING D$;D9+P1 

Program continues 
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EAST COAST 

OMEGA Sales Co. 

12 Meeting St. 

Cumberland, Rl 02864 

1-800-556-7586 

1-401-722-1027 




WEST COAST 

OMEGA Sales Co. 

3353 Old ConejoRd. #102 

Newbury Park, CA 91320 

1-800-235-3581 

1-805-499-3678 



mCtAL OF THB MONTH// 




EPSON MX-80 PRINTER $479 

INTERFACES: IEEE $55. TRS«80 $35, 
APPLE INTERFACE + CABLE $90. 
RS«232$70 



ATARI 800 
$759 




DIABLO 630! 

$1995 

Tractor option $200 




u-l ium 
STARWRITER 25 



$1595 




NEC MONITOR 
$219 




OKIDATA MICROLINE-83 

OKIDATA MICROLINE-80 

APPLE II PLUS48K 

APPLE DISK w/ 3.3 DOS Controller 

APPLE DISK w/o Controller 

BASE II PRINTER 

HAZELTINE1420 

NORTHSTAR HORIZON II 32K QD 

ATARI 400 8K 

ATARI 400 16K 

RADIO SHACK 16K Level II Model 3 

RADIO SHACK 64K Model 2 

ANADEX DP-9500 

TELEVIDE0 912C 

TELEVIDEO920C 

TELEVIDEO950 

ATARI 825 PRINTER 

ATARI 850 INTERFACE 

ATARI 810 DISK 

(Call for price list of ATARI Software) 



$949 
$469 

$1150 
$545 
$435 
$649 
$799 

$2975 
$399 
$499 
$875 

$3449 

$1249 
$669 
$729 

$1049 
$729 
$169 
$449 



• NO SURCHARGE FOR CREDIT CARDS 

• WE ACCEPT C.O.D.'S 

• ALL EQUIPMENT FACTORY FRESH W/MANUFACTURER'S WARRANTY 

• STOCK SHIPMENTS USUALLY SAME DAY OR NEXT DAY 

• NO HIDDEN CHARGES - WE LIVE BY OUR PUBLISHED PRICES 



a 



3 EAST COAST / WEST COAST 



MEGA SALES COMPANY 



1^389 



sSee List of Advertisers on page 306 
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12 Issues For Only $12.00 

All The TRS-80®* News You Need 
When You Need It 

Now In Our 3rd Year Of 
Continuous Publication 

One Of The Oldest 

TRS-80®* Newsletters 

Still In Circulation 

— Featuring — 

. Applications . Product Reviews . 

. Machine Language Tutorials . 

. And Much More . 

Call: 312-782-9750 

Write For Free Sample: 

Chicatrug News - 117 
c/o EBG & Associates 
203 N. Wabash Av 
Chicago, IL 60601 

' TRS-8CT" is a Trademark of Tandy Corp 



===DR1VES=«DRIVES=«DRIVES«*DRIVEB=«DRIVES«*DRIVES«« 
::::: NPI DISK DRIVES FOR 'S-80 ON SALE nt:: 



TRACKS 


MODEL 


RAH 


COMPLETE 


XSSHS 


SS3XSS 


XS2SBS3 


3S3SSSS3 


40 


<B-5i> 


$245.00 


$309.00 


40/40 


(B-52) 


$375.00 


$445.00 


80 


(B-91) 


$360.00 


$429.00 


80/80 


CB-92) 


$515.00 


$579.00 



t I I SPECIAL ! I * 
H0DEL 3 INTERNAL DRIVES INSTALLATION KIT $435.00 
SELECT ANY OF THE RAN DRIVES ABOVE, AND PRIME 
HI8H SPEED HEHORY SETS AT $55.00 PER 16k TO ADD 
ALL THE P0NER THIS 6REAT LITTLE COMPUTER NEEDS!! 

COMPLETE YOUR DRIVE PACKA8E FOR LEVEL II NITH AN 

ULTRAD0S DISK 0PERAT1N6 SYSTEM THE HOST P0NERFUL 

ONE YOU CAN 0MN AT ONLY $59.95 OR $94.95 FOR THE 

'FULL BLOWN" SYSTEM NITH ALL UTILITIES. 

CHECK ON OUR LIBERAL HARDNARE TRADE IN ALLOWANCE 



ONE STOP 
COMPUTER 
SHOPPING 



LEVEL IV PRODUCTS INC 
32461 SCHOOLCRAFT RD. 
LIVONIA, MICHIGAN 48150 
313-525-6200 (in statt) 
800-521-3305 (toll free) 




DEALER INQUIRIES INVITED, ASK FOR WHOLESALE DEPT 



1330 
1340 

1350 
1360 
1370 
1380 
1390 



1400 
1410 
1420 

1430 
1440 



1450 
1460 

1470 
1480 
1490 
1500 

1510 
1520 



LPRINT CHR$(12) 

INPUT "FOR ANOTHER CHOICE TYPE 1";X:IF X = 1 GOTO 

'END OF PERIOD PROCEDURE STARTS HERE 

P2 = 

INPUT "READ ANNUAL TAPE. WHEN READY PRESS ENTER" ;P2 

IF P2 = GOSUB 3000 ELSE 1360 

J1=I1:J2=I2:J3=I3:J4=I4:J5=I5:K1=E1:K2=E2:K3=E3:K4 

=E4:K5=E5:K6=E6:K7=E7:K8=E8:K9=E9:M1=F1:M2=F2:M3=F 

3 : M4=F4 :M5=F5 :M6=F6 :M7=F7 :M8=F8 :M9=F9 :N1=G1 : N2=G2 : 

N3=G3 :N4=G4 :N5=H1 :N6=H2 

P3 = L8/-1 

P4 = 

INPUT "READ MONTHLY TAPE. WHEN READY PRESS ENTER"; 

P4 

IF P4 =0 GOSUB 3000 ELSE 1410 

I1=I1+J1:I2=I2+J2:I3=I3+J3:I4=I4+J4:I5=I5+J5:E1=E1 

+K1 : E2=E2+K2 : E3=E3+K3 : E4=E4+K4 : E5=E5+K5 : E6=E6+K6 : E 

7=E7+K7:E8=E8+K8:E9=E9+K9:F1=F1+M1:F2=F2+M2:F3=F3+ 

M3 : F4=F4+M4 : F5=F5+M5 : F6=F6+M6 : F7=F7+M7 : F8=F8+M8 : F9 

=F9+M9:G1=G1+N1:G2=G2+N2:G3=G3+N3 

G4=G4+N4 : H1=H1+N5 : H2=H2+N6 

P5=A1+A2+A3+A4+A5+A6+A7+A8+A9+B1+B2+B3+L1+L2+L3+L4 

+L5+L6+L7 

H2 = N6+(L8-(P5/-1)) 

L8=P5/-1 

P7 = 

INPUT"WRITE ANNUAL TAPE. WHEN READY PRESS ENTER" ;P 

7 

IF P7O0 GOTO 1490 ELSE GOSUB 4000 



11 = 
E6 = 
F7 = 



12 = 6 

E7=G 
F8=G 



1530 
1540 

1550 
1560 
1570 
1580 
1590 

1600 
1610 

1620 
1630 

1640 
1650 

1660 
1670 

1680 

16 90 

1700 
1710 

1720 
1730 

17 40 
17 50 

1760 
1770 

17 80 
17 90 

1800 
1810 

1820 
1830 

1840 
1850 

1860 
1870 

1880 
1890 

1900 
1910 

1920 
1930 

1940 
1950 

1960 



13=0:14=0:15= 

E8=0:E9=0:F1=0 

F9=0:G1=0:G2=0 



E1=0:E2=0 
F2=0:F3=0 
G3=0:G4=0 



E3=0 
F4 = 
H1=0 



E4=0:E5=G 
F5=0:F6=C 
H2=0 



INPUT "WRITE MONTHLY TAPE. WHEN READY PRESS ENTER"; 
P8 

IF P8O0 GOTO 1530 ELSE GOSUB 4000 
GOTO 130 

'ACCOUNT I.D. STARTS HERE 
A1=A1+C5:IF Al = RETURN 

-LPRINT "A/C #1 PETTY CASH" ;TAB (40 ) USING A$;A1:RETU 
RN 

A2=A2+C5:IF A2 = RETURN 

LPRINT "A/C #2 CASH IN BANK" ;TAB(40 ) USINGA$ ;A2:RET 
URN 

A3=A3+C5:IF A3 = RETURN 

LPRINT "A/C #3 SAVINGS ACCOUNT" ;TAB(40 ) USING A$;A3 
: RETURN 

A4=A4+C5:IF A4 = RETURN 

LPRINT "A/C #4 PARTS INVENTORY "; TAB ( 40 ) USING A$;A4 
: RETURN 

A5=A5+C5: IF A5 = RETURN 
LPRINT "A/C #5 MERCHANDISE INVENTORY" ; TAB (40 ) USING 

A$;A5: RETURN 
A6=A6+C5:IF A6 = RETURN 

LPRINT "A/C #6 ACCOUNTS RECEIVABLE" ; TAB (40 ) USING A 
$;A6: RETURN 

A7=A7+C5:IF A7 = RETURN. 

LPRINT "A/C #7 FURN. & FIXTURES , NET" ;TAB (40 ) USING 

A$;A7: RETURN 

A8=A8+C5: IF A8 = RETURN 

LPRINT "A/C #8 SERVICE EQUIPMENT" ;TAB(40 ) USING A$; 

A8: RETURN 

A9=A9+C5: IF A9 = RETURN 

LPRINT "A/C #9 TRUCKS AND AUTOS" ; TAB (40 ) USING A$;A 

9: RETURN 

B1=B1+C5:IF Bl = RETURN 

LPRINT "A/C #10 BUILDING" ;TAB (40) USING A$;B1:RETUR 

N 

B2=B2+C5:IF B2 = RETURN 

LPRINT "A/C #11 KEOGH RETIREMENT" ; TAB (40 ) USING A$; 

B2: RETURN 

B3=B3+C5: IF B3 = RETURN 

LPRINT "A/C #12 MISC. FIXED ASSETS" ; TAB (40 ) USING A 

$;B3: RETURN 

L1=L1+C5: IF LI = RETURN 

LPRINT "A/C #13 FICA WITHHELD" ;TAB ( 40 ) USING A$;L1: 

RETURN 

L2=L2+C5: IF L2 = RETURN 

LPRINT "A/C #14 EMPLOYEE TAXES WITHHELD" ; TAB (40 } US 

ING A$;L2: RETURN 

L3=L3+C5: IF L3 = RETURN 

LPRINT "A/C #15 ACCOUNTS PAYABLE" ;TAB(40 ) USING A$; 

L3: RETURN 

L4=L4+C5: IF L4 = RETURN 

LPRINT "A/C #16 NOTES PAYABLE" ; TAB (40 ) USING A$;L4: 

RETURN 

L5=L5+C5: IF L5 = RETURN 

LPRINT "A/C #17 SALES TAX DUE" ; TAB (40 ) USING A$;L5: 

RETURN 

L6=L6+C5: IF L6 = RETURN 

LPRINT "A/C #18 MORTGAGE PAYABLE" ;TAB (40 ) USING A$ ; 

L6: RETURN 

L7=L7+C5: IF L7 = RETURN 

LPRINT "A/C #19 KEOGH, EMPLOYEES CONTRIB. " ;TAB( 40 )U 

SING A$;L7: RETURN 

L8=L8+C5: IF L8 = RETURN 



Program continues 
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1970 

1980 
1990 

2000 
2010 

2020 
2030 

2040 
2050 

2060 
2070 

2080 
2090 

2100 
2110 

2120 
2130 

2140 
2150 
2160 
2170 

2180 
2190 

2200 
2210 

2220 
2230 

2240 
2250 
2260 
2270 

2280 
2290 

2300 
2310 

2320 
2330 

2340 
2350 

2360 
2370 

2380 
2390 

2400 
2410 

2420 
2430 

2440 
2450 

2460 
2470 

2480 
2490 

2500 
2510 

2520 
2530 

2540 
2550 

2560 
3000 
3010 
3020 
3030 
3040 
4000 
4010 
4020 
4030 
4040 



LPRINT "A/C #20 JENKINS CAPITAL" ;TAB(40 )USING A$;L 

8: RETURN 

I1=I1+C5:IF II = RETURN 

LPRINT "A/C #21 SALES SERVICE LABOR" ; TAB (40 ) USING 

A$; II: RETURN 

I2=I2+C5: IF 12 = RETURN 

LPRINT "A/C #22 SALES SERVICE PARTS" ; TAB (40 ) USING 

A$; 12: RETURN 

I3=I3+C5:IF 13 = RETURN 

LPRINT "A/C #23 SALES, MERCHANDISE" ; TAB (40) USING A 

$; 13: RETURN 

I4=I4+C5:IF 14 = RETURN 

LPRINT "A/C #24 INTEREST EARNED" ;TAB(40 )USING A$;I 

4: RETURN 

I5=I5+C5: IF 15 = RETURN 

LPRINT "A/C #25 MISCL. INCOME" ;TAB(40 )USING A$;I5: 

RETURN 

E1=E1+C5: IF El = RETURN 

LPRINT "A/C #26 PURCHASES , PARTS "; TAB ( 40 ) USING A$;E 

1 : RETURN 

E2=E2+C5:IF E2 = RETURN 

LPRINT "A/C #27 PURCHASES, MERCHANDISE" ; TAB (40) US I 

NG A$;E2: RETURN 

E3=E3+C5: IF E3 = RETURN 

LPRINT "A/C #28 COST OF GOODS SOLD" ; TAB (40 ) USING A 

$;E3: RETURN 

E4=E4+C5: IF E4 = RETURN 

LPRINT "A/C #29 PAYROLL" ;TAB (40 ) USING A$;E4 :RETURN 

E5=E5+C5: IF E5 = RETURN 

LPRINT "A/C #30 FICA EXPENSE" ; TAB ( 40 ) USING A$;E5:R 

ETURN 

E6=E6+C5: IF E6 = RETURN 

LPRINT "A/C #31 AUTO & TRUCK EXPENSE" ; TAB (40 ) USING 

A$;E6: RETURN 
E7=E7+C5: IF E7 = RETURN 

LPRINT "A/C #33 TELEPHONE EXPENSE" ; TAB (40) USING A$ 
RN 

E8=E8+C5: IF E8 = RETURN 

LPRINT "A/C #33 TELEPHONE EXPENSE "?TAB( 40 )USING A$ 
;E8: RETURN 

E9=E9+C5: IF E9 = RETURN 

LPRINT "A/C #34 POSTAGE" ; TAB (40) USING A$ ;E9 :RETURN 
F1=F1+C5: IF Fl = RETURN 

LPRINT "A/C #35 INTEREST PAID" ;TAB ( 40 ) USING A$;F1: 
RETURN 

F2=F2+C5: IF F2 = RETURN 
LPRINT "A/C #36 DUES & SUBSCRIPTIONS" ; TAB ( 40 ) USING 

A$;F2: RETURN 
F3=F3+C5: IF F3 = RETURN 

LPRINT "A/C #37 INSURANCE" ; TAB (40) USING A$;F3:RETU 
RN 

F4=F4+C5: IF F4 = RETURN 

LPRINT "A/C #38 DEPRECIATION" ; TAB (40 ) USING A$;F4:R 
ETURN 

F5=F5+C5: IF F5 = RETURN 
LPRINT "A/C #39 MAINTENANCE, BU ILDING "; TAB (40 ) USING 

A$;F5: RETURN 
F6=F6+C5: IF F6 = RETURN 

LPRINT "A/C #40 UTILITIES, GAS, ELEC. , WATER" ; TAB (40 ) 
USING A$;F6: RETURN 
F7=F7+C5: IF F7 = RETURN 

LPRINT "A/C #41 OFFICE EXPENSE" ; TAB (40 ) USING A$;F7 
: RETURN 

F8=F8+C5: IF F8 = RETURN 

LPRINT "A/C #42 SERV. EQUIP. MAINTENANCE" ; TAB (40 ) U 
SING A$;F8:RETURN 
F9=F9+C5: IF F9 = RETURN 

LPRINT "A/C #43 PERSONAL PROPERTY TAX" ;TAB(40 ) USI 
NG A$;F9: RETURN 
G1=G1+C5: IF Gl = RETURN 



LPRINT "A/C #44 
NG A$;G1: RETURN 
G2=G2+C5: IF G2 
LPRINT "A/C #45 
G2: RETURN 
G3=G3+C5: IF G3 
LPRINT "A/C #46 
3: RETURN 
G4=G4+C5: IF G4 
LPRINT "A/C #47 
4 : RETURN 
H1=H1+C5: IF HI 
LPRINT "A/C #48 
A$; HI: RETURN 
H2=H2+C5: IF H2 
LPRINT "A/C #49 
2: RETURN 
END 

INPUT #-l,Al,A2 
INPUT #-l,Ll,L2 
INPUT #-l,El,E2 
INPUT #-l,F4,F5 
RETURN 

PRINT #-l,Al,A2 
PRINT #-l,Ll,L2 
PRINT #-l,El,E2 
PRINT #-l,F4,F5 
RETURN 



WORKMEN ' S COMPENSATION" ; TAB ( 40 ) US I 

= RETURN 

SHIPPING EXPENSE"; TAB (40) USING A$ ; 

= RETURN 

SERVICE EXPENSE", -TAB (40) USING A$;G 

= RETURN 

MISCL. EXPENSE"; TAB(40)USING A$;G 

= RETURN 

JENKINS WITHDRAWALS";TAB(40)USING 

= RETURN 

PROFIT AND LOSS"; TAB (40) USING A$;H 



A3,A4,A5,A6,A7,A8,A9,B1,B2,B3 
L3,L4,L5,L6,L7,L8,I1,I2,I3,I4,I5 
E3,E4,E5,E6,E7,E8,E9,F1,F2,F3 
F6 , F7 , F 8 , F 9 , Gl , G2 , G3 , G4 , HI , H2 

A3,A4,A5,A6,A7,A8,A9,B1,B2,B3 
L3,L4,L5,L6,L7,L8,I1,I2,I3,I4,I5 
E3,E4,E5,E6,E7,E8,E9,F1,F2,F3 
F6,F7,F8,F9,G1,G2,G3,G4,H1,H2 



^4 closer look^ac—:. . . 

Qcunttrs 

'tst earhj education Se asort of amusement Vfni 
wii t then (k better afrie to discover tke miurallient! 

. . . P1ATO ... 

V/vtv/iVw^ is a sound-and-graphics game designed to 
encourage a natural progression of stages in a child's 
developing concept of number. 

Once COUNTERS is running, adult supervision is not 
necessary. However, learning value is greatly 
enhanced when an adult drops in with occasional 
comments, and the program is designed for three-way 
interaction between cMftd, COUNTERS, and adult. 

There are three modes of play, which may be selected 
by child or adult at the beginning of play, 

A\jO0x O^W^ ^ ne com P u ^ er draws a number of 
geometric figures (i.e., squares, triangles, or 
diamonds. 1 Each figure is accompanied by a musical 
identifier phrase. The child counts the total number 
and presses the appropriate key. A correct answer 
receives an exploding star on the screen and a happy 
tune. The child receives a 1ft point score (which is 
useful in teaching to count by tens), and another 
cheery tune. CONCEPT EXPERIENCE: Number as 
quantifier. Number as enumerator of similar items. 

sMOdCTWO The computer draws a variety of 
different figures, and the child again counts the 
total. An adult, (or, preferably, an older child) can 
point out that the total number is made up of groups 
of several different kinds. In later stages, MODE 
TWO is an endless source of elementary addition 
problems. CONCEPT EXPERIENCE: Counting by 
groups of similar objects. Concept of a "total". Basic 
process of addition. 

stylOuS/HfCC The computer again draws a variety of 
t-igures, but requests the child to count only one kind. 
He'she must discriminate accurately between shapes, 
a necessary precondition to reading. CONCEPT 
EXPERIENCE: Shape discrimination. Basic process of 
subtraction. 

C 'OUHtCKS can be played by sound alone, as each 
game-event is signaled by a musical phrase. With 
practice, vision-impaired children can play all modes. 
The Manual contains a section HINTS ON TEACHING 
WITH COUNTERS, to assist parents and teachers. 
Teachers will find COUNTERS a flexible tool which 
can easily be incorporated into any style of teaching. 

Color Computer orTR$-8o, }rwcULl(l6K) tyss+Jtiffj^ 
VISA 4 MASTIR.CHAR&E Cefet- Co^uWTWtwQrrWyGor)*. 



Tfo Changer crmvrrh 
MOurTV tv e\er-cf\Am(na color 
§ mlodM/Cclor computer cnb$ 

Ouif.kVfavi fhr pmonai 
p-ojecb/ms-ro modeli {i(>k) 



S- prouh &J. contains, 

^twoartwhics fmimc 

jproqnmsfor u<ma cfu Idren 

Tte-40 f Cotor CotrWHttr 

^nucassettt H+.9J+*i.&sffy>£in§ 
avtiUdle now from: 

.206-463-3707^ *^j^/ 
Box 7-43, Vashon Island, Wa.9Sojo 

^ntcLUaence for small comjwters 



sSee List of Advertisers on page 306 
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REVIEW 



Shake hands with this $59.95 alternative to an E/L 



LNW Research 
Expansion Board 



Ian Hodgson 
296 Malcolm Circle 
Dorval, Quebec, 
Canada H9S 1T7 



While the Level II, 16K 
TRS-80 is a lot of machine 
for not much money, it becomes 
evident that for serious work 
more memory and disk drives 
are essential. 

The first equipment I investi- 
gated was the RS expansion in- 
terface. At $837 for the interface 
with 32K RAM, $160 for the 
RS232 board, and $45 for the 
communications software it 
looked like a grand total of 
$1042 just to connect the drives 
and add a bit of memory. There 
had to be a cheaper way. 

I then saw the ad from LNW 
Research for their TRS-80 ex- 
pansion board. I ordered one for 
$59.95: It is a 9 1 / 2 x 11% inch, 
double-sided, soldermasked, 
glass epoxy board. 

The board has provisions for: 



• up to 32K extra memory 

• floppy disk controller 

• parallel printer port 

• dual cassette port 

• real time clock 

• RS232 port (can also be 
used for 20mA loop) 

• onboard power supply 

• bus for expansion 



All features are optional. The 
manual includes itemized parts, 
lists for each option, enabling 
you to build only the sections 
you want. 

I chose everything except the 
power supply and the dual cas- 
sette port, so the first job was to 
look for the necessary parts. Al- 
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Photo 1. The expansion board installed behind the TRS-80. At left, 
from front to back, are the disk drive connector, parallel printer port, 
and keyboard connector. At rear, left, is the expansion connector, and 
at right, the RS232 connector. The two 40-pin chips are the U ART and 
the disk controller. The vacant area in front is for the power supply. 



though the manual does men- 
tion parts substitutions, they 
don't cover the UART, a Western 
Digital TR1602B. I have used 
both an AY-5-1013A and an AY-3- 
1014A with fine results. One 
word of warning: If you haven't 
bought any 74LS IC's lately, be 
prepared for a shock when you 
see the current prices. I kept the 
bill to less than $280, including 
memory, so the entire expan- 
sion was built for about $370 
Canadian— a lot less than $1042 
for the RS interface. 

The RS232 port is well provid- 
ed with handshaking, and Re- 
quest to Send (RTS), Clear to 
Send (CTS), Data Terminal 
Ready (DTR), Data Set Ready 
(DSR), Carrier Detect (CD), and 
Ring Indicator (Rl) are all imple- 
mented, as well as provision for 
generating a true BREAK signal. 
In addition, the serial data ap- 
pears at one bit (IN OE8H, bit 1) 
and the port may be wired for 
20mA operation if desired. Al- 
though the TRS-80 may be set 
up either as a data terminal 
(DTE) or data communication 
device (DCE), the handshaking 
lines are fully implemented only 
for DTE. There is no provision for 
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NATIONAL TRS-80' 

MICROCOMPUTER SHOW 



New York Statler 

Exposition Hall 

(opposite Pennsylvania Railroad Station 

and Madison Square Garden) 

7th Ave. & 33rd Street 



May 21, 22, 23, 1981 
Thursday Noon to 6 PM 

Friday 11 AM to 6 PM 
Saturday 10 AM to 4 PM 



For the Businessman, Educator, Professional and Hobbyist. 

• Commercial Exhibits and Sales of Microcomputers, 
Software, Books, Magazines, Supplies, 

Parts, Printers, Etc. 

• Free Seminars 

• Famous Name Guest Speakers. 

• User Groups. 

(Mod I, II, III, Color and Pocket Computers). 

• Door Prizes - A TRS-80® Computer will be given 
away free each day, plus other prizes. 

Avoid standing on line - Send in your registration today! 

Radio Shack and TRS-80 are registered trademarks of Tandy Corporation, which has 
no relationship to Kengore Corporation or The National TRS-80 Microcomputer Snow. 



REGISTRATION FOR TRS-80® MICROCOMPUTER SHOW 

May 21 , 22, 23, 1981 New York Statler Hotel 

Name Title 

Company Name 



Address 



City, State, Zip 



Please send 



registrations at $10.00 each. 



Send To: 

Kengore Corporation, Dept. 80 ^230 

3001 Route 27 

Franklin Park, N.J. 08823 



(Registration Badge will be sent to you on May 1st. 

Co-sponsored By 



m 



microcomputing 



(Be sure to enclose 
check or money order. 



the UART to generate interrupts, 
nor is the interrupt line easily 
available to those who have 
time-critical applications. Inter- 
rupts are definitely usable on 
the TRS-80 (from your own 
machine language programs), 
since the vectors are stored in 
RAM. You must be careful, 
though, because many of the 
ROM routines depend on the in- 
terrupt vectors, and you may 
have to write your own keyboard 
and screen drivers depending 
on what interrupt mode you use. 

Although a power supply is 
built in on the board (and it is 
quite a sophisticated one, too, 
using an additional Radio Shack 
TRS-80 transformer) I used one I 
already had, to save money and 
because my RS store refused to 
order the transformer for me. 
The completed board works 
with an external supply. It re- 
quires + 5 volts at about 1A, 
+ 12V at a few mA, and -12V 
also at a few mA. 

The manual is well written, 
and details are given for con- 
struction, configuring the sys- 



tem and theory of operation. 
Data sheets for the UART and 
the disk controller (1771) are in- 
cluded with software for using 
the 80 as a terminal. Software is 
also provided to drive a serial 
printer through the RS232 port, 
or through the parallel port, with 
certain board modifications. I 
only found one error in the chart 
of UART control addresses; the 
bits for Request to Send and for 
Data Terminal Ready are inter- 
changed. 

Construction went fairly well, 
but there were a few bugs that 
took several hours to find. 
Amazingly, these were all traced 
to a batch of new 100 ohm resis- 
tors, of which three were open. 

One feature I didn't like was 
the vertically-mounted terminat- 
ing resistors at the expansion 
bus. 

Finally, everything worked, in- 
cluding the TRSDOS 2.3 mem- 
ory test (TEST1) and stresstest 
(TEST2). 

Words of Warning 

A few words of warning are in 



order. The bus expansion pro- 
vided should be used with due 
caution. It is a simple, unbuf- 
fered extension of the TRS bus, 
and any expansion will require 
more buffering with high imped- 
ance input buffers (not 7400 
IC's). Remove the terminating 
resistors from the LNW board 
and terminate at the end of your 
expansion, as well. There are 
two edge connectors on the 
board. Either should work with 
the keyboard, and the other may 
be used as the bus expansion. 
However, when I used the con- 
nector next to the terminating 
resistors for the keyboard, I had 
unusual problems like random 
rebooting, and incorrect opera- 
tion of a few programs. Using 
the other connector cured the 
problem. I also suggest that you 
use the shortest cable possible. 
Incidentally, the cable does not 
come with the board, but you 
can make one with 40-conductor 
ribbon cable. The identical con- 
nectors on each end are 3M 
#3464-000. They are installed us- 
ing a small vice. 



Using disks, machine lan- 
guage programs can be patched 
to correct errors, and reassem-, 
bled with ease. Data files are 
child's play, and of course, long 
programs load in seconds. My 
system has a KIM-1 converting 
from parallel to serial on the 
parallel printer port allowing me 
to use the KIM to format my out- 
put (paging, line length, mar- 
gins, etc.). What is more, it has 
4K of memory available to act as 
a buffer. When I LLIST a pro- 
gram less than 4K long, the 
READY returns in about one 
second! 

I am using a Terminet 300 
printer (upper and lowercase) at 
300 baud. I use the RS232 port 
for packet radio transmission 
and reception at 2400 baud. 

To summarize: the LNW Re- 
search board is well laid out and 
inexpensive. The documenta- 
tion is satisfactory. With disk 
drives, 48K of memory and Elec- 
tric Pencil with lowercase modi- 
fication, it makes a good ma- 
chine.! 



ADD DISK DRIVES T0Y0UR 
MODEL III AND MODEL I 



5 s>0"y 




Fully compatible with Radio Shack's operating system 
TRSDOS. 

• One, two, three, four drive configurations. 

• 134K to over 1 Meg of storage 

• 40 track and 80 track available 

• 90 day warranty, 100% parts and labor 

• Extended warranty available 

Complete upgrade includes one mini-disk drive, power 
supply, controller, and mounting hardware. IMMEDIATE 
DELIVERY. 

PRICE 

Complete one drive kit $599. 

Additional internal drive 265. 399. 

External drive 299. 499. 

80 track drives (inc. patch) add 195. ea. N/A 
16K memory 

(required to use drives) 49. 119. 

Model III 32K w/VR Data 
two drive assembly 1812. 2380. 



RADIO 
SHACK 




SAVINGS 

29% 
34% 
32% 



59% 



24% 



H$299 



* 



RS232 Adapter Board 



75. 



99. 



25% 



To order call toll free (800) 345-8102, or (215) 461-5300 in PA. 



We've broken through the three hundred dollar barrier. 

• Fully compatible with TRSDOS'" 

• Fully compatible with RS Drives 

• Easy plug-in installation 

• Rigid extender board 

• 90 day warranty — 100% parts and labor 

• Extended warranty available — $45/year 

• Choice of Tandon or MPI drives 

• Includes power supply, enclosure, single sided — 
40tk drive and EXTENDER BOARD 

1sided80tk-$419 2sided40tk- $419 
2 si ded 80tk - $549 

MONTHLY SPECIALS 

MX 80 $ 485 

Microline80 $ 425 

NEC5510w/tractor $2550 ^ 

Published Prices Are Already Discounted For Cash. 

VR Data, a manufacturer of innovative computer products, is known worldwide 

tor quality, dependability and prompt, personal service since 1972. 




•& 
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VR Data Corporation • 777 Henderson Boulevard • Folcroft, PA 19032 
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hFrcc 
HubRinss & Plastic Case Too! 

Compare this offer on mini disks Here's our Verbatim Offer — 



. . . then buy now and save! 

(10 Pack- m" 'Disks) 
Generic Disks $21.95 Others $24.95 Verbatim $27.95 
Hub Ring .60 .60 md 525-01 F ree 

Case 3.95 3.95 Free 



The quality facts about Verbatim Disks 

• Certified 100% ERROR FREE 

• It's the diskette preferred by 'Apple and only 
one of two Apple-approved 

• Factory-installed hub rings means . 
data due to damaged hub holes 
coating when hub hits disk 

•A trademark of Apple Compute inc 

• 'A trademark ot Tandy Co/porauon „ 



. no loss of 
or loss of 




• 59 



WA INC. 

Final Opportunity ♦ 



MP 525-01 5%" soft sectored MINI DISKS (includes 
factory-installed hub ring and a plastic storage case) 

10 DISK Pack $27.95 ea. 

Bonus - order 9 and get 10th for 99g! 
FD 34-8000 8" soft sftctnrfid DISKS (inrlnrtes 

factory -installed hub ring in a hard box) 

10 DISK Pack $43.95 ea. 

Bonus order 9 and get 10th for $14.95! 

Add $2.50 per 10 Disk Pack for shipping and 
handling 

— NOTE: Any excess shipping will be refunded 

We accept check, money order, Visa or Master 
Charge. (With credit card orders, include card 
number and expiration date.) 
COD. shipments, $2,00 additional. Direct mail 
orders to LT-DATA INC. at either address below. 

24 Hour Phone Order line 1-303-575-8518 
P.O Box 1567, Wheat Ridge, Colorado 80033 
Colorado Residents add 3% Sales Tax 
P.O. Box 1017. Medina, Ohio 44258 
Ohio Residents add 5'/2% Sales Tax 






♦ ♦ 



limited quantity of &tqk cassettes still available 

(D-C60 & D-C90) See our April ad. 



-See List of Advertisers on page 306 
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UTILITY 



Push and pop with blocks of BASIC code. 



The Encoder 



Ron Cain 
Route 1, Box 190 
Chancellor, AL 36316 



You just finished writing a 
short asssembly language 
program for that flashy graphics 
display you want in your latest 
game program. Now, you have 
to convert all those machine lan- 
guage instructions in hex to 
decimal, and build them into 
data statements. You can then 
let your BASIC program poke 
the machine code into memory 
when it is run. By doing this, you 
eliminate the need to load both 
the machine language code and 
BASIC program in two separate 
steps. Good idea. But, what a 
job! 

The Easy Way 

Here is an easier way. Let the 
computer convert the hex ma- 
chine instructions into a block 



of BASIC code which will POKE 
the hex codes back into memory 
at the proper addresses. 

Program Encoder is written in 
BASIC, requiresaminimum 16K, 
one disk system, and will gener- 
ate the BASIC code (instruc- 
tions and data statements) to 
POKE your machine code into 
memory. 

Here's how it works. First, 
load your machine code to its 
proper location in reserved high 
memory. Then run Encoder. You 
will first be asked for the start- 
ing and ending addresses in 
memory where it can find the 
machine code. 

These addresses can be in 
decimal (with or without a trail- 
ing D), or in hexadecimal (which 
must include the trailing H). En- 
coder then asks for the starting 
line number and increment to 
use in the BASIC code it pro- 
duces. 

Finally, you are asked for a 
filespec to store the code pro- 
duced. The program then pro- 
ceeds to create and write to the 
disk file a block of BASIC code 
to reproduce the machine in- 
structions. Note that the code is 



stored on disk as if it had been 
SAVEd using the ASCII option, 
so that it can be merged with 
other BASIC programs. 

Also, the code generated is in 
the form of a subroutine to the 
program, which is merged (since 
it contains the RETURN instruc- 



tion). Take out the RETURN, and 
you can execute the routine in 
line. 

So, next time you want to 
build a machine language pro- 
gram into your BASIC program, 
let Encoder do the work while 
you just do the thinking.H 



i I**************************************************** 
****** 

2 '* PROGRAM NAME - ENCODER VERSION 1.0 

* 

3 '* WRITTEN BY - R. L. CAIN 

* 

4 ' * BOOTSTRAP COMPUTER SERVICES 

* 

5 >* CHANCELLOR, ALABAMA 36316 

* 

6 '* (205) 347-5206 

* 

7 i**************************************************** 

****** 
100 CLS: CLEAR 500: DEFINT A-Z 
110 PRINT @13, "MACHINE LANGUAGE TO BASIC ENCODER": PRIN 

T: PRINT 
120 '* 

130 '* GET THE NECESSARY INPUT FOR THIS RUN * 
140 > * * 

150 INPUT "STARTING ADDRESS"; A$ 

160 GOSUB 30050 

170 IF ER=1 THEN 150 

180 SA=A: SA!=A! 

190 '* 

200 INPUT " ENDING ADDRESS"; A$ 

210 GOSUB 30050 

220 IF ER=1 THEN 200 

230 EA=A: EA!=A! 

240 '* 

250 IF EA!>SA! THEN 290 

260 PRINT : PRINT "* END ADDRESS NOT > START ADDRESS *": 
PRINT 

Program continues 
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27 GOTO 15 
280 '* 

290 PRINT: INPUT "STARTING LINE NUMBER"; SL 
300 INPUT " LINE INCREMENT"; LI 
310 '* 

320 PRINT: LINE INPUT "FILESPEC FOR OUTPUT? "; FS$ 
1000 '* 

1010 '* OPEN THE FILE FOR OUTPUT, AND WRITE THE CODING 
TO POKE 

1020 '* THE MACHINE INSTRUCTIONS BACK INTO MEMORY. 
1030 i * 



1040 OPEN "0",1,FS$ 

1050 GOSUB 40050 

1060 LN$=LN$ + "ZA% = " + STR$(SA) 

1070 GOSUB 50040: GOSUB 40050 

1080 LN$=LN$ + "FOR ZI! = " + STR$(SA!) + " TO " + STR$ 

(EA!) 
1090 GOSUB 50040: GOSUB 40050 
1100 LN$=LN$ + "READ ZI%: POKE ZA%,ZI%" 

1110 LN$=LN$+": IF ZA%=32767 THEN ZA%=-32768 ELSE ZA%=Z 
A%+1" 

1120 GOSUB 50040: GOSUB 4A050 

1130 LN$=LN$ + "NEXT ZI!: RETURN" 

1140 GOSUB 50040: GOSUB 40050 

2000 '* 

2010 '* WE SET UP A FOR/NEXT LOOP TO PEEK EACH BYTE FR 



MEMORY AND BUILD THEM AS DECIMAL INTEGERS INTO 
DATA STATEMENTS. 



OM 
2020 '* 
2030 ■* 
2040 '*- 

2050 LN$=LNS+"DATA " 

2060 FOR SA!=SA! TO EA! 

2070 IF LEN(LN$) < 60 THEN 2110 

2080 LN$=LEFT$(LN$,LEN(LN$)-1) 

2090 GOSUB 50040: GOSUB 40050 

2100 LN$=LN$+"DATA " 

2110 A$=STR$(PEEK(SA)) : A$=RIGHT$ (A$,LEN (A$) -1) 

2120 LN$=LN$+A$+"," 

2130 IF SA=32767 THEN SA=-32768 ELSE SA=SA+1 

214 NEXT SA! 

2150 LN$=LEFT$(LN$,LEN(LN$)-1) 

2160 GOSUB 50040 

217 CLOSE 

2180 END 

30000 '* 

30010 '* THIS SUBROUTINE CONVERTS A NUMBER IN A$ TO A D 

ECIMAL 
30020 '* VALUE. A$ CAN CONTAIN EITHER A HEX NUMBER (END 

S IN H) 
30030 '* OR DECIMAL NUMBER (ENDS IN D OR A NUMBER). 

30050 ER=0 

30060 IF LEN(A$)=0 THEN ER=1: RETURN 

30070 IF RIGHT$(A$,1)<>"D" THEN 30090 

30080 A$=LEFT$(AS,LEN(A$)-1) : GOTO 30100 

30090 IF RIGHT$(A$,1)="H" THEN 30160 

30100 FOR 1=1 TO LEN(A$) 

30110 K=ASC(MID$(A$,I,1)) 

30120 IF K<48 OR K>57 THEN ER=1 : RETURN 

30130 NEXT I 

30140 A!=VAL(A$): IF A!>32767 THEN A=A!-65536 ELSE A=A! 

30150 RETURN 

30160 J!=l: A!=0 

30170 FOR I=LEN(A$)-1 TO 1 STEP -1 

30180 K = ASC(MID$(A$,I,1) ) 

30190 IF K>47 AND K<58 THEN K=K-48 : 

30200 IF K>64 AND K<71 THEN K=K-55 : 



GOTO 30220 
GOTO 30220 



30210 ER=1: RETURN 

30220 A!=A!+(J!*K) 

30230 J!=J!*16 

30240 NEXT I 

30250 IF A!>32767 THEN A=A!-65536 ELSE A=A! 

30260 RETURN 

40000 ■* 

40010 '* THIS SUBROUTINE INITIALIZES EACH LINE OF CODE 

TO BE 
40020 '* OUTPUT WITH ITS LINE NUMBER MAKING IT READY F 

OR THE 
40030 '* ADDITION OF THE BASIC INSTRUCTIONS OR DATA. 
40040 ' * 



40050 PRINT "CREATING LINE";SL, 

40060 LN$=RIGHT$(STR$(SL) , LEN (STR$ (SL) ) -1) + " " 

40070 RETURN 

50000 '* 

50010 '* THIS SUBROUTINE WRITES EACH LINE OF CODE CREA 

TED TO 
50020 '* THE DISK FILE, AND THEN INCREMENTS THE LINE N 

UMBER. 
50030 ' * 



50040 PRINT "WRITING LINE";SL: PRINT#1, LN$ 
50050 SL=SL+LI 
50060 RETURN 



Program Listing for Encoder 



HI-RESOLUTION 
GRAPHICS FOR TRS-80 



INTRODUCING: 




SHHHi 



E/RAM Graphics is a unique hardware/software package, which will integrate high- 
speed, high resolution graphics into any Level II TRS-80 system. E/RAM hardware is a 
fully plug-compatible box, which installs in minutes, and requires absolutely no 
modifications to the TRS-80 system. E/RAM software is a compact, relocatable set of 
utilities which provides the user with easily accessible graphics functions. For instance: 
the user pokes the end point coordinates of a line into certain locations, does a USR call, 
and an optimized dot-raster line is automatically drawn on the screen at very high speed 
(less than 10 milli-seconds for a medium length line). 

E/RAM does not require the purchase of an additional monitor CRT. The high-resolution 
graphics video is syncronized with the TRS-80 video and appears on the screen with the 
normal TRS-80 display. Alphanumerics, TRS-80 graphics, and E/RAM high-resolution 
graphics may be displayed simultaneously or individually. 

E/RAM hardware contains its own 6144 byte video memory, which provides a true 256 x 
192 matrix of Independent graphic elements. (E/RAM is NOT a programmable character 
generator type graphics system. Character generator systems have serious limitations 
in full screen graphics applications.) 

E/RAM will operate with or without an expansion interface, and with any standard 
memory configuration (4k through 48k). 

E/RAM is fast. "E/RAM" is an acronym for Extended Random Access Memory, a very 
short description of the Patent-Pending method of I/O employed by this device, which 
gives it memory-mapped speed without interfering with the memory space used by the 
TRS-80. 

The installation of E/RAM will not affect 
normal operation of the TRS-80. High 
resolution ON/OFF is under program or 
manual control (a switch is provided). An 
expansion card edge connector is provided 
so that other peripherals may be used on 
the TRS-80 bus. 

E/RAM software package is compact (less than 1000 bytes), fast, easy to use, and very 
flexible. A relocating loader is provided. The user can delete unneeded routines if more 
memory space is required. Lines can be drawn as fast as 13 per second using 8ASIC USR 
calls, and as fast as 200 per second using assembly language programs. 

Routines usable through USR of BASIC, and of course an assembler CALL are: 

INIT - Sets up display 

PLOT - Plots a point 

REAO - Reads a point from the screen 

BLACK - Sets drawing mode to black (off) 

WHITE - Sets drawing mode to on 

CLEAR - Clears the high-resolution graphics screen 

LINE - Draws a line 

As an example, after the utilities package is loaded and you desire to draw a line, the 
following sequence of BASIC instructions could be executed: 

U=USR(0) Return the communications area 

POKE U+1.X0 Provide the beginning X coordinate 

POKE U+3.Y0 Provide the beginning Y coordinate 

POKE U+5.X1 Provide the ending X coordinate 

POKE U+7.Y1 Provide the ending Y coordinate 

V=USR(4) Draw the line (Current speed is 

approximately 13 vectors/second) 

The complete E/RAM package is available for only $349.95, and includes case, power 
supply, cables, software cassette, and complete documentation. 

To order, or for further details, write or call: 

VERN STREET PRODUCTS THE COMPUTER STORE 




We handle a full line 
of Radio Shack products 



«^432 



4949 South Peoria Ave 

Tulsa, Okla 74105 

(918) 747-2550 



Send $10.00 for a set of the manuals provided (applicable towards purchase) 

Dealer inquiries are invited. 

Terms: COD Welcome, check, money order, Master Charge, or Visa 

Delivery: Stock to 60 days. 

E/RAM was designed, and is manufactured by KEYLINE COMPUTER PRODUCTS, INC. 

13 East 6th Street, M/C 200, Tulsa, Oklahoma 74119. 

*TRS-80 is a registered trademark of Radio Shack, a Tandy Corporation. 



sSee List of Advertisers on page 306 
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HARDWARE 



Ride herd on your cassette voltage levels and interface with the world. 

The Pulse Jockey 



Larry Suter 

1643 Warsaw Ave. 

Livermore, CA 94550 



How would you like to have a 
cheap and simple way to 
hook your TRS-80 to the outside 
world? A way that uses software 
and trickery to side-step compli- 
cated hardware? One that 
doesn't involve ribbon cables, 
expansion connections, p.c. 
boards or expensive chips? 

For $5 and an evening's effort 
you can take this hardware/soft- 
ware route to interfacing. 

We'll use serial I/O through 
the cassette port and some sim- 
ple hardware for our interface. 
Because the hardware is so sim- 
ple, we'll have to augment it with 
short algorithms written in Level 
II BASIC. For faster I/O we'll use 
machine language algorithms. 
But this can be done painlessly, 
and I'll show you how. 

Essential Point 

The key to this approach is 
that you can get two indepen- 
dent sources of pulses from your 
cassette output plug. Let's first 
see how the cassette output ac- 



tually produces three software 
selectable output voltages. 
Then we'll understand how 
these three voltage levels can be 
used to generate the two inde- 
pendent channels of pulses. 

Let's experiment. Hook a volt- 
meter across the cassette out- 
put plug (the grey one which 
goes into AUX). Run the pro- 
gram: 

10 INPUT N:OUT 255, N:GOTO 10 

When you input N as O you'll 
measure about 0.45-V output. 
What you've done with this pro- 
gram is to send a to port 255. 
(255 is the cassette port's i.d. 
number.) Sending a to port 255 
results in 0.45-V output. 

Next, input N as 1. You'll find 
that sending one to port 255 
results in 0.9V output. 

Finally, input a two. Sending 
two to port 255 results in 0V out- 
put. You'll see that your TRS-80 
actually puts out three voltage 
levels— 0.45V, 0.9V or 0V, de- 
pending on whether you send a 
0, 1 or 2 port 255. These three 
software selectable voltage 
levels provide the key to inter- 
facing through the cassette 
port. They can be used to gener- 
ate two channels of output 
pulses. 

Fig. 1 shows how you get two 
output channels from three volt- 



Fig. 1. Your cassette output plug produces three software control- 
lable voltage levels. Two comparitors will convert these levels into 
two independent sources of logic pulses, Pulse 1 and Pulse 2. 



1- 10K resistor 

2- 5K resistors 
2- 1 K resistors 

3- 1N34A Germanium diodes 

1- 0.01 microfarad capacitor 

2- 0.047 microfarad capacitors 

1- 10. microfarad electrolytic 

capacitor 

1- 339 quad comparltor 

1-74154 1:16 multiplexer 

1- 7493 counter 
1-74151 8:1 demultiplexer 

2- miniature phone jacks 
1- bread board 

In addition to these parts you'll 
want chipo such as 74157 quad lat- 
ches, more 7493 counters and 7404 
inverters, to let you make parallel 
output ports. 

Parrs List 



age levels. Normally the cas- 
sette output level is 0.45V. When 



you issue the command: OUT 
225, "LOUT 255, 0, the output 
rises to 0.9V and drops back to 
0.45V. You can generate a logic 
compatible pulse by connect- 
ing the cassette output plug to a 
comparitor, which produces a 
one when its input is greater 
than 0.7V. We'll call the output 
of this comparitor Pulse 1 since 
it's actuated by sending a one to 
port 255. 

If you send out an OUT 
255,2:OUT 255,0 you won't get 
PULSE 1 since the voltage is al- 
ways less than the comparitor's 
threshold. But, you will get a 
pulse from a comparitor which 
has a threshold of 0.35V. We'll 
call this second output Pulse 2. 
That's how you get two chan- 
nels out of one plug. Three volt- 
age levels and two comparitors. 
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You've all seen the ads/ 9 



"...the ones promising to make your computer as powerful as a small 
tornado in only 6K. Well, there's a new tornado out now called Enhanced 
BASIC (ENHBAS). From Cornsoft, this... BASIC really does give your 
system some incredible capabilities." "As an editor who has used Level I, 
II, III, Microsoft BASIC, with and without Apparat alterations, I have finally 
found my BASIC." 

"If you're after more power than you've ever seen before, 'ENHBAS' is 
a great bargain." 

Phillip Case, 
Soft Side Magazine 



ENHBAS gives your BASIC more capabilities 

TRS 80tModel I & III ENHBAS actual new commands and functions include: 



SORT - SORT all KEYed and TAGed 

arrays simultaneously, sorts 1000 strings in 
approx. 15 sec. 

JNAME • Identifies a label for use by GTO and 
CSUB 

GTO • Allows labeled GOTO and calculated 
GOTO's 

CSGB - Like GTO except does GOSUB 

PLOT - Sets/ resets a line/box between two points 

EVAL - Evaluates a string expression as an 

algebraic expression 
DRAW - (Jses an integer array to draw turtle 

graphics 



PLAY - Uses a string variable to play a user defined 
set of notes over the cassette port. 

EXEC - EXECutes string expression as a BASIC 

program statement 
SCROLL - Sets lines at top of screen to be scroll 

protected 
and many more 

Background Capabilities: 

Key Click Columnized LISTings 

Tone on Error Shorthand Entry of 

Custom Cursor Commands 

plus many more 



TRS 80f Model II ENHBAS includes many of the instructions of Model I & III ENHBAS plus special 
instructions to allow free style fielding like NEWDOS-80f (allows record lengths up to 32,767 bytes long). 
PLCS • many file handling commands, and special string functions to read disc ID's and read from the 
screen. In addition, Model II ENHBAS allows you to use indexed files, scroll protection, RS232 
communication, ON, BREAK, GOTO, POKE, PEEK, redifineable cursor and many more functions. 



"("trademark of the Tandy Corp. 



t trademark of Apparat, Inc. 



NAME 



ADDRESS. 



MASTERCARD * 

(include Interbank * and expiration date) 



Dealer inquiries invited. 

Include payment or credit card number with each order. 

All foreign orders must be paid in U.S. dollars. 



LJ Yes. Please send 



Please specify: 



. Model I & III® $59.95 ea. 



Disk 



copy(ies) of ENHBAS 

Model II @ $99.95 ea. 

Cassette 



I I Send more information about ENHBAS. 

I I Send information about business programs 

that run under ENHBAS. 

The Cornsoft Group ^465 

6008 N. Keystone Ave., Indianapolis.lN 46220 
(317)257-3227 



•*See List of Advertisers on page 306 
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By happenstance, the TRS-80 
cassette plug can actually give 
two channels of pulses. What 
are the benefits of two pulse 
sources? Two pulse sources al- 
low you to use one pulse to 
route the other pulse wherever 
you want it. 

Fig. 2 shows how this is done. 
Pulse 1 goes into a counter. 
The output of the counter is con- 
nected to the address pins of a 
multiplexer chip. What this chip 
does is to route its one input 
signal (Pulse 2!) to any of its 
output pins. Which output is 
hooked up the Pulse 2 is deter- 
mined by the four address pins 
connected to the counter. 

For example, let's say that 
you want to send out 10 pulses 
to pin 7. First you issue sev- 
en Pulse 1s which cause the 
counter to put out a 0111 bit 
pattern. This pattern causes 
output pin 7 of the multiplexer 
to be connected to Pulse 2. Now 
send out 10 Pulse 2s and they 
will end up where you want 
them. 

What if you want parallel out- 
put? Fig. 2 also indicates how 
you can do this with a separate 
counter. One of the multiplexer's 
outputs is connected to the 
reset pin on the counter, and 
another to its clock input. By 
first clearing the counter and 
then sending out N pulses you 
can get any output. You can get 
many parallel outputs by con- 
necting latches to the counter's 
output and using other pulses 
from the multiplexer to latch the 
data. 

Is it possible to do half as 
much with just one pulse 
source? Possibly, but it would 
require pulse length modulation 
or some other tricks. It's a lot 
easier to do it this way. 

Hardware 

The circuit I use to do this 
kind of pulse jockeying is shown 
in Fig. 3. The 339 comparitors, 
which are the heart of this 
scheme, must be properly 
biased. One at 0.35V and the 
other at 0.7V. Use germanium 
diodes to do this since they pro- 
vide a voltage drop of 0.3 to 0.5V, 
depending on their current. The 
way the inputs are hooked up, 
Pulse 1 (the router) is normally 



COMPARATORS 



P15 
MULTIPLEXER 



16 PULSE SOURCES 



V 



LATCH 
#2 



Fig. 2. Pulse 1 and Pulse 2 can generate as many independent 
pulses as you need. The idea is that Pulse 1 routes Pulse 2 
wherever you want. You get steady, parallel outputs by using the 
pulses to drive counters and latches. 




Fig. 3. Circuit for the I/O port. The upper three chips form the output 
port. Adding the 74151 will give you input as well. The port is shown 
driving a relay via a flip-flop. 



low. Pulse 2 (the routee) is nor- 
mally high. 

Since the 7493 counter is 
hooked up to Pulse 1, it gets in- 
cremented every time you send 
out an OUT 255,1 :OUT 255,0. By 
sending out the right number of 
pulses you can hook Pulse 2 up 
to any one of the multiplexer's 
outputs. 

If you want to hook up pin 7 to 
Pulse 2, then you can do it by 
sending out seven Pulse 1s— if 
the counter was zero when you 
started. To make sure you've 
started at zero, the circuit of Fig. 




Fig. 4. The diode and capacitor allow you to zero the 7493 counter 
with a long Pulse 1s and increase it with short Pulse 1s. 
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MODEL II 




26-4002 

64K 1 Drive 

$3440.00 

26-4160 1 Drive Exp $1034.00 

26-4161 2 Drive Exp 1574.00 

26-4162 3 Drive Exp 2114.00 

26-4530 Scripsit II 265.00 

26-4512 Profile II 162.00 

26-451 1 Visicalc II 265.00 

26-4501 Gen Ledger 180.00 

26-4506 Mail List 72.00 



PRINTERS 




CEnTRonics 

BEST PRICES 

Fast 100 CPS Centronics 

730-1 A Printer $577.00 

Text Quality Centronics 

737-1 Printer $737.00 



$ DISCOUNT $ 

1. AVO^OU DEALER A301 

COMPUTER SPECIALISTS 

CALL US. . . 
SAVE MONEY 



MODEL III 




26-1061 4KI $629,00 

26-1062 16K III 865.00 

26-1063 32K III 

W/2 Drives, RS232 2225.00 

COLOR 



We carry the full line of TRS-80 Computers. All 
other R.S. software, furniture, and accessories 
at discount from catalog price. We stock most 
items to assure you fast delivery and save you 
money. 

26-1 140 Expansion Interface $249.00 

26-1 141 16K Exp. Interface 359.00 

26-1 142 32K Exp. INterface 469.00 

26-1 145 RS232C Board 84.00 

26-1 160/1 Mini Disk Drive 419.00 

26-1563 Scripsit-Disk 79.00 

26-1566 Visicalc 83.00 

***** PRINTERS- ***** 

26-1 155 Quick Printer 187.00 

26-1167 9'/j Dot Matrix Printer 360.00 

26-1 166 Line Printer VI 1080.00 

26-1158 Daisy Wheel II 1799.00 

26-1 165 Line Printer V 1710.00 




26-3001 4K $353.00 

26-3002 16K Ext. Basic 533.00 

26-3008 Joysticks 22.50 

26-3010 Color Video 353.00 

26-1206 Recorder 54.00 




Pocket Computer 




>0 pggc ^v t ta*.£VH!*ci 
> -J ^3 ^ ■•=j £2mmizm JIEl m a a ^ 



26-3501 1 .9K P.C $221 .00 

26-3503 Cassette IF 45.00 

14-812 Recorder 72.00 



commodore 

AUTHORIZED DEALER 
CALL FOR PRICES 



ALL POCKET AND COLOR 

COMPUTER SOFTWARE 

SOLD AT DISCOUNT 

WRITE US FOR A 
FREE CATALOG 



1-800-841-0860 Toll Free Order Entry 



KIJCHQ MANAGEMENT SVSTEMS, JNCf 



No Taxes on Out Of 
State Shipments 



Immediate Shipment 
From Stock on Most Items 



DOWNTOWN PLAZA SHOPPING CENTER 
115 C. SECOND AVE. S.W. 
CAIRO, GEORGIA 31728 
(912) 377-7120 Ga. Phone No. & Export 

TRS-80 is a registered trademark of the Tandy Corp. 



R.S. 90 Day Limited Warranty 
F-48 Form Provided 

Largest Inventory 
In The S.E. U.S.A. 



^See List of Advertisers on page 306 
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Fig. 5. Every Pulse 1 initiates a chain of events which loads a 
data bit into your TRS-80's input flip-flop. 



CALL 0A7F 


M of USR(M)9HL 


LDA.01H 




OUT FFH 


Clear 7498 


XOR A 


with long 


LDB.A 


PULSE1 


DJNZ, FE 




OUTFF 




BIT7H 






IF HL<0 GOTO INPU1 


JR NZ, INPUT 




LD D01H 




LDE.H 


Send out H PULSEVs 


CALL PULSE 




LD D,02 




LDE.L 


Send out L PULSE2's 


CALL PULSE 





PULSE 
LOOP 



RET 

INCE 
DECE 
RETZ 
LDA,D 
OUT FFH 
XOR A 
OUTFF 
JR, LOOP 



Send pulses to cassette port 
D = type (1 or 2) 
E = how many 



INPUT 




LDC.A 


09C 






LD B.08H 


B = #of bits to input 


LOOP2 




CALL DELAY 








SRLC 


C = 2*C 






INFF 








AND80H 


IFINP(225)>127 0THEN C = C + 128 






ADDC 


ELSEC = C + 






LDC, A 








LDA.01H 








OUT FFH 








XOR A 


Send out PULSE1 






CALL DELAY 








OUT FFH 








DJNZ, LOOP2 








LD, L,C 


C9HL 






LD H.OOH 


HL9USR(N) 






JP OA9AH 




DELAY RET 






Table 1. 


Assembly language listing of the machine language 


I/O program 


you load with Program Listing 3. 




3 will let you zero the counter by 
sending a long Pulse 1. Before 



looking at Fig. 4 which explains 
how this zeroing is done, you'll 



Don't be misled by more expensive imitations! 
This is the original Photo point light pen pre- 
ferred and supported by some of the leading 
software sources like, "Quality Software"— "In- 
stant Software"— "Level IV "products and so on, 

Just imagine . . . 

In playing backgammon, (included) when you 
want to move a man, you just point at where you 
want to move from, then point at where you 
want to move to, and your man moves!!! No 
more fumbling with keyboards— YEA! 

Your Photo Point package comes complete; 

• 1 Photo point light pen (of course) 

• Info sheets on how to connect the pen and 
how to write your own programs 

ALL IN BASIC 

• Two apertures 

• AND two sensitivity settings 

• A cassette tape with 4 informative programs 
and games 

• Ready to connect to your TRS-80 System. 
(DOS too!) 

• Does not void any Radio Shack warranties 

Requirements: 

• Level II basic 

• And a little imagination!! 

For fast real time programming it is your lowest 
cost peripheral at $19. 95 



Announcing 




NEW PEN BASIC by Steve Bjork 
Steve is one of the Best Assembly Lang, pro- 
grammers around, and he has come up with PEN 
BASIC. This low memory routine will add 10 more com- 
mands to Level II such as PENGET which searches the 
entire screen for the pen and returns a number between 
0-1024 in about 1 sec. Plus 9 other commands. Perfect for 
you lightware authors and NEW light pen owners 
too! onlySl4.9 5 



(COUPON) 

Micro Matrix ^es 

P.O. Box 938 • Pacifica, CA 94044 

Send for yours NOW: (41 5) 355-4635 



Name 
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need one essential fact. That 
fact is that when a TTL input is 
low it has about 1ma of current 
trickling out of it. 

To zero this counter with a 
long Pulse 1 you can use the in- 
struction: 



OUT 244, 1:FOR I = 1TO20:NEXT:OUT 255,0 



Program Listing 1 is the BASIC 
listing of a subroutine for send- 
ing out N pulses to pin P. First 
we zero the counter. Then we 
send P Pulse 1s followed by N 
Pulse 2s. That's all there is to 
it! 

C1 of Fig. 3 & 4 must be 10 
microfarads when using this 
BASIC algorithm. 



Machine Language Algorithm 

Program Listing 3 is a small 
Level II BASIC routine which will 
load a machine language form 
of the output, add input algo- 
rithms into memory. It will also 
set up the appropriate TRS-80 
pointers so you jump to the rou- 
tine whenever you issue an 
X = USR(N) command. The ma- 
chine language program is con- 
tained in the DATA statement so 
be sure to get it right. 

Table 1 is an annotated as- 
sembly language listing of the 
machine language I/O algo- 
rithm. One thing needs explain- 
ing. The calls to subroutine 
DELAY when doing input are 
needed to chew up about 15 
microseconds. Apparently the 
TRS-80 cassette input amplifier 
isn't fast enough to respond to 
the very quick pulses which 
would result without the delay. 



Great for Beginners 

If you have little or no experi- 
ence with digital electronics 
then this is the project for you. 
You can put the circuit of Fig. 3 
together one chip at a time. 
Every chip is a milestone. An in- 
dividual accomplishment. 

First get the comparitor work- 
ing to generate Pulse 1 and 
Pulse 2. Use a voltmeter to 




, 00K 
0(-F f J _ 9V THIS DIODE 

PROTECTS TTL 



Fig. 6. This handy transducer tells whether an appliance is on 
or off. AC current will induce a signal in the pick-up loop which 
gets amplified and rectified to a TTL compatible level. The 
output is connected to one of the input pins of your port. 



10 FOR 1=0 TO 73:READ A:POKE 20224+1, A:NEXT 
20 POKE 16526, 0:POKE 16527,79 

25 DATA 205,127,10,62,1,211,255,175,71,16,254,211,255,2 

03,124,32,24,22,1,92,205,30,7 9,22,2,93,205,30,7 9,2 
01,28,29,200,122,211,255,17 5,211,255,24,246,007 9,6 
,8,205,73,79 

26 DATA 203,57,219,255,230,128,129,0079,62,1,211,255,20 

5,73,7 9,17 5,211,255,16,233,105,38,0,195,15 4,10,201 



Program Listing 1. This BASIC algorithm sends output pulses 
to pin P of the 74154 of Fig. 3. C1 of Figure 3 must be 10 
microfarads when using this algorithm. 



2990 REM CLEAR 7493 WITH A LONG PULSE1 

3000 OUT 255,l:FOR 1=1 TO 30:NEXT:OUT 255,0 

3005 REM SELECT OUTPUT PIN WITH P PULSEl'S 

3010 IF P>0 THEN FOR 1=1 TO P:OUT 255,l:OUT 255,0:NEXT 

3015 REM SEND N PULSES TO SELECTED OUTPUT PIN 

IF N>0 THEN FOR 1=1 TO N:OUT 255,2:OUT 255,0:NEXT 

RETURN 



302 

303 



Program Listing 2. When you call this BASIC subroutine, you'l! 
get back C, the decimal equivalent of the input to the 74151 chip. 



1990 REM CLEAR 7493 WITH A LONG PULSE1 

2000 OUT 255,l:FOR 1=1 TO 30 :NEXT:OUT8255 ,0 

2005 REM READ IN D0-D7 . CONVERT THIS BIT PATTERN TO DEC 

IMAL NUMBER C. 

2010 C=0:FOR 1=0 TO 7: IF INP(255)>127 THEN C=C+2[I 
2020 OUT 255,l:OUT 255 , :NEXT:RETURN 



Program Listing 3. 



diagnose the circuit. 

Then hook Pulse 1 up to the 
7493 counter and practice incre- 
menting and zeroing it. You can 
also check this action with your 
voltmeter. 

Next comes the 74154 multi- 
plexer. But don't stop your digi- 
tal education here. Hook up 
counters, inverters and latches 
to the output pulses. Once you 
have parallel outputs your com- 
puter and output port form the 



basis of a digital lab. You can 
see this system to study the op- 
eration of just about any digital 
chip. And they're not hard to set 
up on a breadboard. 

Where can you get more infor- 
mation about digital electron- 
ics? Well one good source is 
Lancaster's TTL Cookbook. It's 
full of information about chips 
and techniques. And is present- 
ed in a way that allows you to 
skip around. ■ 
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REVIEW 



Photo 1 




Photo 2 



Shows you how 

to use two free video pins. 

>22MHz 
For $99 



Fredi Egger 
Grundstrasse 21 
CH-8500 Frauenfeld 
Switzerland 
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Everyone owning a TRS-80 
seems to agree that the cas- 
sette recorder is the weak point 
of the whole line. A lot of articles 
have been published in order to 
help people to get rid of these 
problems. I personally consider 
the Data Dubber, published in 
Jan. and Feb., 1980 of 80 Micro- 
computing, to be the most reli- 
able cure. There is nothing to be 
added— it just works perfectly. 

In my opinion the TRS-80 
monitor takes second place for 
being problematic. I tried hard to 
improve the display. I followed 
the hints in Kilobaud Microcom- 
puting (Dec, 1979, "Peak Your 
TRS-80 Display") and 80 Micro- 
computing (Feb., 1980, "Video 
Tune-Up"). But I was not quite 
satisfied. 

Finally I decided to go for an- 
other monitor — without spend- 
ing much money. I looked 
through the relevant magazines 
and discovered an ad announc- 
ing a monitor with a bandwidth 



of less than 22 MHz for only $99 
from Electravalue Industrial. 

The ASL-monitor came in per- 
fect condition and was accom- 
panied by fairly good documen- 
tation. They even enclosed an 
extra sheet with suggestions on 
how to connect it to the TRS-80. 
Since the monitor does not have 
a mixed video input one has to 
bring the horizontal and the ver- 
tical sync signals out of the 
TRS-80. TRS-80 designers left 
two of the five pins of the video- 
DIN connector free. 

Following the instructions 
supplied with the monitor, the 
horizontal sync pulses are taken 
from Z6, pin 6, and brought to 
the DIN connector, pin 2. 
Similarly, the vertical syncs 
from Z57, pin 8, go to DIN, pin 3 
in Fig. 1. 

There is one problem: Due to a 
phase jitter between the hori- 
zontal and vertical sync pulses 
produced by the TRS-80, the dis- 
played dots jitter randomly. 

The jitter disappears by ad- 
justing the horizontal position 
potentiometer (R20 in Fig. 1) to 
move the display to the right 
side of the screen. But you will 
be able to use only the right half 
of the screen. 

Fortunately, there is a simple 
way to fix this. Instead of pro- 




Photo 4 



Fig. 2 



ducing the horizontal sync delay 
with a CR network (C20 and R20 
in Fig. 1), use a shift register as 
shown in Fig. 2. The 74LS164 is 
piggybacked onto Z7 (taking +5 
volts from pin 14 and ground 
from pin 7). All the other pins are 
bent outward. Connect the 
serial input to Z6, pin 13, and the 
clock input to Z65, pin 9. At this 
point the frequency is 443.52 
KHz which gives us a clock 
width of 2.25 microseconds. 

Then digitally adjust the hori- 
zontal position at the beginning 
of the character lines following 
Table 1. I found pin 10 the most 
convenient. All other pins of the 
164 are unused. 

A bandwidth of 22 MHz gives 
us a chance for more improve- 
ments. Consider the letter Z in 
the MEMORY SIZE question. 
You will notice that the top and 
bottom bar appear much bright- 
er on the screen than the single 
dots forming the diagonal line. 
When there is more than one dot 
in a row of the shift registers 
(Z10andZ11), the display will be 
brighter than the single dots. 
Look at the E and Z in Fig. 3. 

There is an easy way to get rid 
of that. In the TRS-80 the paral- 
lel-serial-conversion of charac- 
ter and graphics slices takes 
place in two shift registers (Z10 
and Z11). The serial outputs of 
these ICs are NORed in Z30 
(pins 2 and 3). At the output of 
this gate (point A in Fig. 3) a logi- 
cal means a white spot on the 



video screen. Correspondingly, 
a 1 creates a screen blank. 

If we now insert a gate (one of 
the spare 74LS32 gates in the 
TRS-80) between Z30, pin 1, Z41, 
pins 6 and 7 (as shown in Fig. 3), 
we can control the video output 
by applying an appropriate sig- 
nal to the second input of this 
gate. At Z9, pin 8, we find the 
clock signal for the two shift reg- 
isters in Photo 2. Connect this to 
the inserted gate, and you get 
the display shown in Photo 3. 

In fact, I used one-half of a 
74LS123-monoflop. It seemed to 
give better results than a simple 
OR gate. The 123 was piggy- 
backed onto Z10 and wired up 
as shown in Fig. 4. In this appli- 
cation we are using the two bot- 
tom lines of the monoflop's 
truth table. The monoflop is ini- 
tially fired by the low-going edge 
of the signal coming from the 
shift registers. About 50 nano- 
seconds later, it is reset by the 
low-going clock signal. If the 
shift register signal stays low, 
the astable will be fired again by 
the high-going edge of the clock 
signal (another 50 nanoseconds 
later). 

We can paint 73720 (64 char- 
acters * 6 dots * 16 rows * 12 
scanlines) distinct points in a 
384*192 matrix on our screen. If 
we only had the hardware (mem- 
ory) and the software to control 
them . . . But don't you think it is 
a promising start to high resolu- 
tion graphics?^ 



Hor Sync Output 


Line Locations 


pin 3 
4 
5 


about center of screen 

t 

moving toward the left 


6 

10 
11 


in half-inch steps 

(2.25 microseconds/step) 


12 




13 


leftmost position 



Table 1. If the horizontal sync output is connected to a pin 
designated in the left column, the position beginning the line 
is indicated in the right column. 
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FUNCTION TABLE 



INPUTS 


OUTPUTS 


CLEAR 


A 


B 





L 


X 


X 


L H 


X 


H 


X 


L H 


X 


X 


L 


L H 


M 


L 


I 


-TL "U 


H 


I 


M 


-TL XT 


I 


L 


M 


JT T.T 



Z9, PIN 8 4 
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UTILITY 



A calculator based utility 

that takes the hex off number base conversions. 



Hex Converter 



Richard H. Malone 
82 Garden Drive 
Albertson, NY 11507 



One of the most difficult pre- 
requisites of assembly lan- 
guage programming is learning 
the hexadecimal number sys- 
tem. If you're like me, accus- 
tomed to BASIC where all refer- 
ences to memory locations and 
constants are in decimal, your 
first exposure to machine lan- 
guage programming can be a 
nightmare of hex to decimal/ 
decimal to hex conversion 
tables and reams of scribbled 
notes. 

Of course many conversion 
programs are available to you, 
but when you're deep into a ma- 
chine language problem, your 
computer is tied up and you 
must resort to good old paper 
and pencil. 

A better solution is to perform 
the necessary calculations on 
your hand calculator or a pro- 
grammable one. 

Number Systems 

Let's review the relationship 
between the decimal and hexa- 
decimal number systems. 

The basis of the hexadecimal 
system is easy to understand. 
Each character position in a 
number has a value determined 
by two factors: 



• the value of the character 
occupying the position; 

• the value of the particular 
position. 

These two factors are multiplied 
to determine the value for that 
position and the value for all po- 
sitions is added to determine 
the value of the entire number. 

In the decimal system there 
are ten possible characters to 
occupy each position (0-9). In 
the hexadecimal system there 
are sixteen possible characters 
to occupy each position (0-9 
and A-F). 

In any number system the val- 
ue of a particular position is 
equal to the base of the system 
raised to a power equal to the 
number of positions to the left 
of the decimal point, minus one. 
Thus in the decimal system 
(base 10), the value of each posi- 
tion to the left of the decimal 
point is: 



10 4 10 s 10 2 10' 10° 

10000 1000 100 10 1 

To determine the value of a 
number we multiply the value of 
the character times the value of 
the position it occupies. Thus 
234 decimal is 2 x 10 2 + 3x10' 
+ 4x10°. Remember, any num- 
ber raised to the zero power is 
equal to one. 

The hexadecimal system is 
similar. Each position to the left 
of the decimal point (or, more 
correctly, the hexadecimal 
point) has a value of sixteen (the 



base) raised to a power equal to 
the number of positions to the 
left of the decimal point minus 
one. 



16 4 16 s 16 2 16" 16° 
65536 4096 256 16 1 

To determine the decimal val- 
ue of a hexadecimal number, 
multiply the character value 
times the value of the position it 
occupies and add all the values. 
For example, 234 hex is equal to 
2 x 16 2 + 3 x 16 1 + 4 x 16° which 
adds up to 564 decimal. Position 
3C00 hex in the TRS-80 memory 
(position one in video memory) 
would be 3x16 3 + 12x16 2 + 
0x16 1 + 0x16° = 15360 deci- 
mal. Pretty laborious! 

To go from decimal to hexa- 
decimal is even worse. The deci- 
mal number must be divided by 
the largest power of sixteen that 
results in a whole number. This 
value times the power of sixteen 
is then subtracted from the orig- 
inal and the process repeated. 
Example 1 shows you how to 
convert 15360 decimal to hexa- 



decimal. 

The Programmable Calculator 

Your programmable calcula- 
tor can perform these multiple 
operations for you. The only real 
difficulty is that the hexadeci- 
mal system has sixteen charac- 
ters per position while your 
decimal calculator has only ten. 

You can get around this prob- 
lem by entering all hexadecimal 
characters greater than nine as 
their decimal equivalents. Thus, 
a hexadecimal A is entered as 
10, a B as 1 1, a C as 12, a Das 13, 
an E as 14 and an F as 15. 

With this procedure in mind, 
program your calculator to per- 
form the following operations 
for hexadecimal to decimal con- 
version. 

n. x 4096 + (2x256) + (_n x 16) + (n.) = 

Njs a hexadecimal character ex- 
pressed as zero to fifteen. It is 
important to note that you must 
enter four hexadecimal charac- 
ters. If you are converting hex 
FF to decimal you must enter 0, 
0, 15, 15. The answer will be dis- 



Label 1 








StoreO + 
RecallO - 
Store2 = 
Recall6 
Store3 x 
Recall7 
Recall5 


4096 = Int Storel 

- (Recall2 x 4096) 
10000 = Mem + 5 

- (Recall2 x 256) = 
100 = Mem + 5 

- (Reca!l3 x 16) = 


X 1000000 
= Store6 ■♦ 

Store7 + 

Mem + 5 


= Store5 
256 = Int 

16 Int 




Program Listing 1. 
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played on your calculator. Hexa- 
decimal numbers larger than 
FFFF cannot be converted by 
this routine. 

The procedure for converting 
decimal to hexadecimal is a lit- 
tle more involved. By making lib- 
eral use of the calculator's stor- 
age facilities I managed to fit 
both the previous hex to decimal 
and the following decimal to hex 
conversion routines in the cal- 
culator's 128 program steps 
(Program Listing 1). By attach- 
ing a label to this routine I am 
able to select it directly by using 



the GOTO function on the 
keyboard. 

N_ is the decimal number you 
wish to convert. The number 
must be in the range of to 
65535. The result, from memory 
five, will be displayed in eight 
adjacent display positions; two 
digits per hex character. Thus 
65000 decimal would be con- 
verted and displayed as 15, 13, 
14, 08. 

As before, you must make the 
mental conversion to FDE8. This 
conversion, however, is well 
within the capabilities of your 



bionic computer. If you convert 
small numbers, say 256 decimal, 
the result will be displayed as 
15, 15 (FF hex) on the display. 
The high order digits, being all 
zeros, are suppressed. 



There you have it. It has saved 
me many hours of laborious 
pencil scratching and table 
fumbling. And it has put my old 
programmable calculator back 
into active use. ■ 
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4096V 15360 


12 = 3C00hex. 

256^ 3072 16^0" 1V0" 


12288 


256 


3072 


512 




512 







Example 1 


Decimal to Hex Conversion of 15,360. 
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Make the most of your TRS-80 

with the authors TRS-80 owners know and trust 



More than 115,000 sold! 

TRS-80 BASIC 

Bob Albrecht, Don Inman, & Ramon Zamora 

"If you're a rank beginner in computing with a 
TRS-80 I equipped with level II Basic, your novice 
status won't last long. TRS-80 Basic leads you by 
the hand through the maze of programming the 
computer to perform both entertaining and useful 
tasks! -Interface Age 

Outstanding . . , TRS-80 Basic is the best thing to 
happen to Level II owners!" 

-Computronics Monthly News Magazine 
S8.95 (paper) 

DATA FILE PROGRAMMING 
IN BASIC 

LeRoy Finkel & Jerald R. Brown 

This easy-to-follow guide lets you master the 
powerful tool of data file programming-the key to 
sophisticated home and business applications like 
processing numerical data and monitoring billings, 
inventories, and expenses. You'll learn how to 
write and maintain your own data file programs, 
modify programs you've purchased, and adapt 
data files found in magazines and other sources, to 
perform hundreds of useful operations using TRS- 
80 BASIC, Microsoft BASIC-80, and Northstar 
BASIC. 
S9.95 (paper) 



New! First printing of 100.000! 

MORE TRS-80 BASIC 

Don Inman, Ramon Zamora, & Bob Albrecht 
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S8.95 (paper) 
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LANGUAGE 

Techniques For Improved 

Programming 

Alan R. Miller 

Get every response your micro is capable of, with 
this complete guide to programming the popular 
8080 and Z80 microprocessors. Geared to 
advanced and intermediate programmers, this 
easy-to-use manual shows you how to use your 
computer's own language to perform complex, 
sophisticated operations with unmatched ease and 
efficiency. Includes more than 100 pages of 
programs and systems for monitoring and testing 
your programs. 
S9.95 (paper) 



USING CP/M® 

Judi N. Fernandez & Ruth Ashley 

This detailed, self-paced introduction to Control 
Program/Microcomputers-the most widely used 
microcomputer operating system-lets you get 
maximum capability and efficiency from your 
micro. Use CP/M to create, erase, and copy files, 
run other programs, translate and test 8080 
Assembler language programs, print data from 
files, display the directory of a disk, and much 
more. 
S8.95 (paper) 

Look for these and other Wiley Microcomputer 
Self-Teaching Guides at your favorite bookstore or 
computer shop. For more information, and a 
complete listing of current and forthcoming STGs, 
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TECHNIQUE 



Generate random sequences according 

to Poisson, exponential or normal distributions. 



Not-So-Random Numbers 



Timothy R. Zeigler 

USAF 

309 N. 49th St. 

Grand Forks, ND 58201 



The random number genera- 
tor (RND) available in TRS-80 
BASIC is easy to use and serves 
its purpose very well. It returns 
random numbers from a uniform 
distribution. You specify the pa- 
rameters of this distribution by 
the argument you use when call- 
ing the function. 

There is, however, more to 
random numbers than those 
returned by RND. Many applica- 
tions, especially those in the 
area of simulation, require the 
user to be able to generate num- 
bers selected at random from a 
specified distribution with spec- 
ified parameters. This cannot be 
done by use of the RND function 
alone. 

The Program Listing contains 
three subroutines which can be 
used to generate random num- 
bers from a theoretical distribu- 
tion of stated parameters. Ran- 
dom numbers can be generated 
from the Poisson, exponential 
or normal distributions, depend- 
ing on which subroutine is 
called. The functions available 
in TRS-80 BASIC provide the 



necessary ingredients to gener- 
ate these random numbers. A 
quick review of the three distri- 
butions is in order before dis- 
cussing the subroutines. 

Three Common Distributions 

The Poisson distribution, Fig. 
1a, is a discrete distribution 
specified by one parameter, 
Lambda. The mean and the vari- 
ance of a Poisson distribution 
are both equal to Lambda. 
Lambda need not be an integer, 
but it must be positive. Custom- 
er arrivals, in many queuing situ- 
ations, follow a Poisson distri- 
bution with a mean of Lambda. 

The Poisson and exponential 
distributions are closely related. 
If customer arrivals follow a 
Poisson distribution, the time 
between arrivals follows an ex- 
ponential distribution. The ex- 
ponential distribution, Fig. 1b, is 
a continuous distribution speci- 
fied by the parameter Theta. 
Theta is the mean of the distri- 
bution and must also be posi- 
tive. Many phenomena follow an 
exponential distribution. The 
time between failures of the ICs 
in your micro is an excellent ex- 
ample. 

The normal distribution, Fig. 
1c, is by far the most noted of 
distributions. Its parameters are 
the mean and the standard devi- 
ation. The mean identifies the 
center of the distribution and 
the standard deviation the 



spread. The normal distribution 
is a continuous distribution. It is 
also symmetrical. 

Generating Other 
Random Numbers 

The subroutines in the Pro- 
gram Listing contain the algor- 
ithms necessary to convert the 
random number that results 
from RND(O) to a random num- 
ber from one of the three distri- 
butions discussed. Since the 
parameters of the distribution 
determine the shape of the re- 
sulting distribution, the user 



fix) 
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M POISSON DISTRIBUTION 
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(b) EXPONENTIAL DISTRIBUTION 



MEAN = 66.5 
STANDARD DEV. =2.7 
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(c) NORMAL DISTRIBUTION 



Fig. 1. 



must set the parameters before 
calling the desired subroutine. 

Lambda must be set in the 
variable LA, if a Poisson random 
number is desired. Theta must 
be set in the variable TA for an 
exponential random number. 
Before calling the normal ran- 
dom number generator, the 
mean must be set in EX and the 
standard deviation in SD. In all 
cases, the random number is 
returned in the variable RN. 
Comments in the subroutines 
also indicate what variables are 
used internally by each subrou- 
tine. 

Several goodness-of-fit tests 
have been conducted on the 
numbers generated by these 
subroutines. The tests were ac- 
complished using the Statistical 
Package for the Social Sciences 
(SPSS). As written, the subrou- 
tines provide numbers that fit 
the specified distributions and 
parameters. 

Those interested in the 
"mathemagics" necessary to 
generate these random num- 
bers will find several textbooks 
available. My reference was 
Robert E. Shannon's text en- 
titled Systems Simulation— The 
Art and Science, published in 
1975 by Prentice-Hall, Inc. This 
text also contains FORTRAN 
listings of similar subroutines.! 

Eds. Note: The line printer used 
by 80 Microcomputing prints a [ 
instead of an t. 
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Program Listing 

1 CLS:PRINT"LINES 10 - 700 ARE A PROGRAM I HAVE WRITTEN 

TO GENERATE 
RANDOM NUMBERS FROM THE VARIOUS DISTRIBUTIONS. 

2 PRINT"THE ARTICLE REFERS TO THE SUBROUTINES THAT BEGI 

N AT 
LINE 720. 

3 PRINT: INPUT"HIT ENTER TO CONTINUE" ;A$ 
10 RANDOM 

20 CLS:CLEAR400 

30 F$="#####.###":F1$="####" 

40 DEFINT I,J,K 

50 P$=STRING$(128," ") 

60 ON ERROR GOTO 6 90 

70 PRINT "1 — > N(EX,ST) 

80 PRINT "2 — > POSN (LAMBDA) 

90 PRINT "3 — > EXPON(THETA) 

100 PRINT "4 — > UNIFORM(0,MAX) 

110 INPUT "WHICH DISTRIBUTION DO YOU WANT TO GETNERATE 

1,2,3, OR 4", -J 
120 INPUT "HOW MANY NUMBERS DO YOU WANT TO GENERATE"; II 

130 IF II>4000 THEN PRINTII;"IS TO LARGE, TRY SOMETHING 
LESS THAN 4000" :GOTO120 

140 DIM NUM(II) 

150 DIM C(128) '*********** HISTOGRAM 

160 ON J GOTO 170 ,190 ,210 ,320 

17 INPUT "ENTER THE MEAN"; EX 

180 INPUT"ENTER THE STANDARD DEVIATION" ; SD:GOTO 220 

190 INPUT "ENTER LAMBDA" ;LA 

200 GOTO 220 

210 INPUT "ENTER THETA";TA 

220 ' 

230 FOR 1=1 TO II ' HOW MANY NUMBERS TO GENERATE 

240 PRINT" I'M WORKING AS FAST AS I CAM" : PRINT@814 , I 

250 ON J GOTO 260 ,27 ,280 

260 GOSUB730 : NUM(I)=RN: GOTO290 

270 GOSUB830 : NUM(I)=RN: GOTO290 

280 GOSUB960 : NUM(I)=RN: GOTO290 

290 IK=RN+.5:IF IK<0 OR IK>128 THEN IK=128 

300 C(IK)=C(IK)+1:NEXT 

310 GOTO350 

320 INPUT n ENTER THE MAX"; EX 

330 FOR I=1T0II:NUM(I)=RND(EX) :C(NUM(I) ) =C (NUM ( I) ) +1 

340 PRINT" I'M WORKING AS FAST AS I CAN" : PRINTQ814 , I :NEX 
T 

350 INPUT"PRINT NUMBER Y/N";N$:IF N$="N" THEN 430 

360 IF II<=5 THEN J=II: GOTO 420 

370 1=11/5: J=II-(I*5): K=0 

380 FOR KK=1T0I: PRINT USING F1$;KK+1000 ; : PRINT"=" ; : 

390 PRINT USING F$;NUM (K+l) ;NUM(K+2) ;NUM(K+3) ;NUM(K+4) ; 
NUM(K+5) 

400 K=K+5: NEXT 

410 IF (II-(I*5))=0 THEN 430 

420 PRINT USING F1$;KK+1000 ; : PRINT"=" ; : FOR K=l TO J: P 

RINT USING F$;NUM(K);: NEXT 
430 PRINT: INPUT "SAVE ON DISK Y/N";N$ 
440 IF N$="N" GOTO 530 
450 INPUT "ENTER FILENAME" ;N$ 
460 OPEN "0"fl,K$ 
470 1=11/5: J=II-(I*5): K=0 

480 FOR KK=1T0I: PRINT#1 ,KK+1000;CHR$ (61) ; : 
490 PRINTil, USING F$;NUM (K+l) ;NUM(K+2) ;NUM(K+3) ;NUM(K+4 

) ;NUM(K+5) 
500 K=K+5: NEXT 
510 IF (II-(I*5))=0 THEN 690 
520 PRINT#1, KK+1000;CHR$(61);: FOR K=1T0J: PRINT#1,USI 

NG F$;NUM(K) ;:NEXT 
530 INPUT" IF YOU WANT A HARD COPY OF THE HISTOGRAM 
GET THE PRINTER READY AND TYPE Y ELSE N";N$ 
540 CLS:PRINT"MEAN = "; EX, "STANDARD DEVIATION = ";SD 
550 FOR IK=1T0128 

560 IY=47-C(IK)/(INT(II/1000)+1) 
57 FOR IR=47 TO IY STEP -1 
580 SET (IK-1,IR) 
590 NEXT IR,IK 
600 IF N$="N" END 
610 LPRINT "MEAN = " ; EX ," STANDARD DEVIATION = ";SD,"NUM 

BER =";II:LPRINT:LPRINT 
620 FOR ID =3 TO 47 
630 FOR IX =0 TO 127 

640 IF POINT (IX, ID) THEN MID$ (P$, IX+1, 1) ="*" 
650 NEXT IX 

660 IF INSTR(1,P$,"*")=0THEN GOTO6 80 
670 LPRINT P$:P$=STRING$(128," ") 
6 80 NEXT ID: END 

6 90 CLOSE 

7 00 END 

710 I************************************************** 

**** 
720 ' tHE ARTICLE REFERS TO THE SUBROUTINES THAT FOLLO 

W 
730 "GENERATES A NUMBER FROM THE NORMAL DITRIBUTION N 

(EX,SD) 

Program continues 




this 
publication 

is available 

in 

microform 



Please send me 
additional information 

University Microfilms 

International 

300 North Zeeb Road 

Dept. P.R. 

Ann Arbor, Ml 48106 

U.SA 

18 Bedford Row 

Dept. P.R. 

London, WC1R4EJ 

England 



BINDERS 

order 
yours 

today 



SO 



microcomputing 




Keep your library of 8Q Microcom- 
puting safe from loss or damage in 
these handsomely appointed bind- 
ers with rich dark green covers and 
gold lettering. Each binder holds 12 
issues making an EXCELLENT REFER- 
ENCE HANDBOOK. Several binders 
form a auality library you can be 
proud of. 

S7.50each ..3 for $21.75 

6 for $42.00 

Postage paid in U.S.A. Foreign 

orders please include $2.50 for 

postage. 

Send check or money order only to: 
80 MICROCOMPUTING BINDERS 
P.O. Box 5120, Phila., PA 19141 

Please no C.O.D. orders, 

no phone orders. 

Allow 6-8 weeks for delivery. 



PMC80 16K Level II 

Campatible with all TRS80* 

hardware and software 

plus it has an S100 bus 

$499 

Expansion interface 

(for PMC80) with disk controller 

RS232, parallel, 2 empty slots 

$299 

Expand to 48K for $219 

Call us for Model III 

EPSON MX 80 PRINTER 

$469 

Aerocomp disk drives 

120 day warranty 

Best Buy - 80 track flippy 

$429 complete 

Flip diskette and use both sides! 

Diskettes $2.25 



Color 



Sound 

Synthesizer 

High Resolution 

Graphics 
Fully Expandable 

9K RAM 14K ROM 

LOW PRICE 

APF Imagination Machine 

$475 

With expansion box, disk con- 
troller and 5'/4 drive $849 

SI 232 Serial interface cartridge. 

Connect a printer or modem! 

$135 

A lot of companies offer 
"unbeatable" prices — TGS is 
serious about giving you the 
lowest prices possible on only the 
best quality products. We will 
meet or beat anyone's price. Buy- 
ing from companies that advertise 
high prices and a meet or beat 
policy is self-defeating — TGS will 
go out of business and you'll be 
back paying those high advertised 
prices! We can get almost ANY 
computer or related product for 
you at the lowest possible cost. All 
prices cash discounted. 

M/C. Visa, COD add 5%. Shipp- 
ing freight collect, 5%, or $5 per 
item, your choice. 

\rirJl£ 
£J^\l!>jJll£ 

Route 2, Box 44 ^73 
Canton. Kansas 67428 
(316) 628-4935 

"Trademark ot Tandy/Radio Shack 



sSee List of Advertisers on page 306 
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STATISTICAL ANALYSIS PACKAGE 



"Absolutely the best statistical analysis package I've seen 

for a microcomputer..." 

Eugene Allred, President of Consolidated Data Services 

StatPac is a 3-part program written and designed for re- 
search, survey and questionnaire processing, data entry, 
statistical analysis, management and market analysis. 
Whether you're a researcher, a programmer or reader and 
user of data — StatPac can fit your needs because you 
create the data file format to fit your specifications. 



Stat Pac is the SPSS of small computers. It eliminates 
the need for expensive programming or renting time on 
large mainframe computers. 

Available for Model I (requires NEWDOS) or Model III, 2 
disk drives, 48K RAM and a lineprinter. StatPac handles 
all phases of research analysis including: frequency 
analysis, descriptive statistics, crosstabs & chi-square, 
t-test, correlation & linear regression, analysis of variance, 
multiple linear regression and management reports. 



CODEBOOK AND DATA ENTRY 

Enter data using key-to-disc system with 
automatic back-up of data to protect 
against system crashes. Enter survey, re- 
port, test or lab data using fixed or free for- 
mat. Programs feature screen prompting to 
guide data entry operator, automatic error 
detection, user-definable tab stops, 
repeating keyboard, plus much more. 



DATA MANIPULATION 
Edit your files with fast machine language 
editor using "pencil"-like commands, bet- 
ter than "pencil." Verify data files for "out- 
of-bounds" entries. Recode and transform 
data using conditional and absolute re- 
codes and unlimited logical operators. 
Edit files larger than memory size. Accepts 
up to 2000 cases and up to 255 variables. 



STATISTICAL ANALYSIS AND 
BATCH PROCESSING 

Create a "task control file" to specify all 
analysis for batch processing. Save, edit 
or reuse task control file on other data 
sets. "Select if" feature allows analysis on 
partial data sets. All outputs to parallel or 
RS232 lineprinter. Error trapping features 
minimize aborted jobs. 




Total package of 3 disks and extensive step-by-step user's manual is $185. Manual may be 
purchased separately for $30, and may be applied to the purchase price. Entire package in- 
cludes over 30 integrated programs. 
Write or call for free 16 page brochure. 

Walonick Associates ^-363 
5624GirardAve.So. 
Minneapolis, MN 55419 
(612) 866-9022 



Prolpssion.il softwar 



TRS-80® MODEL II 



NOW AVAILABLE 1 



BASIC CROSS REFERENCE 



+ $3.00 
POSTAGE & 

HANDLING 



• SAVE HOURS' *Cft ftO 

• PARALLEL/SERIAL PRINTERS $59.99 

• SEVERAL OPTIONS $100.00 FOR VECTOR GRAPHICS SYSTEMS. 

• 6/8 LPI VARIABLE DOCUMENTATION ONLY $10 00 
I INE WIDTH & PAGE DEPTH DEDUCTIBLE ON PURCHASE 



• UNO WHERE NAMES ARE USED EAST 1 

• CAN YOU DELETE THAT LINE^ EINDOUI 

• DO YOU HAVE DEAD CODING' 

• WANI A NICE PROGRAM LISTING WITH 
DATE & TIME IN HEADING 

DISK SORT 

• MENU DRIVEN I 

• RANDOM FILES 

• CHAINS TO SYSTEM 
OR BASIC PROGRAMS 

BASIC COMPILER 

• 1RSDOS" 'BASIC COMPATIBLE! • fcASY IO USE 

• EASIER THAN BASIC BY UP TO • AUGMENTED WITH OUR 
«) TIMES DOCUMENTATION — 

TRS-Ho- & trsdos- are registered GOOD-LYDDON DATA SYSTEMS M - 2 ; E % CHARQE of V(SA 

TRADEMARKS OE TANDY CORP 5486 RIVERSIDE DR., CHINO, CA. 91710 



• YOU DON'T HAVE TO BE A PROGRAMMER TO USE 

• EASY TO USE »EASY TO INSERT INTO 
•IASI' |OB STREAM FOR 

• SPECS SAVED NON-STOP RUNNING' 
ON DISK 



$69.99 

DOCUMENTATION ONLY $1000 
DEDUCTIBLE ON PURCHASE 



+ $300 
POSTAGE & 
HANDLING 



► WRITTEN BY MICROSOFT 

$350.00 



y\ hit" 

+ $5.00 POSTAGE & 
HANDLING 




Modal 488-BOB For Model 1 Operation 




Model 488-80C For Model 3 Operation 



IEEE-488 TO TRS-80* INTERFACE 

Everything needed to add powerful 
BASIC GPIB-488 controller capability to 
TRS-80 Model 1 or 3, Level 2 or DOS with 
a minimum of 16K. 

488-80B or 488-80C $245. 

+ shipping, insurance & tax 

Optional Relocatable Machine Level GPIB 
Driver for Assembler Level Programming-$35. 

WHEN ORDERING SPECIFY DISK OR TAPE 

SCIENTIFIC ENGINEERING LABORATORIES 

11 Neil Drive • Old Bethpage, NY 11804 
Telephone: (516) 694-3205 ^291 

'Trademark of Tandy Corp. 

There is no affiliation between Scientific Engineering 

Laboratories and Tandy Corp. or Radio Shack. 



SICK s 

OF PROGRAMS THAT TREAT YOU LIKE 
AN IDIOT, WASTING TIME & MONEY?? 

RANDOM ACCESS PAYROLL 

• NO Complicated Initialization 

• EDIT & LIST 

• QUARTERLY Reports 

• PROGRAM Loads In Less than 30 sec. 
PAY ANY EMPLOYEE ANYTIME 

• SALARIED OR HOURLY 

• COMPLETE Including EIC 

• PRINTS on NEBS 9020 CHECKS 

• NO SPECIAL PAYROLL CHECKS 

• SPECIAL HOURS-SPECIAL PAY 

• TWO SAVINGS— INCLUDING RIA 

• STATE TAX— WORKMENS COMP. 

• CLASSED BY Occupation or Dept. 

• PAYSTUB Shows Year-to-date 

• No Filenames— All Automatic 
SEND YOUR STATE TAX SCHEDULE 

• We'll Customize for your State Tax 

WRITTEN IN BASIC FOR 
COMPLETE CONTROL 

Documentation & Disk $55.00 

Documentation only $10.00- 
credit to purchase 

MASS ADD 5% or Exempt number 
Requires: 

Min. 32K-1 Drive-Printer = 50 EM P 
48K-2 Drives-Printer = 100 + 
TEL. 7 AM-9:30 PM EASTERN 
(617)359-2364/6370 

MEDFIELD " 421 
COMPUTER SOFTWARE 

39 GREEN ST., MEDFIELD, MA 02052 
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EX — MEAN SD — STANDARD DEVIATION 
ROUTINE USES VARIABLES V8,V9,EX,SD, AND RN 
EX AND SD MUST BE SET BY USER. RANDOM NUMBER IN 
RN. 



746 
75( 



76( 
771 
78S 
79( 

80( 
811 
82t 
83C 
84C- 



850 



870 
B8B 
890 
900 
910 
920 
930 
940 
950 
960 
970 



62 



SEE SHANNON'S "SYSTEM SIMULATION" PAGE 360-3 
FOR AN EXPLANATION OF THE METHOD. 



V9=2*RND(0)-1 

V8=V9[2 + (2*RND(0)-1) [2 

IF V8>=1 GOTO 770 

RN = EX + (V9*SQR( ( -2 . 0*LOG (V8) )/V8) ) *SD 

RETURN 

END 

'GENERATES A NUMBER FROM THE POISSON DISTRIBUTION W 
ITH A 
MEAN AND VARIANCE OF LAMBDA. 
LA — LAMBDA 

ROUTINE USES V7,V8,LA, AND RN 
USER MUST SET LA. RANDOM NUMBER RETURNED IN RN. 

SEE SHANNON'S "SYSTEM SIMULATION" PAGE 358-359 

FOR AN EXPANATION OF THE METHOD. 
RN=0.0 
V7=EXP(-LA) 
V8=1.0 
V8=V8*RND(0) 

IF (V8-V7)<0 THEN RETURN 
RN=RN+1. 
GOTO 90 
RETURN 
END 



'GENERATES A RANDOM NUMBER FROM AN EXPONENTIAL DIST 
RIBUTION WITH A MEAN OF THETA. 
TA— THETA 

ROUTINE USES V7,TA, AND RN. 

USERS PROVIDES VALUE FOR THETA IN TA. RANDOM NUM 
BER IN RN 

SEE SHANNON'S "SYSTEM SIMULATION" PAGE 360 
FOR AN EXPANATION OF THE METHOD. 
RN=-TA*LOG(RND(0) ) 
RETURN 



Atiast-theDYNATYPER 

TYPEWRITER INTERFACE! 





Turn your electric typewriter into a low cost, 
high quality hard copy printer. 1 year warranty 

DYNATYPER - Rochester Data's patented* Computer/Typewriter 
Interface is the industry standard for typewriter output. 

• 2 minutes to initially install and 5 seconds to remove or replace. 

• You do not have to modify your typewriter. All factory war- 
ranties and maintenance agreements on your typewriter will be 
honored. 

• Compatible with all power carriage return typewriters having 
standard U.S. keyboard. The Dynatyper works with Selectrics 
(model 1) and most non-Selectrics (model 2). Please specify. 
Typewriter conversion between models takes 2 minutes and the kit 
(17 plungers) is available for a nominal fee. 

RS232 with Basic Available For 
$699.00 

• Delivery: Stock to two weeks. Price $499 for complete system. 
F.O.B. Rochester, Domestic. VISA and Master Card accepted. 
Call Ken Yanicky at 716-244-7804 



•Pat. Pending 



^468 



3000 Winton Road South, Rochester, N.Y. 14623 



incorporated 




Radio /haelO 

DEALER ^JH / 

TRS-80 DISCOUNT 



□ NO OUT-OF-STATE TAX 

□ NO SHIPPING COSTS 



TRS-80 
MODEL II 64K 

PACKS ENOUGH DATA HANDLING POWER FOR 
MANY SMALL BUSINESSES. 



*3500 




TRS-80 MODEL III 

32K-2 DISKS 

*2100 

NEW PERSONAL COMPUTER . . . 
REAL-TIME CLOCK, SHARPER 
CRT IMAGES AND FASTER 
LOADING CASSETTES 



CERTIFIED CHECKS 
CASHIERS CHECKS 
OR CREDIT CARDS 




TRS-80 COLOR $ OOA 

COMPUTER OR VIDEO *" OJ9 each 

A LOW COST, COLOR COMPUTER FOR PERSONAL BUSINESS OR ENTERTAINMENT 

PERRY OIL & GAS INC. " 6 ' 

137 NORTH MAIN STREET, PERRY, MICH. 48872 

PHONE (517) 625-4161 

WARRANTIES HONORED BY ALL RADIO SHACKS • *T.M. TANDY CORP. J 



vSee List of Advertisers on page 306 
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These Next 4 Pages 
are for TRS-80* f 
Owners ONLY! 



The next 4 pages contain over 100 Model III compatible programs for your TRS-80. Whatever your 
interests, we have a software program for you. We list sections on Home/Personal, Business, Games, the 
Arts, Home Education, Utilities, Special Business, Flight Simulations, Electronics, Comp-U-Novels, and 
Popular Games. These programs can be purchased through your local Instant Software dealer, or you can 
call us directly using our toll free number. We ship our orders within 48 hours. Browse through these 4 
pages, we're sure you'll enjoy your selections. Remember: WE GUARANTEE IT! 



UTILITIES 

TRS-80 UTILITY I— Give your program that 
professional look. RENUM: Renumber any 
Level II program to make room for modifica- 
tion or to clean up the listing. DUPLIK: With 
this program you can duplicate any BASIC, 
assembly/machine language program, ver- 
ify the data and record the program to tape. 
You can even record Level I programs on a 
Level II keyboard. (T1) Order No. 0081 R 
$9.95. 

TRS-80 UTILITY II— Change the drudgery of 
editing your programs into a quick, easy 
job. It includes: •CFETCH: You'll be able 
to merge consecutively numbered BASIC 
programs into one program. It will also 
search through any Level II program tape 
and display the file names for all programs. 
• CWRITE: Combine subroutines that work 
in different memory locations into one pro- 
gram. It works with BASIC and/or machine- 
language programs and will give you a gen- 
eral checksum to verify that your program 
hasn't dropped any bits. (T1) Order No. 
0076R $9.95. 

THE COMMUNICATOR-This package lets 
you transmit data over the telephone lines. 
The full ORIGINATE/ANSWER capability al- 
lows your TRS-80 to be controlled from a 
remote-based terminal, or allows two 
TRS-80s to "talk" to each other. You can 
transmit data or programs from home base 
to a remote terminal. There will be a 
simultaneous display of information on 
both video monitors. Requires a modem 
and RS-232 interface for each terminal. (T1) 
Order No. 0126R $9.95. 

TERMINAL-80— Communicate with the 
rest of the world! These programs give you 
control of the RS-232 port of your Expan- 
sion Interface. You can connect one or 



more serial terminals to your TRS-80 and it 
will accept input from the RS-232 interface 
just as if it were entered from the keyboard. 
Your TRS-80 can also be transformed into a 
dumb terminal, for use in a time-sharing 
situation to talk with "big" computers via a 
modem. The LPRINT/LLIST commands will 
transfer a program to a receiving computer. 
Supports upper/lowercase, Level II & III 
control characters, and all functions such 
as CHR$. The baud rate is software con- 
trolled for your convenience. Requires an 
RS-232 interface. (T1) Order No. 0130R 
$24.95. 

DISK SCOPE— Need to check out the con- 
tents of a disk? Then check out these three 
programs. • FILELOC: If you know the 
name of the program or data file, FILELOC 
will show you which tracks and sectors 
contain that file, as well as how much mem- 
ory the file takes when loaded into RAM. 
You can then print the information, search 
for a new file or exit to BASIC. «CDISK: 
This utility and test program allows you to 
view any track and sector on your disks in 
ASCII, Hex and screen POKEs. It disregards 
all protection codes. • PASSWORD: This 
machine-language program not only gives 
you a password for individual files, but for 
whole disks as well. (T2) Order No. 0139R 
$19.95. 

DISK EDITOR— This machine-language 
program gives you total access to ANY byte 
of information in ANY sector in ANY track 
of your disk! You can examine, alter, add 
and delete information with ease. You can 
even search for a specific string (up to 8 
characters long). If you need hardcopy, use 
the LINEPRINT command to send a copy of 
the video display to your printer. It can be 
used with TRSDOS, NEWDOS and Micro- 
DOS. Both the 35 and 40 track versions are 
included. (T2) Order No. 0180RD $39.95. 



•TRS-80 is a trademark of Tandy Corporation. 



BPA (BASIC PROGRAMMING ASSISTANT) 

— BPA does three things for you: (1) It will 
list the variables used in a BASIC program. 
Optionally, it will list the line numbers 
where each variable appears; the variable- 
type symbol (string, integer, single or dou- 
ble precision); whether it is dimensioned 
and where it is changed. (2) It will produce a 
cross-referenced list of line numbers for 
GOTO's, GOSUB's and IF. . .THEN state- 
ments. (3) It will list the line numbers where 
a selected BASIC function word (e.g., IN- 
PUT, PRINT) is used. (T1) Order No. 0203R 
$14.95. 

TLDIS & DLDIS— These two utilities are 
ideal for those who wish to decipher and/or 
modify machine-code programs. TLDIS 
(Tape-based Labeling Disassembler) and 
DLDIS (Disk-based Labeling Disassembler) 
are three-pass, label-assigning disassem- 
blers that assign labels (where appropriate) 
to the routines in a machine-language pro- 
gram. Their output is almost identical to 
that of a hand-assembled source code. 
TLDIS can send the disassembly to cas- 
sette tape, DLDIS can send it to disk; both 
send it to the video monitor. Each version 
can be reassembled using Tandy's 
EDTASM or Apparat's disk extension of 
EDTASM, respectively. You can also send 
either disassembly to a printer (R/S parallel 
port). Because of the labels, it Is a simple 
matter to change any object code program 
by disassembling it and making changes to 
the resulting source code, without losing 
track of the jump/load addresses. Labels 
start at "AA00" and increment up, in even 

CODE— Min. System Required - 

(T1)=TRS-80 Model I Level II 

16K RAM 
(T2)=TRS-80 Model I Level II, 

16K RAM with Expansion 

Interface 16 + K RAM and 

one disk drive 
(T3)=TRS-80 Model II, 32K RAM 



numbered steps (AA02, AA04, etc.). The odd 
numbers (AA01, AA03, etc.) are left for your 
(optional) use in the reassembly. TLDIS (T1) 
Order No. 0230R $14.95. DLDIS (T2) Order 
No. 0231 RD $19.95. Model III compatible 

THE DISASSEMBLER-This is a single- 
pass, hex-notation that sends its output 
either to tape or to a lineprinter (R/S parallel 
port). The tape output is directly compatible 
with Tandy's EDTASM, so you can disas- 
semble an object code tape and output it to 
tape, then use EDTASM to add, delete, 
change and re-assemble your new version. 
It displays the displacement and absolute 
address of any relative jumps made by the 
disassembled program. It also displays and 
ASCII characters used in an LD or CP op- 
code. It is relocatable and you can jump to 
memory locations and transfer control be- 
tween Disassembler and other utility pro- 
grams. (T1) Order No. 0232R $9.95. 

COMPRESSION UTILITY PACK— Do you 
want to add sound routines to a Space 
Trek program that already uses 16K? Or 
maybe you need an extra column in that 
financial report program, but when you 
run it, you get OM errors? 

With a wave of your hand, and a little 
help from either of the COMPRESSION 
programs, in this package, your problems 
are over. 

COMPRESS-80 fits in 265 bytes, deletes 
spaces, and offers the choice of leaving 
REMark line numbers in the program, or 
deleting them altogether, 
SUPERCOMPRESS uses 767 bytes and 
can do everything COMPRESS-80 can do 
PLUS, it packs the program into the 
smallest possible number of multiple 
statement lines. 

With the Compression Utility Pack and 
your own programming skill, you can add 
all those little extras to your BASIC pro- 
grams. (T1) Order No. 0246R $19.95. 



s l e o e caT r Just Call Toll-Free 

INSTANT 
SOFTWARE 
DEALER OR 



1-800-258-5473 



We Guarantee It! 



r^ t *nt sof,^ 



Instant Software 




PETERBOROUGH, N.H. 03458 



^ ^/© Guarantee ~\^ 

OUR PROGRAMS ARF GUARANTFFD 
TO BE QUALITY PRODUCTS. IF NOT 
COMPLl TFLY SATISF1FD YOU MAY 
RFTURN Till- PROGRAM WITHIN 60 
DAYS. AURFDIT OR RFPLACFMF.NT 
WILL BF WILLINGLY GIVFN FOR 



ANY RFASON. ! 
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THE ARTS 

COMPU-CAROLS— We are proud to pre- 
sent a selection of Christmas carols, 
played by your TRS-80. Just place an AM 
radio next to your keyboard and you'll be 
amazed at the quality of this computer-gen- 
erated music. You'll hear AWAY IN A MAN- 
GER, NOEL, SILENT NIGHT, O LITTLE 
TOWN OF BETHLEHEM and eight more of 
your favorite carols. (T1) Order No. 0036R 
$9.95. 

DOODLES AND DISPLAYS II— It includes: 

• DOODLE PAD: Draw pictures and save 
them on cassette tapes. »SYMMETRICS: 
An electronic kaleidoscope that's con- 
stantly changing. • DRAWING: Like DOO- 
DLE PAD, but for the serious artist. Over 40 
user commands. • RANDOM PATTERN 
DISPLAY: The computer does the drawing, 
but those with itchy fingers can make alter- 
ations. • MATHCURVES: Bring those ge- 
ometry lessons to life. Six different geomet- 
rical curves on the screen of your TRS-80. 

• RUGPATTERNS: Designs rug patterns 
with a choice of user or computer control. 
(T1) Order No. 0042R $7.95. 

MUSIC MASTER— Includes these four 
audio treats: • MICRO-ORGAN: This pro- 
gram changes your computer into a musi- 
cal instrument, with a range of four octaves 
with three voices! You can play sharps and 
flats to imitate the sounds of an organ, 
harpsichord or piano. • KALEIDOPY: Now 
you can have a computerized "player 
piano." Generate a symmetrical graphics 
pattern and then see it transformed into 
music. • COMPOSER: Experiment with 
computer-generated music. You can select 
the length of the piece, its scale, and its 
tempo. «KEYMANIA: Test your memory 
and your musical ear. One to four players 
try to repeat the melody that the computer 
creates. (T1) Order No. 0084R $9.95. 
Model III compatible 

ELECTRONICS 

HAM PACKAGE I— This versatile package 
lets you solve many of the problems com- 
monly encountered in electronics design, 
including: •BASIC ELECTRONICS WITH 
VOLTAGE DIVIDER: Solve problems involv- 
ing Ohm's Law, voltage dividers and RC 
time constants; »DIPOLE AND YAGI AN- 
TENNAS: Design antennas easily, without 
tedious calculations. (T1) Order No. 0007R 
$7.95. Model III compatible 

ELECTRONICS I— This package will not 
only calculate component values for you, it 
will also draw a schematic diagram. Includ- 
ed are: • TUNED CIRCUITS AND COIL 
WINDING: Design tuned circuits without re- 
storing to cumbersome tables and calcula- 
tions; «555 TIMER CIRCUITS: Design 
astable or monostable timing circuits using 
this popular IC; • LM-381 PREAMP DE- 
SIGN: Design IC preamps with this low- 
noise IC audio amp. (T1) Order No. 0008R 
$7.95. Model III compatible 

QSL MANAGER— Ever looked at your log 
book and wondered if you sent a QSL card 
to the operator you worked last week? 
Maybe you sent a QSL but can't remem- 
bered getting one in return. The QSL MAN- 
AGER will help you set up a computerized 
log book that gives you instant access to 
your records. Make complete log entries 
which include: Date, Time, Call sign, Name, 
Band, both the sent and received Signal Re- 
ports, the Mode, whether a QSL card was 
sent or received and any remarks you want 
to add. The QSL MANAGER program has 
built-in editing features that let you keep 
your log book up to date. (T2) Order No. 
0151 RD $19.95. Model III compatible 



HOME EDUCATION 

MONEY MADNESS— You can experience 
the Raw Power of High Finance with two 
Big Money empires. •MILLIONAIRES: Can 
you manipulate $1000 into a million dollars 
in fifteen years? It all depends on your 
strategy as you buy and sell properties, 
negotiate bank loans, collect rentals and 
accept sealed bids. • TIMBER BARON: An 
in-depth experience of the timber business, 
from the time you cut the trees until your 
milled lumber reaches the market. These 
transactions are affected by those tough, 
unexpected eventualities that can upset 
the most careful plans. (T1) Order No. 
0156R $9.95. Model III compatible 

TEACHER'S AIDE— Now you can have the 
benefits of Computer Aided Instruction 
(CAI) in your own home. Create a question 
and answer lesson (up to 8000 characters), 
save the lesson on disk, then create an en- 
tire sequence of lessons. Perfect for 
parents, teachers and students who need 
the unlimited patience and undivided atten- 
tion only a computer can provide. (T2) Order 
No. 0214RD $34.95. Model III compatible 

GRADE BOOK— Teachers, now you can 
use the speed and accuracy of the comput- 
er to help calculate student grades. Just 
type in the grades for tests, quizzes, home- 
work, classwork or special projects to cal- 
culate and display individual grade aver- 
ages. You can also obtain a cumulative 
grade for a specific marking period — or a 
whole year! (T1) Order No. 0050R $9.95. 

Model III compatible 
TEACHER— This program enables you to 
create your own tests, quizzes and exer- 
cises for the education of your children. 
You can even provide "graphic" reward for 
your children and provide hints for problem 
solving. (T1) Order No. 0065R $9.95. 

Model III compatible 
LIFE— Create "living" organisms in which 
cells are constantly active. They are born, 
they multiply, they die. This computerized 
version of LIFE is based on the well known 
game popularized by Martin Gardner. You 
can create one-cell organisms, then ob- 
serve their growth patterns. The library of 
commands give you unlimited versatility in 
the control of the cell patterns you have ar- 
ranged. (T1) Order No. 0078R $9.95. 

Model III compatible 
ARCHIMEDES' APPRENTICE-This two- 
part package will teach you the formulas 
used to find the volume of any solid object 
including paralellopipeds (cubes and rec- 
tangular solids), prisms, pyramids, 
cylinders, cones and spheres. It will show 
you on-screen diagrams of these figures, 
and present you with the formulas you'll 
need to compute their volumes. (T1) Order 
No. 0092R $9.95. Model III compatible 

TYPING TEACHER— This complete seven- 
part package takes you from initial familiar- 
ization with the keys, through typing words 
and phrases, to complete mastery of the 
keyboard. Your computer can even become 
a bottomless page for typing practice. (T1) 
Order No. 0099R $9.95. 
Model III compatible 

VIDEO SPEED READING TRAINER— Most 

people's reading speed is limited simply 
because they read individual letters or 
words. Now you can increase your reading 
speed and comprehension by reading 
whole words and phrases. This package 
will train your mind to quickly recognize 
numbers, words, letters and phrases. Start 
at any speed level at which you are comfor- 
table and the computer will automatically 
advance you as your reading speed and 
comprehension increases. (T1) Order No. 
0100R $9.95. Model III compatible 



WORDWATCH— four different programs to 
entertain and educate. ©WORD RACE— 
race to the finish line of defining words cor- 
rectly; «HIDE N SPELL— find the mis- 
spelled word, then correct it; • SPELLING 
T'JTOR— a spelling lesson, but beware, the 
spelling may become unusual. There you 
have it, Wordplay x four = WORDWATCH. 
(T1) Order No. 0111 R $7.95. 

Model III compatible 
MIND WARP — This game includes: 
• MIND TWIST: a Mastermind-type game 
with a twist. Try to guess the computer's 
secret digit sequence. • MIND BENDER: A 
multi-level game where you must discover 
the computer's secret code. It's no mystery, 
the MIND WARP package is for puzzle 
lovers everywhere. (Tl) Order No. 0118R 
$9.95. Model III compatible 

INVESTOR'S PARADISE— Here are two 

programs to test your skill in the stock 
market. • STOCK TREK: a stock market 
simulation in which you and up to five other 
investors buy and sell stocks. • SPECULA- 
TION: a step beyond a mere simulation, you 
enter financial data on up to 25 real compa- 
nies and start playing the market. This 
package lets you experience the thrills and 
triumphs of the stock market without risk- 
ing a dime! CM) Order No. 0125R $9.95. 
Model III compatible 

"TRS-80 is a trademark 



IQ TEST— IQ TEST will administer and 
score an intelligence test in just 30 min- 
utes. There are three equivalent tests, each 
consisting of 3 questions that survey your 
general knowledge and problem solving 
abilities. <T1) Order No. 0157R $9.95. 



SPECIAL BUSINESS 

BOWLING LEAGUE SECRETARY-This 

package is simple to operate and provides 
a dynamic reference to all the names of in- 
dividual bowlers, their team numbers, 
scores, team names, league data and all 
necessary statistics. The system is highly 
adaptable, with 1 7 different scoring options 
that allow you to custom tailor the program 
to suit your league's special needs. And, if 
you even have any problems, simply type 
HELP and the program will give you an ex- 
planation of what information is needed- 
complete with a sample entry. The system 
puts at your fingertips all individual weekly 
scores, team cumulative scores, bowler 
cumulative scores and individual leaders in 
the following categories: high single, high 
series, high average and high points. (T2) 
Order No. 0095RD $49.95. 
Model III compatible 
of Tandy Corporation. 



SEE YOUR LOCAL 
INSTANT SOFTWARE DEALER OR 

Just Call Toll-Free 
1-800-258-5473 



BEGINNER'S RUSSIAN— In order to under- 
stand a foreign culture, you must know its 
language. The three programs in this pack- 
age will give you on-screen displays of the 
characters of the Cyrillic alphabet, detailed 
instructions of their proper pronunciation 
and exercises that will have you recogniz- 
ing and speaking simple Russian words. An 
excellent package for students, business- 
men, scientists or anyone who is interested 
in learning the Russian language. (T1) Order 
No. 0136R $9.95. Model III compatible 

EVERYDAY RUSSIAN— will acquaint you 
with the words for various foods, places to 
eat, signs and the names of stores— exact- 
ly what a traveller needs to know. Each of 
the three parts of the package not only 
teaches you the words but quizzes you on 
them as well. You can even practice typing 
in Russian. Discover the Russian language 
today! (T1) Order No. 0137R $9.95. 
Model III compatible 

NO MATTER WHAT 
YOUR NEEDS ARE, 
INSTANT SOFTWARE 
HAS A PROGRAM 
FOR YOU. 



BOWLING LEAGUE STATISTICS SYSTEM 

— Keeps a computerized list of league data, 
team data and data for each bowler. Ex- 
tremely flexible, it has a total of 16 different 
options to let you modify the program to 
suit your league's rules. It is easy to use 
and has a built-in "HELP" feature to aid 
you. (T1) Order No. 0056R $24.95. 



HOME/PERSONAL 

HOUSEHOLD ACCOUNTANT— Save with 
these two programs: • BUDGET & EX- 
PENSE ANALYSIS: It has nine sections for 
income and expenses and an option for 
quarterly/yearly reviews. • LIFE INSUR- 
ANCE COST COMPARISON: Compare the 
total costs of various insurance policies. 
Contrast term with whole life. It will store 
and display up to six prospective policies. 
(T1) Order No. 0069 $7.95. 
Model III compatible 
PERSONAL BILL PAYING— You can keep a 
computerized list of ALL your bills (up to 22 
accounts), each listed with its name, num- 
ber, due date and amount owed. Individual 
accounts can be displayed with a month- 
by-month breakdown of payments (includ- 
ing check numbers) and current accounts 
can be seperated from inactive ones. It 
allows you to save the data to tape for 
future use. (T1) Order No. 0103R $7.95 
Model III compatible 
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POPULAR GAMES 

BEGINNER'S BACKGAMMON/KENO— 

Why sit alone when you can play these 
fascinating games: •BACKGAMMON: 
Play against the computer in a game that's 
sure to sharpen your skills; • KENO: Enjoy 
this popular Las Vegas gambling game — 
guess the right numbers and win big! (T1) 
Order No. 0004 R $7.95. 
Model III compatible 

CHESSMATE-80— This versatile chess op- 
ponent gives you a choice of ten levels of 
play, from the "blitz" level (the computer 
has 3 seconds to move) to the infinity level 
(where the computer will consider every 
possible move— which could take years). 
This machine-language program is a con- 
servative player and follows all the rules of 
international play. CHESSMATE-80 can 
teach you how io move and allow you to set 
up the board and play end games or special 
problems. CHESSMATE-80 battled Sargon 
II to a draw at two minutes a move and beat 
Microchess 1.5 in six moves. (T1) Order No. 
0057R $19.95. Model III compatible 

YOUR CRIBBAGE AND CHECKERS PART- 
NER— CRIBBAGE is a two-person game 
that you are sure to enjoy. This is NOT a 
tutorial— it is a game worthy adversary. 
CHECKERS: An old favorite which follows 
international rules, including multiple 
jumps. (T1) Order No. 0068R $9.95. 

Model III compatible 
CARDS— A one-player package to let you 
play, with your computer, these famous 
games: • DRAW AND STUD POKER: These 
programs will keep your game sharp; • NO- 
TRUMP BRIDGE: Develop your strategy and 
(hopefully) increase your skill. (T1) Order 
No. 0063R $7.95. Model III compatible 

FLIGHT 
SIMULATIONS 

RAMROM PATROL/TIE FIGHTER/KLINGON 

CAPTURE— «RAMROM PATROL: Destroy 
the RamRom ships before they capture 
you. 'TIE FIGHTER: Wipe out the enemy 
Tie fighters and become a hero of the Re- 
bellion. »KLINGON CAPTURE: You must 
capture the Klingon ship intact. (T1) Order 
No. 0028R $7.95. Model III compatible 



FLIGHT PATH— This three-part package in- 
cludes: 'MOUNTAIN PILOT: Become a dar- 
ing bush pilot and fly supplies to a remote 
mining camp. You must cross mountain 
ranges and struggle with headwinds, tricky 
navigation and rapidly diminishing fuel. 
•O'HARE: A control tower simulation for 
you would-be Air Traffice Controllers. You 
are responsible for the lives of hundreds of 
passengers as you guide aircraft through 
your control sector. 'PRECISION AP- 
PROACH RADAR: Combines the skills of 
pilot and Air Traffic Controller, as your com- 
mands guide an aircraft in its approach to 
the field and a safe landing. (T1) Order No. 
0171 R $9.95. Model III compatible 

BALL TURRET GUNNER-lmagine your- 
self at the control console of a strategic 
laser weapon, deep in the space lanes. Your 
hindsight detector informs you of a Gnat 
fighter coming in for an attack so you 
swivel you laser turret until you can see the 
target. Watch the Range Indicator and your 
Targeting Computer's readout closely, be- 
cause you'll only have a fraction of a sec- 
ond to catch him in your sights. Will you 
transform the Gnat intoa ball of ionized gas 
or will you see that blinding flash that 
means The Big Demotion? BALL TURRET 
GUNNER, with you choice of multiple lev- 
els of difficulty, optional sound effects and 
excellent graphics, is more than a game. 
It's an event to be savored. (T1) Order No. 
0051 R $9.95. Model III compatible 

JET FIGHTER PILOT-ln this brilliantly 
realistic simulation, you become the pilot 
of a twin turbo-jet fighter. Begin your mis- 
sion from either the deck of a carrier or from 
an airfield. During flight, you'll need to con- 
stantly monitor your display and make the 
necessary adjustments to the throttle, 
flaps, and air spoilers; you must decide 
when to retract landing gear and release 
your drop tanks! There is an on-board Navi- 
gational Computer, a Glideslope/Localizer 
and a Weapons Control Computer. Earn 
your wings with JET FIGHTER PILOT. (T1) 
Order No. 0159R $14.95. 
Model III compatible 

SPACE TREK II— Protect the quadrant from 
the invading Klingon warships. The Enter- 
prise is equipped with phasers, photon tor- 
pedoes, impulse power and warp drive. (T1) 
Order No. 0002R $7.95. 
Model III compatible 



'TRS-80 is a trademark of Tandy Corporation. 



SEE YOUR LOCAL 
INSTANT SOFTWARE DEALER OR 

Just Call Toll-Free 
1-800-258-5473 



AIR FLIGHT SIMULATION— Take off and 

land your aircraft without making a crater. 
This "instruments only" simulation starts 
you with a full tank of fuel, which gives you 
a maximum range of about 50 miles. You'll 
get constant updates of air speed, com- 
pass heading and altitude. After you've ac- 
quired a few hours of flight time, you can try 
flying a course against a map or doing aero- 
batic maneuvers. T(1) Order No. 001 7R. 
$9.95. Model III compatible 

SPACE TREK IV-«STELLAR WARS: En- 
gage and destroy Tie fighters in your attack 
on the Death Star. For one player. •POPU- 
LATION SIMULATION: A two-player game 
where you control the economy of two 
neighboring planets. You must decide: 
Guns or Butter? (T1) Order No. 0034R $7.95. 
Model III compatible 
BASIC AND INTERMEDIATE LUNAR LAND- 
ER— Bring your lander in under manual 
control. The basic version is for beginners; 
the intermediate version is more difficult, 
with a choice of landing areas and rugged 
terrain. (T1) Order No. 0001R $7.95. 

Model III compatible 
COSMIC PATROL— We put you in com- 
mand of a small interstellar patrol craft. 
You must defend Terran space and prey on 
the Quelon freighters that carry vital war 
supplies— but beware of their l-Fighter es- 
corts. They're well armed, extremely fast 
and they NEVER miss! With its real-time ac- 
tion, impressive sound option and superb 
graphics, this machine-language program 
is the best of the genre. (T1) Order No. 
0223R $14.95. Model III compatible 

Airmail Pilot —Return to the early days 
of aviation. You must fly the mail from Col- 
umbus to Chicago. Your Jenny, a cloth- 
covered biplane, must take you through un- 
predictable winds, hail and electrical 
storms. Your mission is to get the mail 
through in the shortest possible time. There 
is an on-board clock to time you flight, from 
takeoff to touchdown . . . assuming you are 
able to complete it. (T1) Order No. 0106R 
$9.95. Model III compatible 



NIGHT FLIGHT— Your mission is to fly over 
the North Atlantic and make a nighttime 
photo/recon flight above the enemy fleet. 
NIGHT FLIGHT lets you take-off, fly and 
land a propellar-driven aircraft. You can 
practice approaches and landings with an 
on-screen display of the landing field infor- 
mation—it will practically teach you to fly. 
(T1) Order No. C117R $9.95. 
Model III compatible 

COMP-U-NOVELS 

WHO-DUN-IT? Criminal elements have 
committed five dastardly crimes. As the 
investigating detective, you must solve 
them. 

You can compete against either Detec- 
tive Nybbles, a computerized sleuth, or up 
to four other human detectives. 
•DEDUCTION: Guess the order of four 
symbols out of six or seven different ones. 
To make things even more complicated, 
you can let the computer repeat symbols 
and have a range of 2401 possibilities. 
(T1) Order No. 0047R $7.95. 
Model III compatible 

SANTA PARAVIA AND FIUMACCIO 

Become the ruler of a medieval city-state 
as you struggle to create a kingdom. Up to 
six players can compete to see who will 
become the King or Queen first. (T1) Order 
No. 0043R $7.95. Model III compatible 



There are over 450 
Instant Software 
dealers throughout 
the U.S.A. and the 
world. 

We ship our orders 
within 48 hours. 



CODE— Minimum System Required 

(T1) = TRS-80 Model I Level II, 16K RAM 

(T2) = TRS-80 Model I Level II, 16K RAM with Expansion Interface 

16 + K RAM and one disk drive 
(T3) = TRS-80 Model II, 32K RAM 
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HOME/PERSONAL 

THE WORDSLINGER— An economical 
word processing program that was de- 
signed for the individual user or small 
business featuring: automatic formatting; 
text editing; and tape storage. Once you've 
used the WORDSLINGER, you won't want 
to go back to your typewriter. (T1) Order No. 
0129R $29.95. 

MIMIC— Test your memory and reflexes 
with five versions of this popular game. You 
must match the sequence and location of 
symbols displayed on your monitor within 
the time limit. Instructions on how to pro- 
duce accompanying sound effects. (T1) Or- 
der No. 0066R $7.95 

CLIMATE COMP— This two-program pack- 
age includes: WEATHER FORECASTER, 
which gives you a short range weather fore- 
cast based on the information that you en- 
ter and WEATHER PLOT, which will display 
climatological data for any major city in the 
United States. (T1) Order No. 
0102R-1 $19.95. Model III compatible 

BODY BUDDY— Includes these three pro- 
grams: • ADULT CALORIC REQUIRE- 
MENTS: Will determine your Basal Meta- 
bolic Rate and suggest strategies to 
achieve your ideal weight! • FLEXI-DIET: 
Creates an "infinite" number of diet menus, 
on a day-to-day basis. Choose your caloric 
intake, from 600 to 2400 calories per day. 
The • ANATOMY QUIZ program teaches a 
mini-lesson on the various organs of the 
human body, giving location, size and func- 
tions). (T1) Order No. 01 09R $9.95. 
Model III compatible 

ENERGY CONSUMPTION— This program 
will record and analyze your utility bills for 
up to five years, when you supply the fol- 
lowing information. Gas/Water/Electricity 
used and their respective costs. It will cal- 
culate six monthly usage averages and unit 
costs. Data can be compared for any month 
or multi-month periods. (T1) Order No. 
0132R $9.95. Model III compatible 



BUSINESS 

SALES ANALYSIS— If your business is 
sales, you're faced with some unique prob- 
lems. This package is divided into several 
modules to help solve those problems: The 
SALES ANALYSIS module is designed to 
provide guidelines for determining sales 
performance, to analyze this performance 
and show you where it can be improved. 
The DATA STORAGE module allows you to 
store data in an automated processing led- 
ger. The MANAGEMENT ANALYSIS mod- 
ule can take all the sales records for your 
group and show you who your best sales- 
persons are, who needs more training and 
give you a sales forecast. Finally, the MAR- 
KET ANALYSIS module can show you 
where determined sales efforts can pro- 
duce the most success. (T1) Order No. 
0131R $24.95. Model III compatible 

ORACLE-80— will provide you with busi- 
ness analysis and forecasting capabilities 
previously available only on large computer 
and time-sharing systems. A flexible, pro- 
fessional time series analysis and forecast- 
ing package for use in product planning, 
business planning, sales forecasting and 
more. Financial managers and economists 
can analyze economic climates and in- 
vestigate business cycles. ORACLE-80 is 
designed to be used and understood by the 
typical businessperson. All input and out- 
put is written in plain English and the 
package documentation carefully explains 
all the functions of the program. ORA- 
CLE-80 puts the future in your hands. (T2) 
Order No. 01 40R $75.00. 
Model III compatible 



BUSINESS PACKAGE IV— This business 
package contains two programs: • BUSI- 
NESS CYCLE ANALYSIS: This program can 
plot the expansion and contraction cycles 
of any aspect of your business. • FINAN- 
CIAL ANALYSIS: Now you can get the fig- 
ures for any type of annuity, sinking fund, or 
mortgage and compute the yield and value 
for bonds. The package includes a blank 
data tape. (T1) Order No. 0019R $9.95. 

Model III compatible 
FINANCIAL ASSISTANT— Compute the 
figures for a wide variety of business needs, 
including: • DEPRECIATION: Figure de- 
preciation on equipment five different 
ways. »LOAN AMORTIZATION: Enter a 
few essential factors and get a complete 
breakdown of all costs and schedules of 
payment for any loan. • FINANCIER: Per- 
forms thirteen common financial calcula- 
tions. • 1 % FORECASTING: Use it to fore- 
cast sales, expenses, or any other histori- 
cal data series. (T2) Order No. 0072R $7.95. 
Model III compatible 

CHECK MANAGEMENT SYSTEM— Use 
this program for writing checks and main- 
taining records. You can make entries, edit/ 
correct entries and print out the checks. It 
will also search and display records by 
number, code, date, description or amount. 
A Code and Search routine allows you to 
print a report of all checks written for spe- 
cific expenses. You can print your letter- 
head and account number at the top of 
each report. System requirements: (T2) with 
a compatible tractor-feed printer. 0147RD 
$39.95. Model III compatible 

ACCOUNTS RECEIVABLE/ACCOUNTS 

PAYABLE— These Model I programs will 
handle the drudgery involved in AR/AP en- 
tries. They will also provide invoices, state- 
ments, reports and more. Each program is 
capable of handling up to 1500 entries per 
month, posted to as many as 760 accounts. 
The AR/AP package is ideal for any small 
business and can easily be used by anyone 
familiar with AR/AP operations. System re- 
quirements (in addition to T2: Three disk 
drives and a Line Printer (tractor-feed). 
Order No. 0075RD $199.95. 
Model III compatible 

MAIL/LIST— With a five-inch drive, you can 
store up to 600 names per disk without 
DOS, or 300 names with DOS. The program 
maintains separate alphabetical and ZIP 
code files under constant sort. When you 
add a name or ZIP code to your list, it will be 
inserted into its correct position in the file. 
The program will record your data in nine 
fields: address, city, state, ZIP code, phone 
number, phone extension and name (2) plus 
a five character code field. The best feature 
of this program is the sort process that lets 
you determine alphabetical or ZIP code or- 
der for label printing. (T2) Order No. 5000RD 
$99.00 Model III compatible 

ONE-D MAILING LIST— A comprehensive 
mailing list program that will run on only 
ONE disk drive! Up to 17 fields of selection 
for name/address retrieval. Its features in- 
clude: Auto-sort (alphabetic or ZIP code). 
Easy error correction and recovery. Prints 
selective listings. Supports up to 4 drives. 
Prints mailing labels and listing of all 
names on file. (T2) Order No. 0123RD 
$24.95. Model III compatible 

EXECUTIVE EXPENSE REPORT GENERA- 
TOR — Provides you with emergency relief 
in the form of a clear, plausible expense 
layout. Input your grand total and cash ad- 
vance (if any), and you'll receive an itemized 
expense report, from breakfast to snacks. 
(T1) Order No. 0135R $9.95. 
Model III compatible 



GAMES 

WINNER'S DELIGHT— Do you enjoy a chal- 
lenge? Then try WINNER'S DELIGHT in- 
cluding: • AMAZING: You must escape 
from a maze, one that you view from the in- 
side, working against the clock; • JUNIOR 
CH ECKERS: Not your usual game of check- 
ers. . .the challenge is to beat the comput- 
er in the fewest number of moves; •JUM- 
BO JIGSAW: Fit the pieces together in the 
fewest number of tries; •THIRTEEN 
WAYS: Try to fill up your columns with the 
numbers you roll on the dice— the comput- 
er will try to fill its columns first! (T1) Order 
No. 0124R $9.95. Model III compatible 

FUN PACKAGE I -Why call it "Fun 
Package"? Judge for yourself! This enter- 
taining package includes: «ROCKET 
PILOT: Flying it is easy -it's the landing 
that's tough! 'PAPER, ROCK, SCISSORS: 
It's the time-honored game just as you 
remember it, played against your TRS-80. 

• HEX I: Just when you master this puzzle 
game, the computer will increase the dif- 
ficulty. -MISSILE ATTACK: Use your mis- 
siles to protect your city from jet attack. 
Requires a TRS-80 Level I 16K. Order No. 
0037R $7.95. Model III compatible 

DEMO III— The biggest package ISi has 
ever released, including: • RACE 1: Careen 
around the race course as you try to beat 
the clock; • TARGET UFO: Destroy all the 
invading UFOs; »LIFE: Experiment with 
this simulation of the life cycle of a colony 
of bacteria; »PHONE NUMBER 
CONVERTER: Change those hard to 
remember 7-digit phone numbers into easi- 
ly remembered words; • BIORHYTHM: Plot 
biorhythm curves for anyone, anytime; 

• GRAPHICS PROGRAM: This program 
will show you what your TRS-80's graphics 
display can do; • RACE 2: Five different 
tracks for the more experienced driver; 

• HORSE RACE: Up to nine players can bet 
on and enjoy our most entertaining horse 
race program; • DRAWING BOARD: Draw 
pictures or messages and store them in 
memory or on cassette tape with this easy- 
to-use program; • 24-HOUR CLOCK: Trans- 
form your computer into an accurate digital 
clock. (Tl) Order No.0055R $7.95 

OIL TYCOON— Avoid oil spills, blowouts 
and dry wells as you battle to become the 
world's richest oil tycoon. Two players be- 
come the owners of competing oil compa- 
nies as they search for oil and control their 
companies. (T1) Order No. 0023R $7.95. 

BOWLING— Let your TRS-80 set up the 
pins and keep score. One player can pick up 
spares and get strikes. (T1) Order No. 0033R 
$7.95. Model III compatible 



DEMO II— contains: • TIC-TAC-TOE: An 
old time favorite with three levels of difficul- 
ty; • TIME TRIALS: Try to beat the clock as 
you race your car through curves, chutes, 
and chicanes; • MAZE: One or two players 
can search through the maze for the secret 
square; • HANGMAN: One or two players 
can try to guess the secret word; • WHEEL 
OF FORTUNE: Choose your number, place 
your bet and see if you can break the bank 
(for one to eight players); • HURRICANE: 
You can track and monitor hurricanes in 
any part of the world; • BUGSY: Can you 
build your Z-80 bug before the computer 
does? • HORSE RACE: Pick a sure winner 
and place your bet (for 1 to 100 players). (T1) 
Order No. 0049R $7.95. 
Model III compatible 

BATTLEGROUND— It is late 1944 and the 
Allied forces are sweeping toward Berlin. 
As General in command, you study the 
map. At your command are tanks, planes, 
artillery, infantry, engineers, and vehicles. 
The battle map of your sector will fill with 
markers to show the development of your 
forces. You and your opponent will assume 
the roles of warring Generals, as the battle 
unfolds. The stark reality of World War II 
comes alive in BATTLEGROUND. (T1)Order 
No. 0141 R $9.95. Model III compatible 

SKIRMISH-80— Check out these great 
games: •MISSION IMPOSSIBLE: Your ob- 
jective in this real-time simulation is to 
drive your tank into a prison courtyard, res- 
cue a jailed prisoner and escape; »TRAP: 
A two-player game, in which you must ma- 
neuver your opponent into a position where 
he is hopelessly trapped; »WIPEOUT: A 
two-player game in which your mobile gun 
gets points by destroying as many obsta- 
cles as possible, but be careful— some of 
those obstacles are explosive mines; 
• BLOCK-'EM: A two-person competition 
in which your moving "snake" tries to force 
your opponent to hit either (1) your trail, (2) 
his own trail, (3) the boundaries of the field, 
or (4) any randomly place barriers. The strat- 
egy is, of course, to leave you opponent no 
safe move. (T1) Order No. 0070R $9.95. 
Model III compatible 

POPULAR GAMES 

OTHELLO— In the game of Othello, there 
is no such thing as lucky move. The game 
is a constant test of concentration and 
tactics. 

Othello pits your strategic powers 
against a merciless, computerized oppo- 
nent. You play on a board of 64 squares. 
When you capture your opponent's game 
disks (by bracketing them with your own), 
they immediately change sides, to be- 
come members of your set. 

Here's a maddening, frustrating, but al- 
ways engrossing, game for your TRS-80. 
(T1) Order No. 0046R $9.95. 
Model III compatible 



SEE YOUR LOCAL 
INSTANT SOFTWARE DEALER OR 

Just Call Toll-Free 
1-800-258-5473 



"TRS-80 is a trademark of Tandy Corporation. 



NO MATTER WHAT YOUR NEEDS ARE, 

INSTANT SOFTWARE HAS 

A PROGRAM FOR YOU 



*"2 



Instant Software 



PETERBOROUGH, N.H. 03458 



We Guarantee It! 

r; s v*nt Sofi^J 
l^y& Guarantee ^\<^ 

OUR PROGRAMS ARE GUARANTEED 

TO BE QUALITY PRODUCTS. IF NOT *§ 

COMPLETELY SATISFIED YOU MAY St 

RETURN THE PROGRAM WITHIN 60 S 

DAYS. A CREDIT OR REPLACEMENT S| 

WILL BE WILLINGLY GIVEN FOR « 

ANY REASON. •? 



sSee List of Advertisers on page 306 
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CONSTRUCTION 



Take the Hertz out of continental computing 
with this battery charger based power supply. 



An Alternate Source 



John G. Conner KG6JIC 

CTF 67 Box 2 

FPO New York, NY 09521 



Ihave been operating my 
TRS-80 on 110 V ac 50 Hertz 
for the past two months, but 
have had some problems. 

I am in the U.S. Navy and am 
required to move periodically to 
new locations around the world. 
I have been an amateur radio op- 
erator for several years and re- 
cently acquired the computer 
bug. 

About three weeks before my 
departure from Guam, I ac- 
quired a 16K TRS-80 Level II. My 
next duty station was to be 
Naples, Italy. 

Blown Fuse 

After my arrival in Naples, two 
of the three boxes in which my 
80 and a Quick Printer II were 
packed, arrived. I plugged the 
keyboard into 110 V ac 50 cps 
power available in my office. 
The VDT was in the last box that 
had not yet arrived, but a few 
quick LPRINTs on the keyboard 
revealed that it was OK. 



Four weeks later the last box 
arrived. I unpacked it hastily and 
plugged it in; the screen lit up but 
no MEM SIZE?. The red light on 
the keyboard was not glowing. 
The power supply was plugged 
in, so I concluded that no power 
was getting to the keyboard. 
There was a fuse inside the pow- 
er supply, but Radio Shack's 
technical manual was no help 
as it just showed a square 
marked "power supply." 

I checked the ac plug with an 
ohmmeter. It read open. I pried 
open the power supply and 
found a wired 1/2-Amp fuse on a 
printed circuit board. The fuse 
was indeed open, so I replaced it 
and put the case back together 
with plastic electricians' tape. 
The TRS-80 worked for about 10 
minutes, then the fuse blew 
again. 

A few checks with an ohm- 
meter indicated that the key- 
board was not overloading the 
power supply, so I decided that 
the 50 cps power was the culprit. 
I increased the size of the fuse 
to 3/4 Amp and put the power 
supply back into service. The 
3/4-Amp fuse lasted about a half 
hour. 



In desperation I soldered a 
1-Amp fuse in place and turned 
the computer on again. The 
TRS-80 operated for the rest of 
the day. 

Returning to work the next 
day, the fuse blew again. Re- 
moving the electricians' tape, I 
saw that the transformer had 
gotten very warm during the 
night and part of the plastic 
case was deformed from over- 
heating. Additional checks with 
an ohmmeter revealed terminal 
damage; the windings were 
shorted. Back to the drawing 
board. 

It appeared that the trans- 
former was operating to its lim- 
its on 60 Hertz, and it could not 
tolerate the additional current 
when operating on 50. 

I checked a hardware store 
and found a 10 Amp 6/12 V bat- 
tery charger. 10 A seemed like a 
little overkill. The specs on the 
bottom of the Radio Shack pow- 
er supply listed the output at 17 
V ac at 1 A and 1 9 V dc at 350ma. 
I decided to give the 1 A brute a 
try. A shipmate supplied me 
with two chassis mounting fuse 
holders, a toggle switch and a 
10,000 uF 50 volt Cap. A trip to 



the audio department at the PX 
turned up a standard 5-pin DIN 
plug. I drew out the schematic of 
the battery charger (Fig. 1) and 
opened it to make the small 
changes to turn it into a comput- 
er power supply. 

The outputs were fused to 
protect the supply and the key- 
board. Initial voltage readings 
(no load) showed the ac output 
to be 26 V ac and the dc output 
to be 16 V dc. The 16 V dc looked 
close enough, but I was worried 
about the 26 V ac. 

My shipmate let me paw 
through his junk box, and I came 
up with two 10-Watt, 18-Ohm re- 
sistors. I placed these in parallel 
with each other then in series 
with the ac output. Ohms law 
said that if the ac circuit did 
draw one Amp, then this combi- 
nation should drop nine volts. I 
turned the computer on to mea- 
sure the voltage under load. The 
dc remained at 16 V dc. The ac 
dropped less than one-half a 
volt. Apparently the ac load is 
considerably less than 1 A. 

After I carefully studied the in- 
formation available on the sche- 
matic in the technical manual, I 
was convinced that it should be 
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Fig. 1. 10 Amp Battery Charger 



OK and I continued to operate 
the computer. 

The TRS-80 has been in opera- 
tion six to seven hours a day for 
the last month with this power 
supply with no apparent prob- 
lems. 

Not once have the severe dips 
in power during the evening 
caused me to drop a single bit of 
information. The transformer in 
the converted battery charger 
runs cool and I am running well 
within its ratings. 

That's it. If you're coming 



to Europe and planning to 
bring your TRS-80, the voltages 
throughout Europe are usually 
220 V ac at 50 Hertz. The 220 V 
ac is no problem, as stepdown 
transformers are readily avail- 
able from 100 Watts to 5 kW. 
They are nicely built and accom- 
modate a range of common volt- 
ages. I have several in the house 
and am currently running the 
TRS-80, cassette, VDT and 
Quick Printer II on a small 
150-Watt transformer. I've dis- 
covered no problems. ■ 



AT LAST! 

Mass production prices for high quality software. Buy direct and save 50%. Also 
available for CPM and HD0S. 

DATA BASE MANAGER Mod I & III S69. $149 (48K). Mod-ll S199 

Maintain a data base and produce reports, all without user programming. Define 
file parameters and report formats on-line. Key random access, fast multi-key 
sort, field arithmetics, audit log, label. No time-consuming overlays. 500 happy 
users in one year. Mod-ll and 48K versions have over 50 enhancements, including 
40 fields maximum. "IDM-M2 is great!" - 80-US. 

A/R Mod-I S69 Mod-ll $149 Mod-Ill. $69 

Handles invoices, statements, aging, sales analysis, credit checking, forms input, 
and order entry. Unlike other accounts receivable programs, ours can be used by 
doctors, store managers, etc. 

WORD PROCESSOR S49 

Centers, justifies, indents, and numbers pages. Mod-I version features 
upper/lower case without hardware modification! File merge option available. 

MAILING LIST Mod I & III S59, $79 (48K). Mod-ll $99 

The best! Compare and be selective. Includes forms input, 5-digit selection code, 
zip code extension, sort on any field, and multiple labels. Who else offers a report 
writer and merges with word processor? 

INVENTORY Mod I & III $89, $109 (48K) Mod-ll $149 

Fast key random access. Reports include order info, performance summary, E0Q 
and user-specified reports. Many people have converted to our system! "Next to 
impossible to damage the file," 

GL. A/R. A/P. PAYROLL Mod-ll $129 each 

Integrated accounting package. 100+ page manual. As opposed to Osborne's slow 
binary search and 64 column screen, we use fast ISAM and 80 columns. Dual disk 
and TRSD0S required. 

L216 $59 

A cassette package of 10 business programs for Level I1 16 K systems. Includes 
word processor and data base manager. Poker game $19. 

Most programs are on-line, interactive, random-access, bug-free, documented, 
and delivered on disks. Mod-I programs require 32K TRSD0S. We're #1 in business 
software— don't let our low price fool you! Ask for our free 20-page catalog if 
you're still not convinced. Compiled versions are available. 



& 



MICRO ARCHITECT, INC. ^54 

96 Dothan St., Arlington, MA 02174 




Bragmuptetft! 



In a desperate race against the sun 
you search for SMAEGOR Monarch 
of Dragonfolk, who has kidnapped the 
Princess of the Realm and holds her in 
a distant and unknown place. In a 
quest for Honor and glory, you must 
search the land, seeking out the tools 
needed for the ultimate confrontation. 
On The River Delta, in the abandoned 
Temple of Baathteski, Goddess of the 
Blade, everywhere, clues abound. But 
WHERE is the Princess? 

Now, as never before, the genius of 
CHARLES FORSYTHE shines in this 
new machine language ADENTURE. 
DRAGONQUEST! Can YOU save 
M'lady from the iron clutches of 
SMAEGOR? 



TAPE $15.95 



Dealer Inquiries Invited 



DISK $21.95 



The Programmers Guild 

Box 66, Peterborough, N.H. 03458 
(603) 924-6065 After 6 PM EST 



^364 
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IDOUBLE FEATURE 

ETI 2 

IBM Electronic Typewriter Interface for 

ANY COMPUTER 

2000-Byte Buffer yields 
up to 700 cps through- 
put. All typewriter spe- 
cial functions can be 
accessed from any pro- 
gram. 



Applications include 
word processing, legal, 
financial and medical 
forms processing and 
typesetting. 



$495 

Call or Write /Available Now 



QuicKeys 



An innovation in- 
definable (soft) 
key i.d. 

These clear, 
pressure sensi- 
tive labels mount 
on the face of your keys 
and are color coded for 
word processing, com- 




munications. Lev- 
el II and Disk Bas- 
c programs. Over 
425 commands 
and symbols. 
Throw away 
those scraps of paper! 
QuicKeys keep the com- 
mands at your fingertips. 



Manufactured by 

PAIRR PRODUCTS 

$9.95 

Add SI. S & H/6% sales tax in California 
VISA / MC Accepted 

(213) 475-9949 • P.O. Box 67B57 Los Angeles. CA 90067 

MEDIAMIX 

mmmmb Dealer Inquiries invited|^ M |^^ B |^ HH 



MODELS I 



AND 



III 



ALL PROGRAMS USE TESTED 

MICRO- TY PIT A text editing program that uses the keyboard "as is" like a 
typewriter. All edit and prompt functions are "built in" so instruction or learning 
is minimum. Text can be generated three pages at a time and printed either 
numbered, or unnumbered single or double spaced. Also, right justification is 
optional. Does not require substitution of @ for commas or any other character 
revision. Slowest function is transferring text to and from tape. Neat error free 
text with large print titles. Excellent for specifications, agreements, instruc- 
tions, form letters or announcements. Complete with sound for TRS-80 Model I 
level II and Microteck printer easily adaptable to other printers. PRICE. . .$25.00 



CLIENT FILES Allows keeping several contracts for up to 20 clients. Enter 
contracts including either payment amounts or percentages. As bills are sent 
out and payments received, the program is a record by contract of amounts 
outstanding and not billed including a summary of receivables and work in prog- 
ress. Works well with one to 3 projects for a dozen or soclients. PRICE. . .$25.00 



Engineering Programs 

LIGHTING CALCULATIONS Calculates the required number of fixtures 
for a room given the dimensions and reflectances by the zone cavity method. 
Three standard fixtures are "built in" so that 8 room calculations are made to 
compare results such as watts, footcandles and number of fixtures. 

PRICE. . .$30.00 

ENERGY ANALYSIS The program evaluates a Building per ASHRAE 90-75 
by calculating the allowable and actual U values and OTTV for large commercial 
"B" type Buildings. PRICE. . .$20.00 

All tapes furnished with full documentation and instructions. Documentation, 
Instructions and Source list only $15.00 

All programs require Level II and 16K. Printer is required for MICRO-TYPIT and 
optional on all others. Don't forget to include the Model number (I or III) with your 
order. 



Send Check or Money Order (no COD's please) to: 

Coolidge & Associates 



^52 



I3I7 S. CONGRESS AUSTIN, TEXAS 78704 



(5I2) 443 - 5329 



UTILITY 



A copy utility 

for single disk systems. 



One Wheel 



Drive 



Dan Keen and Larry Pezzuto 
RD 1 Box 432 
State Highway 83 
Cape May Court House, 
NJ 08210 



Many times you need a pro- 
gram on several disks. 
Perhaps you want a safety back- 
up, in case gremlins get into the 
only existing copy of your 
favorite program. If you have a 
program like TSHORT, you may 
want to transfer it to a disk you 
use often, so you don't have to 
load it separately. Or, again, 
maybe you want to duplicate a 
data file so you can work on the 
program that created the file, or 
back up an important business 
file. 

If you have two disk drives, 
backup copies are rapidly made 
with the COPY command. 

If you only have one disk 
drive, however, you may have to 
slowly copy a text file by loading 
it into memory and then saving 
it. If the file is sequential, ran- 



dom data, or machine language, 
you may have to use the BACK- 
UP command and copy the con- 
tents of the entire disk, then de- 
lete everything except the pro- 
gram you want. This also means 
copying onto a blank disk. 

Here's a copy utility that 
comes to the rescue of the one- 
drive owner. 

This program allows you to 
copy any file up to 16K (you 
must have 32K in your computer 
to use this utility). It also allows 
you to change the file name of 
the copied version. Keep the ex- 
tension on machine language 
programs, however, or they 
won't function. 

First load the program you 
want to copy into memory. 
When you have the destination 
disk in the drive, it dumps the 
memory contents back onto 
disk. 

After using this program, type 
CLEAR 10 in the command 
mode, or you won't have enough 
memory space to run anything 
else, as this program clears 
20000. ■ 



4 CLS:CLEAR20000:DIMS$(64) :DIMS2$ (64 ) : PRINT" COPY UTIL 

ITY " : PRINT 

5 INPUT"ENTER FILENAME OF PROGRAM TO BE COPIED: ";A$ 

6 INPUT"ENTER THE NAME OF THE COPIED FILE: ";B$ 

8 PRINT: INPUT"HIT <ENTER> WHEN YOU HAVE SOURCE DISK REA 

DV ";C$ 
10 OPEN"R" , 1 , A$: FIELD 1 , 255ASMYS, 1ASLB$ 
20 FORX=lTOLOF ( 1 ) :GET1 , X : S$ (X) =MY$ : S2$ (X) =LB$ : NEXT 
30 EF=L0F(1) :CL0SE 

35 PRINT"FILE " ; A$ ; " HAS BEEN STORED IN RAM." 
40 PRINT: PRINT"READY DESTINATION DISK FOR RECIEVING COP 

Y": PRINT 
50 INPUT"HIT ENTER WHEN READY", -L$ 
60 0PEN"R",2,B$:FIELD2,255ASNW$,1ASLB$ 

70 FORX=lTOEF:LSETNW$=S$(X) : LSETLB$=S2$ (X) :PUT2,X:NEXT 
80 PRINT"COPY OPERATION IS COMPLETE. ": CLOSE: END 



Program Listing 1 
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Check our book pages for 

latest books about 
microcomputers. 



m 



mention 



microcomputing 



when you query an advertiser 



ADVENTURES FOR 
8K PET® 
16KTRS-80® 
16K TRS-80® COLOR 

ESCAPE FROM MARS— Explore an ancient Martian 
city while you prepare for your escape. 
NUCLEAR SUBMARINE— Fast moving excitement at 
the bottom of the sea. 
PYRAMID— Our most advanced and most 
challenging adventure. Takes place in our own 
special ancient pyramid. 

VAMPIRE CASTLE— A day in old Drac's castle. But 
it's getting dark outside. 

DEATH SHIP— It's a cruise ship— but it ain't the 
Love Boat and survival is far from certain. 
TREK ADVENTURE— Takes place on a familiar star- 
ship. Almost as good as being there. 

$14.95 each 
Aardvark Technical Services --129 
1690 Bolton 
Walled Lake, Ml 48088 

(313) 669-3110 or (313) 624-6316 

PET & TRS-80 are trademarks of Commodore 



LOWER CASE & GRAPHIC 

SYMBOLS GENERATOR KIT 

FOR TRS-80™ CG 16 $64.50 




TRUE 2 LINE DECENDER LOWER CASE. ELECTRON- 
IC SYMBOLS. THIN LINE GRAPHICS. GAME SYM- 
BOLS. TEXTURED BACKGROUNDS AND MANY 
MORE DEMO CASSETTE IS INCLUDED 
FULLY ASSEMBLED WITH DETAIL INSTRUCTION 
FOR EASY INSTALLATION 

REQUIRES ELECT PENCIL TYPE LC MOD OR 
ORDER MEMORY AND SWITCH KIT SMK FORS18 50 



SYNCHRONOUS DATA 
SEPARATOR FOR DISK USERS. 

SDS $24.50 

THE SYNCHRONOUS DATA SEPARATOR WILL 
ELIMINATE 100% OF THE SOFT READ ERRORS 
AND SPEED UP DISK ACCESS TIME BY ELIMIN- 
ATING RETRIES BY THE DISK CONTROLLER 

THE SDS PLUGS INTO THE DISK CONTROL- 
LER'S SOCKET AND HAS ONLY TWO WIRES TO 
CONNECT NO TRACES HAVE TO BE CUT IT IS 
THE MOST RELIABLE AND ACCURATE DATA 
SEPARATOR AVAILABLE 

ADD $2 50 FOR S & H.CALIF RES ADD6%SALE TAX 
SEND CHECK OR MONEY ORDER TO 

G.P. ASSOCIATES *" 203 
P.O. BOX 22822, SACRAMENTO, 
CA 95822 (916)392-0257 

TRS-80 IS A TRADE MARK OF TANDY CORP 



Model III Owners 

Copy Scripsit and/or Visicalc 



"j{ Unlimited disk back-ups of YOUR original 

*fc No programming or technical knowledge required 



■jf Works if you have already 
backed up twice 



-jf Usable only by original purchaser 
and intended for his private usage 




All orders shipped 

within 10 days 

$15.00 

No credit cards, please. 



'ATA.INC. 

BOX 257 BUHLER, KANSAS 67522 



*t "#$X* •{ )*-»,-./OI234 5£73 9: J <=>?*APCDFFGHI JKLMN0PORSTUVUXYZC\] 



LLIST 

* * * 4 

LPRINT 



SERIAL PRINTER USERS 



LPRINT.* 

« * * * * 

LLIST.* 



*>>>> END OF SOFTWAFE HASSLES!! <<<«* 

* **************♦»* + ****** * 

* MAGIC BOX (TM) PLUG IT AND GO! NO SOFTWARE NEEDED TO LPRINT / "LLIST.* 

* ************** ************** * 

* PLUG IN THE PARALLEL PRINTER PORT, COMPATIBLE WITH MOST POPULAR * 

* SERIAL PRINTERS : TELETYPES, H I A, DIABLO, OUMF, NEC, ECT. ... * 

* USES ALL LEVEL2 ROM PRINTER ROUTINES FOR FULL FLEXIBILITY. * 

* * SELECTABLE SPEED 55 TO 9600 BAUDS. ( SPECI FY WHICH SPEED) * * 

* * * AUTO LINE FEED AFTER CR. AUTO CARRIAGE RETURN. * * * 

* * * STOP BITS, PRINTER HANDSHAKE, 20MA LOOP OR RS232. * * * 

* $ $ S INTRODUCTORY OFFER 109.00 DOLLARS FOR A LIMITED TIME f * % * 
» * * NINETY DAYS LIMITED WARRANTY. * * * 

: * MR X CONSULTING, INC. -« * : 

* 1-8 1 3-973-051 7- 602 GLENWOOD DR. E. ZEPHYRHILLS, FLA 33599 * 

* WATCH FOR SERIAL PRINTER TO CPU INTERFACE COMING SOON. * 

* NO R.S. INTERFACE OR SOFTWARE WILL BE REQUIRED TO LPRINT / LLIST * 

* ftSXl'l )*♦,-. /O I 23456789: 1 <»>?#ABCDEFGHIJKLMN0P0RSTUVWXYZC\3 1 ►«#!()* 



SOFTWARE you can BET om 



& & STUDS 



* 



TOUT 3 



» DRAWS 



A live card stud program so realistic 
you'll swear you're facing six professionals. 
You decide who's bluffing and who has 
the cards. Your opponents learn 
your style and that of the olhers and 
modify their betting strategies as 
fhe game proceeds. You can define the 
players' characteristics to match those 
of your Friday night poker club or let your 
computer define them randomly. 

Only $1 3.00 



A vastly Improved version of the 
original TOUT horse race handicapper. 
Now, thousands of races are. simu- 
lated in seconds to give you each 
horse's probability of winning and 
identify overlays. Horses are 
screened using factors derived from 
an operations research study. This 
handicapper outperforms programs 
and calculators selling for much more. 

Only $19.00 



Jacks or better to open with a joker that 
can be used as an ace or in straights 
or flushes (Gardenia CA rules). You play 
against six computer-controlled oppo- 
nents. This program has true artificial 
intelligence capabilities. DRAWS was 
developed originally by Real World 
Simulations. After three years of refining, 
it's now available for the TRS-80. It 
will provide hours of tun, challenge and 
education. *nan 

Only $1 3.00 



TRADE IN your old advertised handicapping and poker- 
playing programs and receive a $6.00 credit. Include original 
cassette/disk and documentation with your order. 
^279 



All programs on cassette for Level II 16K (Models I and III). 
Loading guaranteed. Add $3.50 to get one or more programs on 
a formatted diskette. Pa. residents add 6% sales tax. 



WILSON 

Software Division • 539 Springhouse Lane • Camp Hill, PA 17011 



TRS-80 ts a Tandy Corporation trademark. 




QUALITY 
PRODUCTS 
FROM 



SCREENEDIT: Easier to use than 
the normal EDIT command; more 
powerful too! To edit a Basic line, LIST 
it and type EDIT without an argument. 
You have now activated SCREEN 
EDIT. Simply typing a letter will 
change what was there (overwrite), 
shift left arrow deletes, shift right 
arrow inserts spaces. Shift down arrow 
is useful for combining lines. Changing 
the line number will duplicate that line. 
Will edit any line 255 characters or 
less. Enter ends the editing process and 
Break escapes from editing and cancels 
all changes. Also allows you to re- 
execute command lines without 
retyping them! Don't let the price fool 
you, this will be a much used utility!! 

JUST $9.95 

Model I or III Level II or Disk Basic 

THE ALTERNATE SOURCE 

1806 Ada Street 

Lansing, MI 48910 

517-487-3358 

517-485-0344 



.-138 



Include $2.00 for crush-proof box and 
postage, $1.50 for COD, 4% for charge. 



y'See List of Advertisers on page 306 
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GENERAL 



Reduce disk read/write errors by calibrating drive speed. 



Speedset 



Sherman B. Winings 
9620 Leeta Cornus Lane 
Nokesville, VA 22123 



Read/write errors on TRS-80 
disk drives are often caused 
by improper drive speed. Getting 
the speed reset at Radio Shack 
means too much down time and 
trouble to make me happy. 

For those bold enough to 
open the case on the drive 
(Warning: Opening the case 
voids any warranties), speed ad- 
justment is rather simple. Both 
the case and base plate must be 
removed. Tools needed are a 
Phillips head screwdriver that 
fits the case and base plate re- 
taining screws, a jewelers' 
screwdriver that fits the motor 
speed control, a bit of clay and a 
florescent lamp. 

First remove the four screws 
holding the case to the drive. 
Slip the case from the drive and 
set it aside. Place the unit up- 
right with the diskette door fac- 
ing you; the major electronics 
board will be on your right and 
the flywheel will be on your left. 
The motor speed control board, 
at the rear of the drive between 
the drive and the power supply, 
is positioned crosswise to the 
drive. The power supply is 
fastened to the back plate. 

Place the unit with the fly- 
wheel up, diskette removed. Ac- 



tuate the drive by pushing the re- 
set button on the TRS-80 key- 
board. Examine the strobe tem- 
plate on the flywheel under a 
florescent light. If the 60-cycle 
pattern appears stationary, the 
speed is properly adjusted and 
your read/write errors are 
caused by other problems than 
speed control adjustments. On 
the other hand, if the 60-cycle 
strobe pattern rotates rapidly or 
looks like a grey circle, speed 
adjustment is necessary. 

The motor speed control is 
the rectangular "box" (poten- 
tiometer: you gotta admit it 
looks like a box!) located near 
the base plate on the flywheel 
edge of the board. Notice the ad- 
justing screw points towards 
the base plate. This screw con- 



trols the motor speed. Remove 
the base plate, which is held in 
place by two screws in the drive 
unit and two bolts which hold 
the power supply back plate on. 

Once the base plate is re- 
moved, the power supply and 
drive unit have a tendency to 
separate. Hold the two parts to- 
gether and place the flywheel 
side up. Again actuate the drive 
and adjust the speed control 
slowly until the 60-cycle pattern 
appears stationary. 

Place the drive upside down 
and loosely fasten the two 
screws that go into the drive 
unit. Place a bit of modeling clay 
(chewing gum will do if you're 
not particular about aesthetics.) 
on one of the nuts and put it in 
place. Start a bolt into it. The 




nuts come with an attached lock 
washer so it will hold when tight- 
ening. Start the second nut be- 
fore tightening the first nut. 
Tighten the drive unit screws 
first. Now push the power sup- 
ply and board firmly into the 
drive unit. Tighten the bolts. 

Test the unit for speed before 
replacing the case. If it passes 
the strobe test, try the read/write 
test. 

This process is greatly simpli- 
fied by drilling a 3/4-inch hole in 
the case to observe the strobe 
pattern, and by drilling a 1/4-inch 
hole in the base plate to adjust 
the speed. The holes should be 
placed as shown in Figs. 1 and 2. 
The holes should be dressed 
with a round file and painted 
with grey and black paint, 
respectively. 

The next time adjustment is 
needed, you can simply place 
the unit on its side, view the 
strobe through the hole in the 
case and adjust the speed 
through the hole in the base 
plate. 

This adjustment and modifi- 
cation will not solve all read/ 
write errors, but if it saves you 
one trip to Radio Shack, it's 
worth the time and effort. ■ 
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ALPHA BYTE DOES IT AGAIN... 



g^jN 




Call us for our never undersold price. 

ALPHA 

BYTE 

STORE/ 

(213) 883-8594 

5115 Douglas Fir Road • Suite B • Calabasas, CA 91302 



UTILITY 



This short subroutine for shift reversal will change your gears. 



Shift Lock 



Martin C. Hambel 
P.O. Box 515 
Lisle, IL 60532 



The addition of a lowercase 
conversion, or a printer ca- 
pable of lowercase output, to 
theTRS-80 Level II makes it nec- 
essary to reverse the shift of 
alphabetic character output 
from the keyboard. 

The Level II keyboard driver 
routine generates uppercase 
ASCII codes in the unshifted 
condition, but lowercase codes 
only when the shift key is 
pressed. 

A common remedy is the in- 
clusion of a shift-reversing func- 
tion in the driver software, for 
the output device. This solution, 
while it requires modifying every 
output driver routine, still leaves 
the keyboard output reversed. 

Problem 

The use of a shift-reversing 
function within the keyboard in- 
terpreting software itself is a 
much better alternative. It would 
be convenient to have shift lock 
from the keyboard. 

Level II ROM looks to the key- 



board device control block in 
lower RAM to determine the ad- 
dress of the keyboard driver rou- 
tine. It is found in memory loca- 
tions 4016H and 4017H. It is pos- 
sible to write a new keyboard in- 
terpreting routine to substitute 
for that in ROM. 

The disadvantage to this is 
the length of the program re- 
quired. Because of memory con- 
servation, this approach is dis- 
carded and a scheme to add a 
patch to the ROM routine 
substituted. 

Disassembly of the Level II 
driver entry routine reveals an 
instruction at address 03C2H to 
PUSH the return address 03DDH 
onto the stack. The instruction 
at 03DCH causes a jump to the 
appropriate driver routine, 
which returns to the saved 
03DDH. The driver routine for 
the keyboard is the one pointed 
to by the contents of 4016H and 
401 7H. 

The net effect of all this is a 
CALL to the routine beginning at 
the address in 4016H and 4017H. 

Solution 

Adding a short subroutine 
with the shift reversal function 
to the ROM driver is done as 
follows: 



• The device control block 
address is changed to point to a 
new driver entry module. 

• This module alters the re- 
turn address of the ROM driver 
routine from 03DDH to a shift re- 
versing subroutine. 

• A short shift reversing sub- 
routine is written, ending in a 
JUMP to the original 03DDH. 

The program, SHFTRV, shown 
in the Program Listing, is orga- 
nized in three modules. These 
correspond to the three steps 
described. 

The first module, LOADER, is 
executed after the program is 
loaded. This puts the address of 
the second module (7FDDH in 
the Program Listing) into the key- 
board device control block. It re- 
turns to the operating system 
(1A19H for a non-DOS system). 

Next, KBDMD, called every 
time a keyboard entry is made, 
removes the return address of 
03DDH from the stack. It re- 
places it with the start address 
of the shift reverse module, 
NWDRV (7FE5H in the Listing). 

Finally, NWDRV checks for 
the shift-lock control character. 
(The shifted down arrow, ASCII 
code 1AH, is used in the Pro- 



gram Listing but any key or com- 
bination not in use, such as the 
@ with an ASCII code of 40H, 
can be used if the appropriate 
change is made to the coding at 
7FE6H.) 

If the control character is 
found, the program changes the 
state of the JUMP instruction at 
INDIC from conditional to un- 
conditional or vice-versa. Then it 
proceeds through the shift re- 
versing. program steps. 

Control, graphic, and numeric 
characters are returned un- 
changed, while alphabetic char- 
acters are subjected to the shift- 
reversing operation XOR 20H. 
Note that when the instruction 
at INDIC is changed to 18H, the 
alphabetic characters are re- 
turned unchanged. 

The program as shown in the- 
Program Listing is assembled in- 
to the top 44 bytes of 16K mem- 
ory. It uses 1AH (shifted down 
arrow) as the shift lock control 
character. To use it without 
modification, prepare a system 
tape using T-BUG or an assem- 
bler program. 

The program may be reas- 
sembled into any other area of 
protected memory with appro- 
priate changes to the addresses 
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KBJ-80 EPROM EXTENDER 



KM -80. Packac." ir 
arc module (SYSTAPK). 



liurpljr :iml 
r —ini i-.-.l 1 1 

ml or Kl'KOW 



(2716-2X) ADDITIONAL FIRMWARE MODULE PRICING i- 



SYSTAPE ($39-95)- Adds 9 permanent utili 
II basic: system tape Load/Punch and Execute: 
Repeat keysi Lower case: Abbr. keys: Beeper: 

Copy and Deb-ounce. (Pree with purchase of KBJ-80) 

EFL-80 ($59.95)- Used in conjunction with 80-GRAPHIX 
board provides inverse video w/o using any rams, also 
includes Debounce: Abbr. keys; Repeat keys and 
Lower case. A MUST FOR 8o-aRAPHIX OWNERS! 



KEEPII T.2 


($39.95) 


Latest ver 
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IMMEDIATE DELIVERY - CHECK/M.O. TOi 

COMPUTER ACCESSORY TE6HNOLOQY >-206 

P.O. BOX 2673, K0K0M0, IND. 1»6901. 

TELi(31?)-!*53-9715 

DEALERS INQUIRIES INVITED!!! 



80" SHROUDS 




Other Models 
*LNW DEMI-CASE.432.50 

*LNW SHROUD $27.50 

* "80" SHROUD $24.50 

Add $2.50 shipping & handling 
N. Y.S. residents add 7% sales tax 

^358 

SYRACUSE R&D CENTER 

Box 125, Dewitt, N.Y. 13214 

"Specializing in Electronic Packaging" 



TRS-80" SOFTWARE 

For The Model I & Model III Computers 

MACHINE LANGUAGE 
SOFTWARE 

MONITOR #3 $39.95 

Disassembler; memory displays, memory 
move, search verify, and modify; read and 
write object tapes; hexadecimal arithmetic; 
object code relocator; unload programs for 
disk; symbolic output tapes; 41-page in- 
struction manual. 

MONITOR #4 $49.95 

Same as Monitor #3 but adds: save and read 
disk files; direct input and output of disk 
sectors; send, receive, or talk to another 
computer via RS-232-C interface; symbolic 
disassembly on disk. 

SMART TERMINAL $69.95 

Enables your TRS-80 to be used as a remote 
terminal to a time-sharing system. Supports 
lowercase and full range of control keys. 
Automatic transmission between memory 
and host computer. Much more. 

FASTSORT $9.95 

Machine-language sorting program for use 
by Basic programs. Many times faster than 
other methods! 

BASIC SOFTWARE 

MAILING LIST $69.95 

Maintains mailing list files of over 1000 
names per diskette. Add. delete, change, 
find name, machine language sort, print file. 
SMALL BUSINESS 

ACCOUNTING $49.95 

Based on Dome Bookkeeping Journal #612. 
keeps track of income, expenditures, and 
payroll for a small business of up to 16 
employees. Daily, monthly, year-to-date 
summaries. 



VMS. " 



55^4: 'L! -y/VV/T 

14 Lexington Road, New City. N.Y. 10956 
" TRS-80 is a registered trademark ot Tandy Corp ►'lo; 



DISCOVER THE 6809 IN YOUR COLOR COMPUTER 

Now you can explore the Radio Shack Color Computer's impressive potentials— as an inexpensive 
development system, a color peripheral, a process controller— ad infinitum. The Micro Works introduces 
these powerful software tools for utilizing the color computer at the assembly language level. 



MONITOR TAPE: A cassette tape which 
allows you to: 

• Examine or change memory using a 
formatted hex display 

• Save areas of memory to cassette in 
binary (a "CSAVEM") 

• Download/upload data or programs to 
a host system 

• Move the video display page 
throughout RAM 

• Send or receive RS-232 at up to 9600 
baud 

• Investigate and activate features of 
your computer, such as hi-res graphics 
or machine-language music 

• Use your color computer as an intel- 
ligent peripheral for another computer, 
a color display or a 6809 program 
development tool 

The monitor has 19 commands in all, and is 
relocatable and re-entrant. 
80C Monitor Tape Price: $29.95 



MONITOR ROM: The 

same program as the 
monitor tape, supplied 
on ROM. This allows 
BASIC to use the entire 
RAM space. And you 
don't need to re-load the 
monitor each time you 
use it. The ROM plugs 
into the Extended Basic 
ROM Socket or a modi- 
fied ROM PACK. 

80C Monitor ROM 
Price: $39.95 



\S 



THE 






^109 



INSIDE THE COLOR COMPUTER: This 
package is a disassembler which runs 
on the color computer and enables 
you to generate your own source 
listing of the BASIC interpreter ROM. 
Also included is a documentation 
package which gives useful ROM 
entry points, complete memory map, 
I/O hardware details and more. Dis- 
assembler features include cross- 
referencing of variables and labels; 
output code which can be re- 
assembled; output to an 80-column 
printer, small printer or screen; and a 
data table area specification which 
defaults to the table boundaries in the 
interpreter ROM. A 16K system is 
required for the use of this cassette. 
80C Disassembler Price: $49.95 



Mastercharge and BankAmericard 



P.O. BOX 11 1 DEL MAR, CA 9201 4 71 4-942-2400 



sSee List of Advertisers on page 306 
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in the Listing. Also, care must be 
used in selecting an alternate 
control character, as the driver 
routine returns the control char- 
acter in the A register. It will 
print, if it is a printable charac- 
ter. The 1AH code selected is 
not recognized by many print- 
ers. Another possibility is the 
shift— down arrow— B combi- 
nation, which returns 02H. 

In the event that other 
keyboard routines such as de- 
bounce are desired, they may be 
linked into the program by 
changing the address at 7FE2H 
to point to the start of the 
desired additional routine. 

Operation 

Load the program tape upon 
power-up, after answering MEM- 
ORY SIZE? with 32723. Execute 
it using /ENTER. Unshifted key 
entries will then be output as 
lowercase ASCII codes. Shifted 
entries will be uppercase. Each 
time the shifted down-arrow is 
pressed, the keyboard output 
will toggle between normal or re- 
verse shift, and vice-versa. ■ 







00100 




SHFTRV 


- A PROGRAM TO 


PERMIT SHIFT-REVERSAL 






00110 


; 




OF THE ALPHABETIC KEYBOARD OUTPUT 






00120 


; 




UNDER SOFTWARE CONTROL. 






00130 


; 








7FD4 




00140 
00150 




ORG 


7FD4H 




7FD4 


21DD7F 


00160 
00170 


LOADER 


LD 


HL, KBDMD 


;LOAD HL WITH ADDRESS OF 
KEYBOARD DRIVER MOD 


7FD7 


221640 


00180 




LD 


(4016H) ,HL 


;PUT IT INTO "ROM SWTCHBRD" 


7 FDA 


C3CC06 


00190 
00200 
00210 




JP 


6CCH 


;RET TO BASIC 
1A19H FOR LEVEL II BASIC 


7 FDD 


El 


00220 
00230 


KBDMD 


POP 


HL 


; CLEAR ORIG DRVR RET ADDR j 
(03DDH) FROM STACK 


7FDE 


21E57F 


00240 
00250 




LD 


HL, NWDRV 


;ADDRESS OF SHIFT-REVERSING 
SUBROUTINE 


7FE1 


E5 


00260 
00270 




PUSH 


HL 


;PUT IT ON THE STACK AS THE 
NEW DRIVER RET ADDRESS 


7FE2 


C3E303 


00280 
00290 




JP 


03E3H 


;BACK TO ROM DRIVER ROUTINE 


7FE5 


FE1A 


00300 


NWDRV 


CP 


1AH 


; SHIFTED DOWN-ARROW? 


7FE7 


200A 


00310 




JR 


NZ, SHIFT 


; NO-DO SHIFT REVERSAL 


7FE9 


F5 


00320 




PUSH 


AF 


; YES-SAVE CHAR. TO DSPLY 


7FEA 


3AF57F 


00330 
00340 


LOCK 


LD 


A, (INDIC) 


;GET REL JP INSTR (38 OR 18) 
FROM SHIFT REVERSAL ROUTINE 


7FED 


EE20 


00350 




XOR 


20H 


;FLIP-FLOP IT (38/18 OR 18/38) 


7FEF 


32F57F 


00360 




LD 


(INDIC) ,A 


;PUT IT BACK 


7FF2 


Fl 


00370 




POP 


AF 


; RESTORE CHAR TO BE PRTD 


7FF3 


FE41 


00380 


SHIFT 


CP 


41H 


; LESS THAN U.C. "A"? 


7FF5 


3806 


00390 
00400 
00410 
00420 


INDIC 


JR 


C,RET 


; RETURN IF SO, (OR RET ANYWAY 

IF ROUTINE CHANGED THIS 
; INSTR TO "18 06" 


7FF7 


FE7B 


00430 




CP 


7BH 


; GREATER THAN L.C'Z"? 


7FF9 


3002 


00440 




JR 


NC,RET 


; RETURN IF SO 


7FFB 


EE20 


00450 




XOR 


20H 


;ELSE, CHANGE SHIFT 


7FFD 


C3DD03 


00460 


RET 


JP 


03DDH 


;RET TO ORIG ROM RET ADDRESS 


7FD4 




00470 




END 


LOADER 


;WRITE ENTRY-POINT ADDR 


00000 TOTAL 


ERRORS 




















Program Listing 






DISK DRIVE WOES? 
PRINTER INTERACTION? 
MEMORY LOSS? 
ERRATIC OPERATION? 

Don't 

Blame The 
Software! 

Power Line Spikes, Surges & 

Hash could be the culprit! 

Floppies, printers, memory & processor often interact! Our unique 

ISOLATORS eliminate equipment interaction AND curb damaging 

Power Line Spikes, Surges and Hash. 

• ISOLATOR (ISO-1) 3 filter isolated 3-prong sockets; integral 
Surge/Spike Suppression; 1875 W Maximum load, 1 KW load any 
socket $62.95 

• ISOLATOR (ISO-2) 2 filter Isolated 3-prong socket banks; (6 
sockets total); integral Spike/Surge Suppression; 1875 W Max 
load, 1 KW either bank $62.95 

• SUPER ISOLATOR (ISO-3), similar to ISO-1 except double 
filtering & Suppression $94.95 

• ISOLATOR (ISO-4), similar to ISO-1 except unit has 6 
Individually filtered sockets $106.95 

• ISOLATOR (ISO-5), similar to ISO-2 except unit has 3 socket 
banks, 9 sockets total $87.95 

• CIRCUIT BREAKER, any model (add-CB) Add $ 8.00 

• CKT BRKR/SWITCH/PILOT (CBS) Add $16.00 

Master-Charge, Visa, American Express 

Order Toll Free 1-800-225-4876 

(except AK, HI, MA, PR & Canada) 



l*z£ Electronic Specialists, Inc. 

171 South Main Street, Natick. Mass. 01760 
Technical & Non-800: 1-617-655-1532 e*58 






Word Processing? You need a 

SPELLING CHECKER 



This is an exawle of a text being checked by 
HEXSPELL. The text scrolls up the screen as it is checked. When 
an error is detected, you have three choices. 

1) REPLACE the incorrect word. The replacenent word 
is INSTANTLY RE-CHECKED for correctness, then inserted in the 
text. 

2) The word is correct, leave it as it is. 

3) Leave the word as it is, AND tell HEXSPELL to 
LEARN this word for future reference, with just one keystroke. 

Your docunent is ready to print as soon as HEXSPELL 
is finished. The word in error e.g. * 



WORD IN ERROR", nisstake 

CONTINUATION ! is shown in context, including continuation 

PRESS! R) REPLACE WORD S) LEAVE AS IS L) LEARN WORD 



HexspeLL 

zaps those-sneefty typos 

HEXSPELL shows you the errors right where it finds them, 
then instantly checks your corrections to make sure they ARE 
correct! When HEXSPELL is finished the corrected docu- 
ment is ready for printing. HEXSPELL comes with a 20,000 
word list, with room for 8000 more! Just one keystroke 
teaches HEXSPELL a new word. You can even clear the 
memory and teach HEXSPELL a complete new language. 
Programs, wordlist & manual $69us. Manual only $12. 

13 !' 
ord proce 



Requires 48K TRS-80 Mod I with 2 Dri 
Tested against Scripsit & Electric Per 



) & TRSDOS. 
;il, should wo 



SYSTeMe 



PO. Box 397, Station A 
Vancouver, B.C. Canada V6C 2N2 
Telephone (604) 682-7646 
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NEW PEN737 

FINALLY - THE ULTIMATE IN 

WORD PROCESSING FROM COMPUTEX 

Superscripts / Subscripts / Underlines / Elongated printing / 
BOLD face type and many other features can now be 
accomplished with your TRS80 computer, Electric Pencil, 
Centronics 737 Printer and our new PEN737 program. 

PEN737 program (available on disk or cassette) $29.95 

When purchased with Centronics 737 printer $19.95 

CENTRONICS 737 PRINTER 

Special $750.00 

FEATURES: Fan fold, roll and single sheet paper handling • 
True underlining capabilities • Superscripts and Subscripts • 
True UPPER & lower case • 80 or 132 column lines • Fast 80 
cps printing • Paper forward and reverse switch • Supports 10 
and 16.7 c.p.l 

TRS80 MODEL I or MODEL III PRINTER CABLE. .. $29.95 

18K MEMORY EXPANSION KITS FOR MODEL I AND 

MODEL III SYSTEMS 

$35.95/klt 2-5 kits $32.95/klt B up $29.95/ kit 

LNW EXPANSION l/F and COLOR COMPUTER KITS 



COMPLETE LNW 
EXPANSION INTERFACE 

$249.00 

Includes all components, sockets, and hardware to build the 
complete kit. Does not include the relay for dual cassette, cabinet 
or Ram. 

RAM MEMORY $29.95/18K WHEN PURCHASED WITH LNW 



Complete CPT Systems with disk 

drive, 32K Ram, RS232 and 

Custom cabinet as low as 

$799.00 

(CALL FOR QUOTE) 



LNW COLOR Computer Kit 
$599.00 

Includes all components to assemble the LNW Color Computer 
including: High Resolution Video Ram and 16K user ram, 
Keyboard, and Level II compatible Roms. 

CUSTOM CABINET FOR LNW COLOR COMPUTER 

AND EXPANSION l/F $149.95 

CUSTOM CABINET FOR LNW EXPANSION l/F, 

AND DISK DRIVES $ 99.95 

We also stock a complete line of components lor both the 

LNW Color Computer and the LNW System Expansion at 

NEVER UNDERSOLD PRICES 




TRS80 is a registered trade mark ot Radio Shack 

Certified Checks, Money Orders 

Or call to arrange direct wire transfer 

Visa and Mastercharge accepted, add 4% to order. 

Personal or company checks require 2 weeks to clear. 

COMPUTEX -* 

15502 Highway 3, Suite 715 

Webster, Texas 77598 

(713)488-8022 



DISK DRIVES - Compare !! 

RELIABILITY / FEATURES / WARRANTY 

PRICE / DELIVERY 

Computex offers the best of all with TANDON Disk Drives 

Warranty: 120 day repair / replace warranty 

Reliability: 8000 hrs. mean time between failure 
Features: 5 m.s. Track to Track Access Time 

sec. Head load time (no solenoid either!) 
Single or Double Density Capabilities 
40 / 80 Track - Single & Double Sided 
Maintenance Manual Provided with drive 



TM 100-1 Single headed 40 track disk drive, unformatted double 

density storage = 250 KB 

TRS80' m Storage single density = 102 KB Double = 

184KB 
Bare drive $225.00 With case/supply $299.95 



TM100-2 Double headed 40 track drive, unformatted double 

density storage = 500 KB 

TRS80 ,m Storage single density = 204KB, Double = 

367 KB 
Bare drive $345.00 With case/supply $41 9.95 



TM100-3 Single headed 80 track drive, unformatted double 

density storage 500KB 

TRS80 ,m Storage single density = 204KB, Double = 

367KB 
Bare drive $375.00 With case/supply $449.00 



TM100-4 Double headed 80 track drive, unformatted double 
density storage = 1 .OmB 

TRS80 ,m Storage single density = 408KB, Double = 
735KB 

Bare drive $475.00 With case/supply $549.00 

2 Drive Disk Cable $24.95 

4 Drive Disk Cable $34.95 

Drive Extender Cable $13.95 

MODEL III DISK DRIVE KITS 

Complete kit installs in minutes, Interfaces any Tandon disk drive 
to your Model III, Detailed instructions included $429.95 



TWO USER 
MULTI-TASKING 



$89 T S H A R E VI. 3 

A SPLIT PERSONALITY FOR YOUR 
TRS- 80 MODEL I 

• Interrupt driven executive patches to parent operating system 
NEWDOS 2.1 or TRSDOS 2.3. 

• Allows two active users to share a single TRS-80. 

• Execute BASIC or MACHINE LANGUAGE (above 7700 Hex). 

• Joint access of disk files. 

• Second user ties to HOST via modem, terminal, or 2nd TRS-80. 

• Options for Expansion Interface, RS-232, TRS232, or HUH 
interface. 

• SIMPLEX MODE for non serial-port users. Requires only a 
printer to act as second "screen". Jobs share the keyboard 
under user control. 

• CONFIGURE UTILITY partitions memory usage and selects I/O. 



TRS-80 tm Radio Shack/Tandy Corp. 
NEWDOS tm Apparat, Inc. 
TRS232 tm Small System Software 
HUH tm California Computer Systems. 




MULTI 



DBM 5 
FEATURE DATA 



$49 
IANAGER 



Up to 20 user defined fields. 

Files extend across multiple diskettes. 

Supports up to four drives. 

Automatic single drive disk mount requests. 

Four data types and computational fields. 

Flexible REPORT GENERATOR. 

Fast assembly language sorts. 

MULTI-FIELD sorts and searches. 

Keyed access on any sorted field. 

Indexed relations between files. 



TO ORDER 



C©mS©f t 

203 ARDEN STREET ^204 
GLENDALE, CA 91203 
(213) 649-0369 



-See List of Advertisers on page 306 



80 Microcomputing, May 1981 • 263 



UTILITY 



A speedy quick sort utility for your lists of names. 



The Spare Time Generator 



Thomas C. Mehesan, Jr. 
1210 Kahler Court 
Sheldon, I A 51201 



What do you do while your 
micro is sorting that mem- 
bership or mailing list into al- 
phabetical order? 

I used to sit and watch the 
blank screen and wonder just 
where it was hung up. Or if I 
should break in to see if all is 
well. 

Well, I got tired of it. So I 
started looking for a way to 
build a better lettertrap. Here's 
what I found. 

Common Routines 

Several sorting routines are 
used on a microcomputer. The 
most common are the Ripple 
sort, Modified Ripple sort, Bub- 
ble sort, and the Shell-Metzner 
routine. (See "5 Minutes or 5 
Hours," by Doyle, Kilobaud, 
May, 1978.) 

The fastest is the Shell-Metz- 
ner, see Program Listing 1. Us- 
ing this particular routine you 
can sort 150 numbers from re- 
verse to ascending order in 36 
seconds. 

Dealing with string sorts is a 
different matter, and often 30 
minutes is common for sorting a 
list of 150 names alphabetically. 

With Qwik sort, however, the 
total time to load and sort 150 
names for a membership list is 
less than three minutes. On top 
of that, the screen keeps you in- 



formed of just what the CPU is 
up to. 

Program Description 

In our example, the member- 
ship list is entered and kept on 
disk in a file buffer. The buffer 
consists of two sub-records ac- 
cessed by membership number. 
The first two fields of the buffer 
(Program Listing 2, line 150) af- 
ter the dummy, provides the in- 
formation, name (NM$) and 
membership number (NR$). The 
information allows the sort to be 
performed and will reaccess the 
files to print the final list. 

Name consists of 20 bytes, 
last name first— space— first 
name or initials. Membership 
number is kept on disk as the 
two-byte string representation 
of the number value. 

In Quick sort each name is 
loaded into a sorted 26 x 30 ar- 
ray (B$(26,30) using the first let- 
ter of the last name to index 
"row". You can index up to 30 
names in each row, each start- 
ing with the same letter. This 
will accomodate a list of 200 
names. For a larger list, simply 
increase the size of the array 
and its companion (A(26,30)), 
which holds the related mem- 
bership number. 

After the arrays are built, a 
Shell-Metzner routine sorts only 
the entries in each row of array 
B$(26,30) but switches both ar- 
rays simultaneously. This re- 
duces the number of switches 
necessary in sorting by a factor 
of perhaps 10X. 

When each row is sorted, the 



final results are posted from the 
companion array to a master list 
of membership numbers (L(N)). 
The printing information is 
drawn from this. Some addition- 
al memory could be saved by 
eliminating the master list and 
printing from the companion ar- 
ray. 

In any event, now you have a 
program which allows you to 
sort a list of 150 names in rea- 
sonable time. It uses only 12243 
bytes to load the program and 
execute it. (It takes 32 bytes for 
each additional name.) This pro- 
gram can perform an in-memory 
sort of more than 250 names 
with only 16K memory or more 
than 425 names with 32K and a 
disk. 



Program Analysis 

Now to the fun stuff. 

Lines 50-70 inform the hard- 
ware of the number of names 
that must be sorted. To do this 
simply go to LOF(1) and see if 
both halves are occupied. Re- 
member, the total number of 
names is either the second sub- 
record (NR$) or, if that value is 
zero, 1 +(2*(LDF(1)-1)). If 
you're using a cassette, just 
place your name and number 
files into B$(26,30) and A(26,30). 

When using cassette or se- 
quential disk input, you may 
have to set up other companion 
arrays to handle final output to 
the print routines. It may be im- 
practical to go back to your files 
for other information about 





Program Listing 1. 


Shell-Metzner Sort 


250 


i ***** SHELL-METZNER SORT 


ROUTINE 


***** 


26 


M=R(Q)-1 










27 


M=INT(M/2) 










280 


IP M=0 THEN 


420 








290 


J=1:K=(R(Q) 


-1)-M 








300 


I=J 










310 


L=I+M 










320 


IF B$(Q,I)< 


=B$(Q,L) 


THEN 380 




330 


T$=B$(Q,I) : 


3$(Q,I)= 


B$(Q,L) 


B$(Q,L) 


=T$ 


340 


G=A(Q,I) :A(Q,I)=A(Q 


,L) :A(Q 


L)=G 




350 


I = I-M 










360 


IF Kl THEN 


380 








370 


GOTO310 










380 


J=J+1 










390 


IF J>K THEN 


27 








400 


GOTO 300 











Program Listing 2. Qwik Sort 



10 i ***** ALPHABETICAL SORTING PROGRAM ***** 

20 CLS:CLEAR 5000 

30 PRINT :PRINTTAB( 20) "ALPHABETICAL MEMBERSHIP LIST' 



Program continues 
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40 PRINT: INPUT"PRESS <ENTER> TO START SORT";Z 

50 i ***** DETERMINE NUMBER OF NAMES TO SORT ***** 

60 OPEN "R M ,1,"MLIST tl":GET l,LOF (1) tFIELD 1,128 AS DM 

$,2 AS NR$ 
70 IF CVI(NR$)<1 THEN N1-1+ (2* (LOF (1) -1) ) ELSE Nl-CVHN 

RS) 
80 DEFINT L, A 

90 i ***** DIMENSION ARRAYS ***** 
100 DIM A(26,30), L(N1), R(30), B$(26,30) 

110 • ***** L 0A D NAMES AND MEMBERSHIP NUMBERS TO ARRAYS 
***** 

120 CLS:PRINTTAB( 10) "WORKING": FOR J=l TO 26 :R ( J) =1 :NEXT 

J 
130 PRINT"RETRIEVING DATA #" 
140 FOR N=l TO N1:PRINT @ 81, N: PR%=INT ( (N-l) /2) +1 : SR%= 

N-(2*(PR%-1)) 
150 GET 1,PR%:FIELD 1, ( (SR%-1) *128) AS DM$, 2 AS NR$, 

20 AS NM$ 
160 J=ASC(LEFT$(NM$,l))-64 
17 A(J,R(J))=CVI(NR$) :B$(J,R(J))=NM$:R(J)=R(J)+l:GOT01 

80 
180 NEXT N:J=0:N=0:R=0:CLOSE 
190 i ***** SORTING ARRAY ELEMENTS ***** 
200 PRINT:PRINT:PRINT"SORTING '" 
210 P=0 

220 FOR Q=l TO 26: PRINT @ 267, CHR$(Q+64) 
230 IF A(Q,1)=0 GOTO450 
240 IF A(Q,2)=0 THEN P=P+1:L (P) =A(Q,1) :GOTO 450 

250 ' ***** SHELL-METZNER SORT ROUTINE ***** 

260 M=R(Q)-1 

27 M=INT(M/2) 

280 IF M=0 THEN 420 

290 J=1:K=(R(Q)-1)-M 

300 I=J 

310 L=I+M 

320 IF B$(Q,I)<=B$(Q,L) THEN 380 

330 T$=B$(Q,I):B$(Q,I)=B$(Q,L) :B$(Q,L)=T$ 

340 G=A(Q,I) :A(Q,I)=A(Q,L):A(Q,L)=G 

350 I=I-M 

360 IF Kl THEN 380 

370 GOTO310 

380 J=J+1 

390 IF J>K THEN 270 

400 GOTO 300 

410 • ***** LIST SORTED NAMES TO PRINTING ARRAY ***** 

420 FOR N=l TO R(Q)-1 

430 P=P+1:L(P)=A(Q,N) 

440 NEXT N 

450 NEXT Q 

460 GOTO 630 

470 END 

480 ' ***** SCREEN PRINT SORTED LIST ***** 

490 CLS:PRINTTAB( 20 ("MEMBERSHIP LIST" 

500 PRINTTAB ( 10 ) "NAME" ; TAB ( 28 ) "NUMBER" ; TAB ( 41 ) "TYPE" ; TA 
B(50) "PHONE" 

510 OPEN"R",1,"MLIST":Q=0 

520 FOR N=l TO Nl 

530 IF L(N)=0 GOTO 600 

540 PR%=INT<(L(N)-l)/2)+l:SR%=L(N)-(2*(PR%-l)) 

550 GET 1,PR%: FIELD 1 , ( (SR%-1 ) *128) AS DM$, 2 AS NR$, 2 
AS NM$, 

66 AS NU$, 40 AS RM$ 

560 PRINTTAB(5)NM$;TAB(30);USING"###";CVI(NR$) ;:PRINTTA 

B(40)LEFT$(RM$,18) 
570 Q=Q+1 
580 FOR J=12 TO Nl STEP 15: IF J=Q INPUT"PRESS <ENTER> F 

OR MORE";Z 
590 NEXT J 
600 NEXT N: CLOSE 

610 INPUT"PRESS <ENTER> TO CONTINUE" ;Z 
620 ■ ***** SELECT PRINTING MODE ***** 
6 30 CLS: PRINT: PRINT: PRINT "SELECT AS FOLLOWS:" 
640 PRINTTAB ( 10 ) "1. REVIEW LIST" :PRINTTAB(10) "2. PRINT 

HARD COPY" 
650 PRINTTAB(10) "3. END 
655 INPUT Z 

660 IF ZOl AND Z<>2 AND Z<>3 GOTO 630 
670 ON Z GOTO 490 ,680 ,840 

6 80 CLS:PRINT"MAKE SURE LINE PRINTER IS ON AND SET TO P 

RINT" 
690 PRINT: INPUT"ENTER TODAY'S DATE (##/##/##): ";DA$ 
700 PRINT: INPUT" PRESS <ENTER> TO PRINT"; Z 
710 LPRINTTAB(30) "NAME OF LIST" 
720 LPRINTTAB(27) "MEMBERSHIP LIST — ";DA$ 
730 LPRINT,CHR$(10) :LPRINTSTRING$ (75 , "=") 

7 40 LPRINTTAB(15) "NAME" ; TAB (38) "NUMBER" ; TAB (47) "TYPE";T 

AB( 57) "PHONE" 
750 LPRINTSTRING$(75,"- B ) 
760 OPEN"R",l,"MLIST" 
770 FOR N=l TO N1:J=L(N) 

780 PR%=INT((J-l)/2)+l:SR%=J-(2*(PR%-l)) 
790 GET 1,PR%:FIELD 1 , ( (SR%-1) *128) AS DM?, 2 AS NR$, 2 

AS NM$, 
66 AS NU$, 40 AS RM$ 
800 LPRINTTAB(10)NM$;TAB(40);USING"###";CVI(NR$) ;:LPRIN 

TTAB(46)RM$ 
810 NEXT N:CLOSE 
820 GOTO630 
830 END 
840 STOP:' *** OR RETURN TO MENU *** 



each name. 

Lines 140-180 load the two ar- 
rays, B$(26,30) and A(26,30), 

from disk, sorting by the first let- 
ter as they go. The membership 
number Is displayed on the 
screen as each file is loaded. 
The formula J=ASC(LEFT$ 
(NM$,1))-64 performs this. We all 
know that the ASCII value for A 
is 65 and values increment up by 
1s from there. (When sorting 
lowercase strings substitute 97 
for 64 in the formula. Remem- 
ber, the names are on disk by 
last name first.) Already you 
have sorted the entire list by 
first letter as you load it, and the 
whole process took only 42 sec- 
onds! 

After everything is neatly in 
the arrays, it's important to find 
out how many entries there are 
in each row. No need to sort one 
entry, is there? We could look at 
the pointer (R(J)) you created in 
line 120 (to tell the CPU where to 
put the next entry in the row). It 
seems simpler, however, to look 
at the first and second entries in 
lines 230 and 240. If there is no 
entry, (no name with that first 



letter in the list) skip to the next 
row. If there is only one entry, 
shown by the second entry equal- 
ing zero, post this entry directly 
to the master list. No sort Is nec- 
essary. The pointer for the mas- 
ter list (P(N)) at lines 210, 240 and 
430 will put this posting in prop- 
er sequence. 

If you fail the tests in lines 230 
and 240, go right into the Shell- 
Metzner sorting routine, lines 
200-400. Notice that at lines 200 
and 220 there is some screen ac- 
tivity indicating which letter the 
CPU is handling. This tells you 
the program hasn't crashed. 

After sorting each row, the re- 
arranged entries in A(26,30) are 
posted to the master list at lines 
400-440. At line 450 you can 
jump back to start the process 
for the next letter. 

When you hit line 460, you are 
done sorting. Surprise ... only 2 
minutes and 42 seconds have 
elapsed. 

Your biggest problem, after 
you print out your nice new list 
(lines 490 to end), is to figure 
what you're going to do with all 
that spare time.H 



& 




RS205 



AP101 Apple II with Single Disk Drive $109 

AP1 02 Apple II with Double Disk Drives 119 

AP103 Apple II, 9 inch Monitor & Double Drives ... 129 

AP104 Apple ///, two additional Drives & Silentype 139 

AP105 12 inch monitor plus accessories 99 

RS201 TRS-80 Model I, Expansion Unit & Drives .... 109 

RS202 TRS-80 Monitor or TV set 84 

RS204 TRS-80 Model III 129 

RS205 Radio Shack Color Computer 89 

P401 Paper Tiger 440/445/460 99 

P402 Centronics 730/737 - Line Printer ll/IV 89 

P403 Epson MX70 or MX80 89 

CC90 Matching Attache Case 75 

- 1 " compuTQf case company ml 

5650 INDIAN MOUND CT. COLUMBUS.' OHIO 43213 (614) 868-9464 mmd 



sSee List of Advertisers on page 306 
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REVIEW 



Hardware to speed up cassette I/O. 



The FCI-80 and the TC-8 



TC-8 

JPC Products, Inc. 

Albuquerque, NM 

$120 

FCI-80 

Personal Micro Computers, Inc. 

Ml. View, CA 

$188 

by Harley Dyk 

1644 Grant 

Grand Haven, Ml 49417 



Owners of cassette based TRS-80 com- 
puters have four mass-storage op- 
tions: Disks, tape units, speed-up devices 
for cassette, and simple cassettes. The ad- 
vantages of disk have been fairly well publi- 
cized; the May issue of 80 Microcomputing 
ran an article on the Stringy Floppy and 
Beta-80, and there is little to write about the 
slow and not too reliable TRS-80 Cassette 
Operating System (COS). This article looks 
at two ways to speed up tape storage and 
make it more reliable. The products under 
consideration are the FCI-80 by Personal 
Micro Computers Inc., and the TC-8 by JPC 
Products, Inc. 

FCI-80 

The FCI-80 takes a novel approach to in- 
creasing cassette load speed. Rather than 
increasing the density of tape data, the tape 
is moved faster. Programs are saved as usu- 
al at the normal speed, but when one wants 
to load a program using the FCI-80, fast for- 
ward and play are pressed simultaneously 
on a modified CTR-41 recorder. This in- 
creases load speed to a minimum of 6000 
baud (about 12 times the conventional load 
speed). 

The FCI-80 connects to the keyboard with 
a 40-conductor ribbon cable, connects to a 
9V AC power adapter, and plugs into the 
earjack on the recorder. The unit is about 
the size of the recorder and is designed to 



be placed under the recorder. 

The operating system is in ROM at ad- 
dress 12288 (3000 H), an area just above 
Level II BASIC called reserved. After turning 
the computer on, simply type SYSTEM fol- 
lowed by /12288 to make the FCI-80 func- 
tional. To load a conventionally saved pro- 
gram, type LOAD. This clears the screen 
and displays the question: BASIC(B) OR 
SYSTEM(S)? After answering, you can spe- 
cify a program name, and finally the mes- 
sage PRESS PLAY & FFWD ON THE TAPE 
DECK is displayed. 

Volume must be at maximum; the break 
key will get you back to BASIC at any time. 
Since fast forward and play must work to- 
gether, the recorder must be modified. You 
can purchase such a recorder, or full in- 
structions come with the FCI-80 to modify 
your CTR-41. 

Loading speed is almost unbelievable for 
an audio cassette. The speed is not fixed 
since the fast forward speed of a tape in- 
creases as the size of the take-up reel in- 
creases. I was not able to get the unit to 
work near the end of a 300 ft. tape, but it 
worked fine from the beginning through at 
least the 100 ft. point. This means you 
should be able to use tapes with at least 10 
minutes per side. 

At its slowest, the FCI-80 loaded a 14K 



program in 16.5 seconds. The program took 
228 seconds with TRS-80 COS, a speed-up 
factor of more than 13. I also tried a 4.3K 
program at the beginning of a tape and it 
loaded in about 5.7 seconds. I recorded the 
same program at about the 100 ft. point of 
the tape and was able to load the program 
in 3.9 seconds, which is nearly 9000 baud (a 
speed-up factor of nearly 18). 

Due to the speed of the FCI-80, cassette 
head alignment is very important. I was not 
initially able to get tapes I had recorded or 
purchased programs to load. I rerecorded 
these programs on the modified CTR-41 and 
then they loaded without problem. I could 
have elected to try to match the head align- 
ment to my tapes. 

The unit is ideal for someone who fre- 
quently uses large programs but rarely 
saves them. The unit does load programs 
rapidly, but I feel two very important fea- 
tures are missing. Programs must be saved 
at the same slow speed, and writing data to 
tape (one of the weakest features of TRS-80 
COS) has not been changed. 

One nice additional feature of the FCI-80 
is that a keyboard debounce program is al- 
so in ROM at address 12800 (3200 H). This 
program also provides automatic key re- 
peat when a key is held down, and will beep 
when you press a key if the cassette output 
plug is connected to an amplifier. 





TC-8 




FCI-80 


Cost 


$90 kit, $120 assembled, $3.50 for postage 
and handling 


$188, plus $25 for cable plus $8 for power 
pack, add $95 for modified CTR-41 if need- 
ed. Prices include shipping. 


Size: W x L x H 


4" X 5.5" x 2.75" 




5.25" x 10.25" x 2" 


Operating 
System 

Warranty 


In RAM— takes about 1.3 k 
60 day 




In ROM at 12288 (3000 H) 
90 day, 30 day money back 


Keyboard 
Debounce 


Yes 




Yes 


Contact 


JPC Products Inc. 
Albuquerque, NM 87112 




Personal Micro Computers Inc. 
Mt. View, CA 94043 


Speed 


2400 baud 




6000-9000 baud load only 




Table 1. 


Comparison 


table. 
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COMPUTER 

EQUIPMENT 

& SOFTWARE 

BARGAINS 



EVERY MONTH 



; CamPUTBR SHOPPER \ 






"IS SIS 



— ::■:■■- _ .■:.._■ . :: -.- ■ - . 



_. Get Your 
First Issue FREE' 



(THS-M's at Super Discount Prices) 



r 



BUY, SELL OR TRADE ALL TYPES OF COMPUTER 
EQUIPMENT AND SOFTWARE (pre-owned and 
new) among 20,000 readers nationwide. 
FEATURES: 

• Low classified ad rates - 10$ a word 

• Hundreds of ads from individuals 

• Categorized ads so you can find them instantly 

• Large (11 by 14") easy to read pages 

Subscribe now for $10 and receive 13 issues/year 
(one FREE plus 12 regular issues). After receiving 
your first issue if you're not completely satisfied 
you may have a 100% refund and you still keep the 
first issue free. Bank cards accepted. 
BONUS: If you have something to advertise (pre- 
owned or software) send in a classified ad with your 
subscription and we'll run it FREE. 

*i) The Nationwide Marketplace for Computer Equipment 

m COfTIPUTBR SHOWBR ^™ 

(j> P.O. BOX F 27 • TITUSVILLE, FL 32780 m 305-269-32/1 

MasterCard & VISA subscriptions only, call TOLL FREE 1 -800-528-6050 Ex. 184 . 



STOCK MARKET 
SOFTWARE 



By H & H Trading Company for Mod. I, II, & III TRS-80®s 

STOCK TRACKER™ times trades on individ- 
ual stocks and options. Uses a technical volume 
analysis. Completely objective. Gives buy, sell 
signals. 

MARKET TRACKER™ times tops & bottoms 
on the Dow Industrials; a composite of six tech- 
nical indicators. Some judgement required. 
Gives buy, sell signals. 
These two programs are accurate. 
Hundreds of satisfied users. 

ASK FOR THE EVIDENCE ! 

FOR MORE INFORMATION OR TO ORDER, CONTACT: 

H * Xtt WIPING CQA^INY 



POST OFFICE BOX 23546 

PLEASANT HILL. CALIFORNIA 94523 

Telephone 415/937-1030 
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VISA ft MASTERCARD 




For TRS-80 Basic 

Programmers.. A Way To Get 

Your Basic Programs Working Fast 

BasicPro!! 

BasicPro Saves Hours of Programming Drudgery 

Write and debug your BASIC programs faster. With Basic 
Pro you get 12 powerful programming aids that let you 
instantly: 

• MOVE or COPY code • RENUMBER lines 

• RENAME variables • JOIN programs together 
And more! You also get a handy CROSS REFERENCE list 
that shows you where every variable is used. BasicPro even 
has a SPEED-UP option that makes your code run faster. 

BasicPro Is Easy To Use. 

Just select what you want to do from the command 
menu. You never get stuck with BasicPro. Just use the 
unique HELP command. BasicPro provides plenty of prompt 
messages to guide you through any programming session. 

BasicPro comes complete with instruction booklet. 
Start enjoying effortless programming! Order BasicPro 
today! $24.95 

Also New... VisiCom - The Visible Computer 

Learn Machine Language Programming Fast with 
VisiCom. VisiCom turns your TRS-80 into a simple computer 
with registers and memory displayed. VisiCom's small set of 
machine language instructions is easy to use. You start 
writing machine language programs immediately. 

See Your Machine Language Programs Running 
"Inside" VisiCom. You see data move in and out of 
registers and memory as VisiCom executes each instruction. 
It's EASY to learn machine language programming when you 
can SEE what every instruction does. 

VisiCom comes with instruction manual. 

Start learning machine language programming the fast, 
fun way! Order VisiCom today $19.95 

Special Offer! Act NOW and SAVE 20% 

By ordering BOTH BasicPro and VisiCom, 

you pay just $35.95 (reg. $44.95) 

Both BasicPro and VisiCom require TRS—80 level II and <16K) memory 
and are available on tape cassette. 

SOFTWORX, INC. P.O. Box 9080, Seattle, WA 98109 
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8M-2 



I 



Please send me the items checked below 

□ BasicPro $24.95 

□ VisiCom $19.95 

D BasicPro & VisiCom $35.95 

Name 



Address 



j City 
I State. 



Enclose check or money order and mail this coupon to: 
Softworx, Inc. P.O. Box 9080, Seattle, WA 98109 
Or Charge to: 



_Zip_ 



Visa# . 



_Mastercharge# . 



| Cardholder Signature. 
I Expiration Date 



L_ 



(BRegd.T.M. of Rodio Shock 



Visa and Mastercharge customers may call (206) 284-7388 



*»See List of Advertisers on page 306 
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THE B00K 

A<*^^^^Tk S - 80 tm ROM 




if you ever do Assembly language program- 
ming, or you just want to know more about 
your TRS-80 ROM, "THE BOOK"s are for you. 

•TRS-80 is a trademark of Tandy Corp. 

Each volume is priced at: $14.95 + $1.50 
S&H = $16.45 ($17.05 in VA) Overseas add 
$2.50 for air shipment 



Volume I: The most comprehensive 
book yet on the math routines in 
Level II ROM, Models I & III. In- 
cludes a fully commented listing 
from 0708H to 1607H and an in- 
credibly complete map of the ROM 
and reserved areas of RAM. 



i^305 



! Insiders Software Consultants, Inc. 
P.O. Box 2441, Dept. SUM2 
Springfield, VA 22152 

□ Please send me Volume I of THE BOOK 

T Please send me Volume II of THE BOOK 



NAME 

ADDRESS 



CITY, ST ATE 




.ZIPCODE^ 



Check payable to Insiders Software Consultants, 

MASTER CHARGE MC Bank Code 

VISA Exp. Date Card Number 



Signature 



Dealer Inquiries Invited 



Volume II: Everything you want to 
know about the video, keyboard, 
cassette, and printer driver 
routines. Learn how to write your 
own! Remarkably detailed listings 
illustrate well-commented source 
code. Complement Volume I, now. 



WE'RE 

EXCITED . . . 



CLOAD MAGAZINE, the cassette magazine for your TRS-80 Model I, is also for 
your TRS-80 Model III! Over 90% of the monthly offerings on cassette (including CIA 
Adventure, Hustle, States Quiz, RAM Test, and Alien — a machine language space 
invader-type game) will load and run on the Model III directly. 

Now you Model I'ers and Model lll'ers can both spend your time RGNning 
programs, rather than ENTERing and EDITing them. Each tape contains 
6 to 8 ready-to-CLOAD fun, educational, and practical programs, delivered 
to your door by First Class Mail each month. 

Join Clyde's march for reduced keystrokes, and Exercise your 
computer with Super, ready-to-load programs. 

Get CLOAD MAGAZINE and get excited too! 



The Fine Print: 

Overseas rates slightly higher— 

please write for them. 
Back issues available— ask for our list.* 
TRS80 is a trademark of Tandy Corporation 
California residents add 6% to single copies 

and anthologies. Programs are for Level II 

16K, Model III 16K, and occasionally for disks.*24 Level I back issues also available 

Mastercard/Visa Welcome. 



PRICES 

l year subscription . 
6 month subscription 

Single copies 

Anthology-volume l 
Anthology-volume 2 



$42.00 
523.00 
$4.50 
$10.00 
$15.00 



^32 



•• MAGAZINE IMC. P.O. Box 1267 Goleta, CA 931 16 




(805) 964-2761 
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TC-8 

The TC-8 has been dubbed the "poor 
man's floppy," and the name fits. The unit 
saves and loads programs almost five times 
as fast as conventional cassette, offers a 
significant improvement in raw data stor- 
age, and improves reliability. 

The TC-8 connects to the keyboard with a 
40-conductor ribbon cable, connects to a 9V 
AC power adapter, and to the recorder. The 
operating system (called Util) is loaded 
from TRS-80 COS tape so the recorder is ini- 
tially connected to the keyboard. Memory 
size must be set to 31400 on power up, and 
the operating system (which occupies 
about 1.3K) must be loaded at the conven- 
tional speed. You can then plug the record- 
er into the TC-8 and proceed (save & load) at 
2400 baud. The results are what one would 
expect at this speed: A 4.3K program loads 
in 15 seconds, and a 14K program in 48 sec- 
onds. 

The TC-8 uses a modified Manchester 
pulse code (phase encoded) and claims less 
than one error per million bits. The unit 
works well with Radio Shack recorders but I 
found that it would not work with all record- 
ers. 

The TC-8 has a very smooth operating 
system and excellent documentation. You 
can use up to eight characters for program 
names, and 11 commands are provided, 
most for saving, loading, and verifying BA- 
SIC and machine language programs. 
There is also a directory command which 
displays the names of programs as they are 
encountered on a tape. The KILL command 
gets rid of Util so that a large program that 
has been loaded can be run. 

The syntax for saving raw data on the 
TC-8 is: PRINT #1,X. The only difference 
from standard cassette syntax is that TRS- 
80 COS uses # - 1 . Using that statement in a 
loop, it took 428 seconds to store 100 three- 
digit random numbers with the TRS-80 COS. 
The TC-8 performed the task in 22 seconds, 
almost 20 times faster! Although the speed 
of TRS-80 COS data storage can be im- 
proved by placing several variables in the 
same PRINT #-1 statement, this is not 
always convenient or even possible in a 
given program. 

The TC-8 software includes a monitor 
called Tiny. The monitor provides a means 
to find the beginning, end, and execution 
addresses of most machine language pro- 
grams. Tiny also permits you to examine 
memory locations, relocate Util (for 32K or 
48K systems), write backup copies of Util, 
and jump to any hex address. 

The TC-8 can be purchased in kit form. 
The instructions for the kit are superb and 
the 11 resistors, nine capacitors, three di- 
odes, two transistors, five ICs, one regula- 
tor, plus miscellaneous hardware, can be 
assembled in about one hour. Assuming all 
parts are good, you can be up and running 
for a mere $90. 

The FCI-80 and TC-8 are certainly worth 
considering if you want to improve your 
cassette storage without investing a major 
amount.B 
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SPEAK-EAZY 

- the - 
HUMAN QUALITY 



-VOICE SYNTHESIZER- 

$29900 

for the TRS 80* 

16K Level II 
= Tape or Disk= 

- complete with - 
: 250+ WORDS in ROM 
: EXPANDABLE 
: SOFTWARE 
: USERS MANUAL 
: POWER SUPPLY 
: AUDIO AMP 
: INTERFACE CABLE 

*TRS 80 is a TM of 
Tandy Corp. ^m 

progressive" 

electronics 

643 E. Chestnut St. 

Lancaster, OH. 43130 

Ph: 614-687-1019 



WW, 



WUCANBUY. 



String 
Packer 

FOR THE TRS 80 
MODEL I OR III 

• Draw a picture; graphics, 
ASCH II Characters or Mixed, 
with String Packer's Screen 
Drawing Routine. 

• Issue the 'Pack' command and 
the screen is packed into a 
string, ready to merge with 
your programs. 

• String Packer also packs 
machine language sub- 
routines — no hassle. 

• String Packer can edit the 
packed strings that it creates. 

500 Band Cassette — $ 9.95 
Single Density Disk — $12.95 

New Ideas in Software Service 

from 

The Maine Software Library ^268 
P.O. Box 197 
Standish, ME 04084 



Up to 77 high-quality programs 
for TRS-80, only $10.95 



NewBasic 



:xpands '80 Basic 

NewBasic, from Modular Software 
Associates, adds tremendous power 
and flexibility to Level II or disk 
Basic. The disk version includes a 
unique CREATOR program which 
allows you to customize NewBasic to 
inlude any or all of over 30 new 
commands. Level II NewBasic 
includes all of the non-disk 
commands found in disk NewBasic. A 
few of the many new features added 
include: 

SPOOLING-DESPOOLING (disk version)— 
Allows printer output to be "spooled" to disk 
instead of being printed. Later, the file may be 
"despooled" (i.e. printed out) while the computer 
can still run Basic, as usual (another program, or 
you input a program!). 

NEW TRACE UTILITY— Now trace more than 
just a line number! This trace facility displays 
(LISTs) the line being executed, as well as the 
current value of specified variables and 
expressions. 

SOUND AND GRAPHICS- Easily c reate music or 
sound effects with the versatile SOUND 
command. Lines and rectangles may be 
effortlessly drawn with the new graphics 
commands: LINE, RECT, and FILL. 

RS232— NewBasic allows you to initialize your 
RS-232-C, receive input from it, or output to it- 
all from within Basic! 

QUICK KEY ENTRY— Over 35 pre-defined keys 
allow you to "type" most any common Basic 
keyword quickly and without errors. 

Blinking cursor; Repeating keys; Lowercase 
driver; DO-UNTIL; Line labels; RESTORE any 
DATA line... 

and MUCH more. Including many features not 
available elsewhere. The finest enhanced Basic 
package available for your Model I! 

Disk version (1 drive, 32K min.) distributed on 
cassette ($31. 75 CA) $29 95 

Level II (cassette) version ( 1 6K min) $1 9 . 95 (may 
be upgraded to disk for $10.95) $19.95 

SuperPIMx— People's Database 

PIMS has been greatly speeded up and simplified, 
with machine-language sorts, key debounce, 
optional automatic lowercase (no keying, no 
hardware mod) on labels or reports. Up to 20 
fields, limited by 255-character maximum per 
field. Easy to revise, add records, split or 
merge files, sum or average any fields. 
Customized fortape, tape 4 disk, Zoom, TC8 Poor 
Man's Floppy, B17, Stringy Floppy— all on one 
tape! As mailing labels program, easily manages 
20,000 list. CIE does! Advanced labels module to 
come, $24.95, making system most powerful 
mailer available! 

program (CIE) $19.95 ($21.15 CA) 

book, details uses (CIE) $11.95 ($12.67 CA) 

NewDOS-80— New Low Price! 

Successor to NewDOS + , same package for which 

you pay $149 elsewhere, at CIE just... 

($105.95 CA) $99.95 

Games for color TRS-80 

Modular Software Assoc, tape contains: 

• PONG-80 • ENTRAP • DEMOLISH (like 
Breakout) • TRAFFIC (Grand Prix auto race) 

• BETA TREK space game • SHUTTLE (rocket 
ship game). $19.95 ($20.55 CA) 

PASPATCH 

PasPatch, Tape 6P, makes Tandy tiny 
Pascal a powerful disk system! 

Modular Software Assoc. $15.95 

All orders charge card, check or m.o. 

Calif . residents add 6 pet tax. Dealer inq. invited 

Overseas, add $1.50 per tape postage 



COMPUTER INFORMATION EXCHANGE 

Box 159 

San Luis Rey C A 92068 



sSee List of Advertisers on page 306 
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UTILITY 



A program-packing utility for those with short memories. 



Comprs 



Stephen Barker 
7700 Parkway Dr. #44 
La Mesa, CA 92041 



Comprs is a machine lan- 
guage utility program 
which will remove REM state- 
ments and extra spaces from 
BASIC programs. This allows 
you to fully document your file 
copy of a program and then 
compress it into a smaller work 
copy. Spaces within quotes will 
not be removed. Warning: This 
program not only removes the 
REM statement but the entire 
line. Therefore, any references 
to that line must be changed. 

I have included two versions 
of this program. The first is a 
source listing for the machine 
language version. This can be 
assembled using the Radio 
Shack Editor/Assembler. The 
second version is a BASIC list- 
ing in which the machine lan- 
guage version has been broken 
into data statements. This pro- 
gram will POKE the machine 
language version into memory. 



If you choose to use the BASIC 
version, write a small loop to 
add up the sum of all the data 
statements. The total should be 
23,416. Use this to cross-check 
the numbers you entered. 

Instructions 

Machine Language: Enter the 
BASIC program to be com- 
pressed by CLOADing. Enter 
Comprs using the SYSTEM com- 
mand. Execute the program by 
typing / and Enter. When READY 
is shown on the screen, the pro- 
gram has been compressed. 

BASIC: Enter and run the 
BASIC version of Comprs. 
CLOAD the program to be com- 
pressed. Type SYSTEM and 
Enter. When ? appears on the 
screen type /32512 and Enter. 
When READY is shown on the 
screen, the program has been 
compressed. ■ 



Program Listing 2 



100 'THIS IS A BASIC VERSION OF COMPRESS. THIS WILL POK 

E 
110 'THE MACHINE LANGUAGE PROGRAM INTO MEMORY. 
120 FORX=32512T032715:READA:POKEX,A:NEXT:END 
130 DATA33, 233, 66, 34, 254, 126, 33, 253, 126, 54, 0,42, 254, 126 

,35 

140 DATA35, 35, 35, 126, 254, 147, 40, 14, 254, 34, 40, 7 3, 254, 32, 

40,90 

15 DATA254, 0,40, 41, 24, 236, 42, 254, 126, 35, 35, 35, 35, 1,4,0 

,35 

16 DATA3, 126, 254, 0,32, 249, 3, 35, 229, 42, 249, 64, 237, 91, 25 

4,126 

17 DATA17 5, 237, 82, 229, 19 3, 225, 237, 176, 42, 254, 126, 43, 35 

,229 
180 DATA126, 254, 0,32, 6, 35, 126, 254, 0,40, 60, 225, 34, 254, 12 

6,33 
190 DATA253, 126, 54, 0,24, 167, 58, 253, 126, 254, 0,40, 7, 62,0, 

50,253 
200 DATA126, 24, 159, 62, 1,5 0,253, 126, 24, 15 2, 58, 253, 126, 25 

4,1 
210 DATA40, 145, 229, 229, 229, 42, 249, 64, 209, 17 5, 237, 82, 229 

,193 
220 DATA225, 35, 237, 17 6, 225, 43, 195, 17, 127, 33, 233, 66, 34, 2 

54,126 
230 DATA42, 254, 126, 126, 254, 0,32, 13, 35, 126, 254, 0,32, 7, 35 

,34 

240 DATA24 9, 64, 195, 25, 26, 42, 254, 126, 35, 35, 35, 35, 126, 254 

,0,32 
25 DATA250, 35, 229, 229, 193, 42, 254, 126, 113, 35, 112, 225, 34 

,254 
260 DATA126,24,207 











Program Listing 1 




\ 




00100 




; COMPRS 


IS A PROGRAM TO REMOVE REM STATEMENTS AND 






00110 




; SPACES 


FROM BASIC PROGRAMS 


7F00 




00120 




ORG 


7F00H 




7F00 




00130 


START 


EQU 


$ 




7EFE 




00140 


REF 


EQU 


START- 2 


; REFERENCE POINTER 


7EFD 




00150 


QTE 


EQU 


START-3 


; QUOTE FLAG 


7F00 


21E942 


00160 




LD 


HL,42E9H 


; BEGINNING OF BASIC 


7F03 


22FE7E 


00170 




LD 


(REF) ,HL 


;SET POINTER 


7F06 


21FD7E 


00180 




LD 


HL,QTE 


; RESET FLAG 


7F09 


3600 


00190 




LD 


(HL) ,0 




7F0B 


2AFE7E 


00200 


SEARCH 


LD 


HL, (REF) 


; SEARCH FOR KEY CODES 


7F0E 


23 


00210 




INC 


HL 


;SKIP 4 BYTES 


7F0F 


23 


00220 




INC 


HL 




7F10 


23 


00230 




INC 


HL 




7F11 


23 


00240 


NXT 


INC 


HL 




7F12 


7E 


00250 




LD 


A, (HL) 




7F13 


FE93 


00260 




CP 


93H 


;REH? 


7F15 


280E 


00270 




JR 


Z,REM 




7F17 


FE22 


00280 




CP 


22H 


; QUOTES? 


7F19 


2849 


00290 




JR 


Z, QUOTE 




7F1B 


FE20 


00300 




CP 


20H 


; SPACE? 


7F1D 


285A 


00310 




JR 


Z, SPACE 




7F1F 


FE00 


00320 




CP 





;END OF LINE? 

Program Continues 
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7F21 2829 


00330 




JR 


Z, ENTER 




7F23 18EC 


00340 




JR 


NXT 




7F25 2AFE7E 


00350 


REM 


LD 


HL, (REF) 


;THIS DELETES REM LINE 


7F28 23 


00360 




INC 


HL 


;SKIP 4 BYTES 


7F29 23 


00370 




INC 


HL 




7F2A 23 


00380 




INC 


HL 




7F2B 23 


00390 




INC 


HL 




7F2C 010400 


00400 




LD 


BC,4 


;BYTE COUNTER 


7F2F 23 


00410 


Rl 


INC 


HL 




7F30 03 


00420 




INC 


BC 




7F31 7E 


00430 




LD 


A, (HL) 




7F32 FE00 


00440 




CP 





;END OF LINE? 


7F34 20F9 


00450 




JR 


NZ,R1 




7F36 03 


00460 




INC 


BC 


;ADD BYTE TO COUNTER 


7F37 23 


00470 




INC 


HL 




7F38 E5 


00480 




PUSH 


HL 




7F39 2AF940 


00490 




LD 


HL, (40F9H) 


;END OF PROGRAM 


7F3C ED5BFE7E 00500 




LD 


DE, (REF) 


; POINTER 


7F40 AF 


00510 




XOR 


A 




7F41 ED52 


00520 




SBC 


HL,DE 


;# OF BYTES TO BE MOVED 


7F43 E5 


00530 




PUSH 


HL 




7F44 CI 


00540 




POP 


BC 


;# 0F BYTES DELETED 


7F45 El 


00550 




POP 


HL 




7F46 EDB0 


00560 




LDIR 




; DELETE LINE 


7F48 2AFE7E 


00570 




LD 


HL, (REF) 




7F4B 2B 


00580 




DEC 


HL 




7F4C 23 


00590 


ENTER 


INC 


HL 


;LAST LINE? 


7F4D E5 


00600 




PUSH 


HL 




7F4E 7E 


00610 




LD 


A, (HL) 




7F4F FE00 


00620 




CP 







7F51 2006 


00630 




JR 


NZ,E1 


; CANNOT BE LAST LINE 


7F53 23 


00640 




INC 


HL 




7F54 7E 


00650 




LD 


A, (HL) 




7F55 FE00 


00660 




CP 







7F57 283C 


00670 




JR 


Z, POINT 


;END OF PROGRAM 


7F59 El 


00680 


El 


POP 


HL 




7F5A 22FE7E 


00690 




LD 


(REF) ,HL 




7F5D 21FD7E 


00700 




LD 


HL,QTE 




7F60 3600 


00710 




LD 


(HL),0 


; CLEAR QUOTE FLAG 


7F62 18A7 


00720 




JR 


SEARCH 




7F64 3AFD7E 


00730 


QUOTE 


LD 


A, (QTE) 


;THIS CHECKS TO SEE IF 


7F67 FE00 


00740 




CP 





; QUOTE FLAG IS SET 


7F69 2807 


007 50 




JR 


Z,Q1 




7F6B 3E00 


00760 




LD 


A,0 


; RESET FLAG 


7F6D 32FD7E 


00770 




LD 


(QTE) ,A 




7F70 189F 


007 80 




JR 


NXT 




7F72 3E01 


007 90 


Ql 


LD 


A,l 


;SET FLAG 


7F74 32FD7E 


00800 




LD 


(QTE) ,A 




7F77 1898 


00810 




JR 


NXT 




7F7 9 3AFD7E 


00820 


SPACE 


LD 


A, (QTE) 


;THIS REMOVES SPACE IF 


7F7C FE01 


00830 




CP 


1 


;NOT WITHIN QUOTES 


7F7E 2891 


00840 




JR 


Z,NXT 


; QUOTES ARE SET 


7F80 E5 


00850 




PUSH 


HL 




7F81 E5 


00860 




PUSH 


HL 




7F82 E5 


00870 




PUSH 


HL 




7F83 2AF940 


00880 




LD 


HL, (40F9H) 


;END OF PROGRAM 


7F86 Dl 


00890 




POP 


DE 




7F87 AF 


00900 




XOR 


A 




7F88 ED52 


00910 




SBC 


HL,DE 


;# OF BYTES TO BE MOVED 


7F8A E5 


00920 




PUSH 


HL 




7F8B CI 


00930 




POP 


BC 




7F8C El 


00940 




POP 


HL 




7F8D 23 


00950 




INC 


HL 




7F8E EDB0 


00960 




LDIR 




; REMOVE SPACE 


7F90 El 


00970 




POP 


HL 




7F91 2B 


00980 




DEC 


HL 




7F92 C3117F 


00990 




JP 


NXT 




7F95 21E942 


01000 


POINT 


LD 


HL,42E9H 


;THIS RESETS ALL LINE 


7F98 22FE7E 


01010 




LD 


(REF) ,HL 


; POINTERS 


7F9B 2AFE7E 


01020 


PI 


LD 


HL, (REF) 




7F9E 7E 


01030 




LD 


A, (HL) 




7F9F FE00 


01040 




CP 





;LAST LINE? 


7FA1 200D 


01050 




JR 


NZ,P2 




7FA3 23 


01060 




INC 


HL 




7FA4 7E 


01070 




LD 


A, (HL) 




7FA5 FE00 


01080 




CP 







7FA7 2007 


01090 




JR 


NZ,P2 




7FA9 23 


01100 




INC 


HL 




7FAA 22F940 


01110 




LD 


(40F9H) ,HL 


;SET END OF PROGRAM 


7FAD C3191A 


01120 




JP 


1A19H 


; RETURN TO BASIC 


7FB0 2AFE7E 


01130 


P2 


LD 


HL, (REF) 




7FB3 23 


01140 




INC 


HL 


;SKIP 4 BYTES 


7FB4 23 


01150 




INC 


HL 




7FB5 23 


01160 




INC 


HL 




7FB6 23 


01170 


P3 


INC 


IIL 




7FB7 7E 


01180 




LD 


A, (HL) 




7FB8 FE00 


01190 




CP 





;END OF LINE? 


7FBA 20FA 


01200 




JR 


NZ,P3 




7FBC 23 


01210 




INC 


HL 




7FBD E5 


01220 




PUSH 


HL 




7FBE E5 


01230 




PUSH 


HL 




7FBF CI 


01240 




POP 


BC 




7FC0 2AFE7E 


01250 




LD 


HL, (REF) 




7FC3 71 


01260 




LD 


(HL) ,C 


;SET POINTER LSB 


7FC4 23 


01270 




INC 


HL 




7FC5 70 


01280 




LD 


(HL) ,B 


; SET POINTER MSB 


7FC6 El 


01290 




POP 


HL 




7FC7 22FE7E 


01300 




LD 


(REF) ,HL 


;SET REFERENCE 


7FCA 18CF 


01310 




JR 


PI 




7F00 


01320 




END 


START 




00000 TOTAL ERRORS 











PMC80 16K Level II 

Campatible with all TRS80* 

hardware and software 

plus it has an S100 bus 

$499 

Expansion interface 

(for PMC80) with disk controller 

RS232, parallel, 2 empty slots 

$299 

Expand to 48K (or $219 

Call us for Model III 

EPSON MX 80 PRINTER 

$469 

Aerocomp disk drives 

120 day warranty 

Best Buy - 80 track flippy 

$429 complete 

Flip diskette and use both sides! 

Diskettes $2.25 



Color 



Sound 

Synthesizer 

High Resolution 

Graphics 
Fully Expandable 

9K RAM 14K ROM 

LOW PRICE 

APF Imagination Machine 

$475 

With expansion box. disk con- 
troller and 5V< drive $849 

SI 232 Serial interface cartridge. 

Connect a printer or modem! 

$135 

A lot of companies offer 
"unbeatable" prices — T6S is 
serious about giving you the 
lowest prices possible on only the 
best quality products. We will 
meet or beat anyone's price. Buy- 
ing from companies that advertise 
high prices and a meet or beat 
policy is self-defeating — TGS will 
go out of business and you'll be 
back paying those high advertised 
prices! We can get almost ANY 
computer or related product for 
you at the lowest possible cost. All 
prices cash discounted. 

M/C, Visa, COD add 5%. Shipp- 
ing freight collect, 5%, or $5 per 
item, your choice. 

irlrJifi 

Route 2, Box 44 ^73 
Canton. Kansas 67428 
(316) 628-4935 

'Trademark ol Tandy/Radio Shack 



sSee List of Advertisers on page 306 



80 Microcomputing, May 1981 • 271 



GENERAL 



This time-saving gambit 

allows you to save, then reload, ongoing Sargon struggles. 



The Sargon Saver 



Thomas L. Quindry 
TLQ Enterprises 
6237 Windward Dr. 
Burke, VA 22015 



Ever wish you could play 
Sargon at its highest level 
of play without tieing up your 
computer for weeks at a time? 
Sargon I takes up to 16 hours to 
analyze a move at its top level of 
play. Sargon II, though faster, 
takes between four and seven 
hours at its top level. 

While this game is in progress 
your computer is not available 
for any other use. You could 
power up Sargon every day and 
set up the current board posi- 
tion, but that doesn't sound too 
promising. After all, it's a tough 
job to manually set up the game 
position, let alone remembering 
it from day to day. 

Computer Set-up 

It doesn't have to be a time- 
consuming job. You bought your 
computer to free you from slav- 
ery. All you have to do is tell your 
computer how to set up the 
board position. 

The following are programs 
that modify the cassette-loading 
versions of Sargon I and II. Once 
modified, Sargon will save the 
current board position to tape, 
along with the move number, or 
load a saved tape with the above 
information to restore the game. 

Program Listing 1 is the Sar- 



gon I patch program, which I call 
MODI A. The Sargon II patch pro- 
gram called MODIIA is Program 
Listing 2. When your Sargon pro- 
gram is modified by the appro- 
priate patch, it will generate a 
data tape which can be later 
loaded into either Sargon I or II. 
If you currently have Sargon I 
and plan to get Sargon II, you 
can save important Sargon I 
game positions for later strat- 
egy planning with Sargon II and 
vice versa. 

Loading the patch programs 
is simple. For Sargon I, load the 
game program, and when you re- 
ceive the prompt, load MODIA. 
At the second prompt, enter / or 
/28922. Loading the patch for 
Sargon II is a bit more compli- 
cated. Sargon II normally loads 
in two parts; with the patch, it 
must be loaded in three. Load 
the short loader program as you 
normally would. Then, remove 
the game tape from your cas- 
sette recorder and load MODIIA. 
After MODIIA is loaded, replace 
the Sargon II tape without re- 



winding, hit / and enter and the 
final part of Sargon II will load. 
The patch programs interrupt 
Sargon in subtle ways (which 
have no effect on its chess play- 
ing abilities) to provide I/O capa- 
bilities via cassette tape. Mes- 
sages have been added to 
prompt you: With Sargon I, 
answer the questions with a yes 
or no. With Sargon II, hit S to 
save the current board position, 
L to load a previous board posi- 
tion, and G to start a new game 
or C to change the board. 

The MODIIA patch starts at 
address 44A0H (line 150). This 
address interrupts the Sargon II 
loader program just before its 
jump into the main part of the 
chess program, enabling our 
modifications to be made before 
we lose command control of the 
program. 

Lines 160 to 190 make chang- 
es to the title. Lines 200 to 250 
add prompting messages to al- 
low you to save or load the 
board position and move num- 
ber. Since the move number is 



White 






Black 




Original 




After 


Piece 


Original 


After 


Position 




Moving 




Position 


Moving 


■ 01 




09 


Pawn 


81 


89 


02 




0A 


Knight 


82 


8A 


03 




0B 


Bishop 


83 


8B 


04 




OC 


Rook 


84 


8C 


05 




0D 


Queen 


85 


8D 


06 




0E 


King 


86 


8E 


00 






Empty 
Square 






Table 1. 


Game position notation for Sargon 1 and II (Given in 


hexidecimal notation) 









used in the decision making pro- 
cess of Sargon II, it is important 
to have it. 

Lines 260 to 320 provide the 
patches to the main program 
and then return control to 
Sargon II. The proper messages 
are displayed via the patch ad- 
dress to start in lines 330 to 390. 
Control is then returned to 
Sargon II in line 400. Conditional 
statements for the load and 
save routines are accessed by 
the patch to COND in line 410. If 
no key is entered or any letter 
other than an S or L is entered, 
the program returns to Sargon II 
in line 440. Otherwise, the pro- 
gram jumps to the load (lines 
450 to 570) or save (lines 580 to 
700) routines and then back to 
Sargon II at the proper loca- 
tions. The ready subroutine 
gives the READY CASSETTE 
message and sets registers for 
the load and save routines. 

When playing Sargon I or II, 
you may save a board position 
and then continue playing 
where you left off by giving the 
command to analyze a position 
or change board. After loading a 
game position, you are prompt- 
ed to tell what color you are 
playing and, in Sargon II, the 
move number. Since the move 
number has been loaded into 
memory, you must hit enter 
twice to preserve it. 

The MODIA format is differ- 
ent, since I tried to preserve the 
general format of operation 
used in each game program. In 
lines 160 to 200 of Listing 1 is a 
patch to correct the need for 
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GET 
ORGANIZED 



With These 

Utility Programs 

From Instant Software 

FIND IT QUICK 



Put an end to the Misplaced Informa- 
tion Syndrome! Here is a reliable, fast, 
subject -oriented information locator — 
FIND IT QUICK! This information in- 
dexing and retrieval system is versatile and 
flexible — the ideal tool for doctors, 
awyers, engineers, businessmen, educa- 
tors, anyone who needs to locate informa- 
tion. 

Designed with a journal/magazine for- 
mat, FIQ is versatile enough to be used to 
store and retrieve any type of reference in- 
brmation including client lists, vendor 
advertisements, report bibliographies and 
more— even poems and famous quota- 
tions. Subjects can be indexed or called 
according to author, journal and date or 
by up to nine keywords that you deter- 
mine. Keywords can be used singly or in 
combination during the search routines. 

FIQ can be used by anyone. It requires 
no special skill, just the ability to type. Ar- 



ticle references to be stored can be pre- 
selected and then entered into the system 
by a secretary or assistant. The contents 
of entire file cabinets can even be indexed 
and stored! 

FIND IT QUICK requires a minimum 
system consisting of a TRS-80 Model I 
Level II with I6K of RAM, an Expansion 
Interface with I6K of RAM and at least 
one disk drive. Up to 1080 items can be 
stored on one data disk. Instant Soft- 
ware's Tiny DOS operating system is in- 
cluded on the program disk so that you 
can use the program without fuss or 
bother. 

Make your computer work like your 
own personal librarian with FIND IT 
QUICK. Can you afford to wait another 
day? 
Order No. 0258R1) $49.95. Disk 



MASTER DIRECTORY 



The MASTER DIRECTORY is a disk 
lile storage program that reads the files on 
all your disks and stores the file names and 
extensions and even records the free space 
on each disk. All you have to do is number 
I he disks in your library and the MASTER 
DIRECTORY will keep track of their con- 
tents. You can read the names, displayed 
alphabetically, search the DIRECTORY 
for file names and extensions, delete disks 
and search for free space. You can store 
5000 files or 320 disks, whichever conies 
first . 

Your disk storage problems are over now 
that (he MASTER DIRECTORY is here. 
This package requires the following 
minimum system: 

1. A TRS-80 Level II with 16K RAM. 

2. An Expansion Interface. 

3. One (or more) disk drives. 




Order No. 5005RD (disk-based version) 
$29.95 



TO ORDER: 



SEE YOUR LOCAL 

INSTANT SOFTWARE DEALER 

OR CALL TOLL-FREE 

1-800-258-5473 



Instant Software 



PETERBOROUGH, N.H. 03458 



TEXAS COMPUTER SYSTEMS 

Radio /hack 

Authorized Sales Center 
We offer the lowest prices on 



COMPUTERS 



MODEL II 64K 
$3349 

Model III 16K LIU S849 
Color Computer 4K LI $339 



An excellent computer tor your business needs. 
Easy expandability & compatibility. No formal 
operator training needed. AH accessories available 
-disk expansions, printers and software. Quick 
delivery-airfreight from Dallas 

Model III 32K 2 Disks - SCall 
Pocket Computer & Ace. SCall 



PRINTERS 



DAISY WHEEL II 
$1695 



Carbon ribbon typewriter quality for word processing. 43 
cps. Standard Centronics parallel interface. Full 16" 
width, individual sheets or friction feed Tractor feed 
$250 extra Fastest Daisy Wheel available at Ihis price 



EPSON MX-80 
SCall 



Letler quality matrix similar to Line Printer IV and 
Centronics Printer but has full software control of 
40. 80. 66 or 132 columns 80cps bidirectional, 
tractor feed, disposable printheafl. $300 less than 
nearest competitive printer Best buy in multi-strike letter quality printer. Lists at $645. 
Our price includes cable & shipping. 



ANADEX 9500/9501 
$1385 



200cps 7x9 or 9x9 matrix, dot addressable graphics, excellent 
quality & price 10. 12. 13.3. 167 cpi. 6 or 8 ipi. standard 
parallel, serial, and current loop interlaces included 



LINE PRINTER V 

$1616 

LINE PRINTER VI 

$1015 



i60cps Oesigned for heavy i 



CUSTOM SOFTWARE FROM TCS 



Model I & in Programs 
for the Epson MX-80 Printer 

You q*I 6 programs tor one low price A library on disk or lape ol pro- 
grams and subroutines designed lor gaming maximum use o( Ihe Ep- 
son MX-80 printer. 

■lOUTT/iM-Produce large graphic letters and dump them to the 
pnnter/screen/oisk Worns from any Basic program 
FPION/tur Sub-outine to easily use all ol Ihe EPSON primer com- 
mands Merge into any Basic program 

OCFSTATE/SUI- Collection ol pre detmed commands accessirjie 
' any Basic program Auto line centering, titles with borders etc. 



displays lor easy us* 



Wormat. etc . qu-ckiywithn 



"typing Super graphic 



you thru the use ot your computer 
JKL PATCH -A patch to NEWD0S ? 1/80 s JRL screen primer func- 
tion to print graphics from screen m the Regular Epson printer mode 
MTICil- Complete article on many printer possibilities plus new 
ideas, concepts & (rouble shooting tips 

Model I or III, Tape or Disk 

S39.95 tor all 6 programs 

S29.95 if purchased with Epson printer 

The DOS Disk Library of Programs 

A library of 5 programs tor NEWOOS80 NEWD0S 2 I TRSD0S 

(Model i & iiij 

DmwAiMT - super directory maintenance program Purge, copy. 



imum speed Access any (He in ? seconds 48K supports 200 disk- 
ettes 32K about 100 Takes less than hour to run too diskettes thru 
system 

CHAIMID/KAS-A super cnammg file creation editor & assembler 
lorNEWOOSSO Very last, easy to use Reads and edits existing tiles 
MMEMAIL-UmQue home mailing list that stores data by modifying 
program itselt Fast & efficient for home user with less than 100 

QA1MILE- Maintains excellent records ol auto gas use & complete 
reports on MPG. etc Also provides car maintenance alerts. 

Model I or II! Disk S39.95 tor all 5 programs 



Infinite Basic Diskette 

A diskette ol programs written in RACET s Infinite Basic User must 
have intmite Basic (both modules) Extremely usetu program with 
REM remarks lo guide you in easy use a* the 100 exlra commands 
provided by this software system 

included on the disk is program to maintain a Video Cassette library, 
an in- memory Mailing List, a demonstration of Matrix techniques and 
equation solution, a screen input system routine Also a complete 
article on infinite Basic with valuable inlormation on commands thai 
are glossed over in ihe original documentation 

Model I or III Disk only S39.95 



We can Air Freight trom Dallas to major a/p near you tor fast, efficient service Calf for information 



•Payment Money Order. Cashier's Check. Certilied Chi 
Checks require 3 wks to clear VISA. MC. add 3% 
•Prices subject to change any time 



"No tax out-of-state TX add b% 
•All items new. guaranteed by manufacturer 
'Delivery subject to availability 
'Shipping extra, quoted by phone 



TEXAS COMPUTER SYSTEMS 

An Authorized MOM) SHACK® Sales Center F701 



*--25 



Box 1174, Brady, Texas 76825 

TOLL FREE Number 800-351-1473 

Texas Residents 915-597-0673 



^See List of Advertisers on page 306 
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double entry of the letter Y or N 
when asked by Sargon I whether 
you care to play a game. (The 
Sargon I manual accuses Radio 
Shack of having an error in 
ROM, but it appears to be a Sar- 
gon error. Sargon I asks for two 
inputs. The first input is ignored.) 

Sargon I does not store the 
move number in ASCII format as 
does Sargon II; appropriate con- 
versions are made in the load 
and save routines for compati- 
bility of data tapes. 

In Sargon 1 1 the buffer area for 
the game position starts at 
5115H (20757 decimal). The 
Sargon I buffer starts at 50C9H 
(20681 decimal). Each is format- 
ted the same. Table 1 gives the 
code for each game piece and 
blank squares. The board posi- 
tion bytes are taken directly 
from the Sargon program. The 
first eight bytes on the data tape 
represent the first row of the 
chess board on the white side. 
Two more bytes, each contain- 
ing FFH, follow and then the 
second row of the chess board 
follows that. Then come two 
more bytes of FFH, etc. Thus, it 



takes 78 consecutive bytes to 
represent the chess board. 

The bytes containing FFH 
which occur between every row 
of eight board bytes mean noth- 
ing to us at this time but it is 
easier to record them on tape 
than to skip them. After these 78 
bytes is the byte representing 
the move number in ASCII 
format. 

One other useful location in 
Sargon II will be of interest to as- 
sembly language programmers. 
Sargon II has a keyboard scan 
routine starting at 767AH (30330 
decimal). By patching into this 
location things can be added 
such as a tone (using the cas- 
sette output to an amplifier) to 
let you know when an input is 
expected from you; or such as 
adding a printing routineto print 
moves displayed on the left side 
of the screen or a graphic pic- 
ture of the current board set-up. 
The print routines could use 
transparent codes, i.e., com- 
mands such as SHIFT P which 
will not show up on the screen 
but will signal the computer to 
branch to the correct routine. ■ 



Program Listing 1. 


MODI A patch for Sargon 1. 




00100 


; MODI A 












00110 


; SARGON 


I MODIFICATION 








00120 


;SAVE OR LOAD 


PIECE POSITION 


OF 






00130 


; PREVIOUS GAME 


TO CASSETTE TAPE 






00140 


;DATA TAPE GENERATED IS COMPATABLE 




00150 


;FOR USE WITH 


SARGON II WITH 


MODIIA 


69F0 


00160 




ORG 


69F0H 




; DOUBLE ENTR 


Y CORRECTION 














69F0 0000 


00170 




DEFW 


00 






69F2 0000 


00180 




DEFW 


00 






69F4 0000 


00190 




DEFW 


00 






69F6 00 


00200 




DEFB 


00 






6DDC 


00210 




ORG 


6DDCH 






6DDC 004E 


00220 




DEFW 


LDDATA 




; PATCH MODI A 


ADDRESS IN SARGON I 












4E00 


00230 




ORG 


4E00H 






4E00 21914E 


00240 


LDDATA 


LD 


HL,MESS1 




;ADD "LOAD" 


MESSAGE 














4E03 062A 


00250 




LD 


B,42 




; MESSAGE LEN 


GTH 














4E05 CD4B69 


00260 




CALL 


6 94BH 




; SARGON PRIN 


T AND KEYBOARD ENTRY 


ROUTINES 








4E08 CD566D 


00270 




CALL 


6D56H 






4E0B CD4569 


00280 




CALL 


6945H 






4E0E FE59 


00290 




CP 


89 






4E10 2802 


00300 




JR 


Z , LOAD 




;IF "L" LOAD 


GAME POSITION FROM 


CASSETTE 








4E12 1830 


00310 




JR 


SVDATA 




;JUMP TO SAV 


E DATA? ROUTINE 












4E14 CDF84E 


00320 


LOAD 


CALL 


READY 




,-LOAD ROUTIN 


E 

4E17 CD1202 


00330 




CALL 


0212H 






4E1A CD9602 


00340 




CALL 


0296H 






4E1D CD3502 


00350 


LOOP1 


CALL 


0235H 






4E20 77 


00360 




LD 


(HL) ,A 






4E21 23 


00370 




INC 


HL 






4E22 ID 


00380 




DEC 


E 






4E23 7B 


00390 




LD 


A,E 






4E24 20F7 


00400 




JR 


NZ.LOOP1 






4E26 CD3502 


00410 




CALL 


0235H 




;GETS MOVE N 


UMBER IN ASCII FORMAT 










4E29 0630 


00420 




LD 


B r 48 






4E2B FE0A 


00430 


ASC 


CP 


10 




; CHANGE MOVE 


NUMBER FROM 


ASCII 












4E2D DA354E 


00440 




JP 


CENT 






4E30 04 


00450 




INC 


B 






4E31 D60A 


00460 




SUB 


10 






4E33 18F6 


00470 




JR 


ASC 






4E35 C630 


00480 


ENT 


ADD 


A, 48 







(687DH) ,A 



; BUFFER FOR 



ONE'S DIGIT OF MOVE NUMBER 



4E3A 78 00500 LD 

4E3B 327C68 00510 LD 

TEN'S DIGIT OF MOVE NUMBER 

4E3E CDF801 00520 CAL 

4E41 C3656E 00530 JP 

O SARGON AFTER LOAD 

4E44 21BB4E 00540 SVDATA LD 

MESSAGE 

4E47 061F 00550 



4E49 CD4B69 00560 

4E4C CD566D 00570 

4E4F CD4569 00580 

4E52 FE59 00590 

4E54 2803 00600 

GAME TO CASSETTE 

4E56 C3CC06 00610 
IC IF NO OPTION SELECTED 

4E59 CDF84E 00620 SAVE 
E 

4E5C CD1202 00630 

4E5F CD8702 00640 

4E62 7E 00650 LOOPJ 

4E63 CD6402 00660 

4E66 23 00670 

4E67 ID 00680 

4E68 7B 00690 

4E69 20F7 00700 

4E6B 3A7C68 00710 

IGIT OF MOVE NUMBER 



LD 

CALL 

CALL 

CALL 

CP 

JR 



CALL 
CALL 
LD 

CALL 
INC 

DEC 



00720 

00730 

007 40 ZERO 

007 50 

00760 

00770 

00780 

007 90 



00820 NOINCR LD 



4E6E D630 

T ROUTINE 

4E70 0600 

4E72 2809 

4E74 F5 

4E75 78 

4E76 C60A 

4E7 8 47 

4E79 Fl 

4E7A 3D 

4E7B 18F5 

4E7D 3A7D68 

IGIT 

4E80 D630 00830 

4E82 80 00840 

NOW IN ASCII FORMAT 
4E83 CD6402 00850 
UMBER IN ASCII 
4E86 3EFF 
4E88 CD6402 
4E8B CDF801 
4E8E C3FA70 
GON START LOCATION 
4E91 4C 00880 MESS1 

FROM CASSETTE?' 
4EBB 53 00890 MESS2 

TTE?' 

4EDA 52 00900 MESS3 

TER' 

4EF8 21DA4E 
TTE MESSAGE 
4EFB 061F 
4EFD CD4B6 9 
4F00 CD566D 
4F03 CD4569 
4F06 CDC901 
N 

4F09 3E00 00970 

4F0B 21C950 00980 
T OF BOARD POSITION BUFFER 



POP 

DEC 



A,B 

(687CH) ,A 

01F8H 
6E65H 

HL.MESS2 

B,31 

694BH 

6D56H 

6945H 

89 

Z,SAVE 

06CCH 

READY 

0212H 

0287H 

A, (HL) 

0264H 

HL 

E 

A,E 

NZ.LOOP2 

A, (687CH) 



A,B 
A, 10 
B,A 



ZERO 

A, (687DH) 



; BUFFER FOR 

;JUMP BACK T 
;ADD "SAVE" 



IF "S" SAVE 
JUMP TO BAS 
SAVE ROUTIN 



;GET TEN'S D 
; ASCI I FORMA 



30854 
30858 
30860 
30870 



00910 READY 

00920 
00930 
00940 
00950 
00960 



SUB 
ADD 



CALL 
CALL 
JP 

DEFM 

DEFM 

DEFM 

LD 

LD 

CALL 

CALL 

CALL 

CALL 



48 

A,B 



;GET ONE'S D 

;MOVE NUMBER 
;SAVE MOVE N 



0264H 

A,0FFH 

0264H 

01F8H 

28922 ;JUMP TO SAR 

'LOAD PREVIOUS GAME POSITION 

'SAVE GAME POSITION TO CASSE 

1 READY CASSETTE AND PRESS EN 



990 



4F0E 1E4E 
ARGON BUFFER 
4F10 C9 0100 

70FA 0101 

SS OF SARGON 
00000 TOTAL ERRORS 



LD 



RET 
END 



HL,MESS3 

B,31 

694BH 
6D56H 
6945H 
01C9H 

A,0 

HL,50C9H 

E,78 



; READY CASSE 



; CLEAR SCREE 

; SARGON STAR 
; LENGTH OF S 

; START ADDRE 



Program Listing 2. 


MODIIA patch for Sargon II. 


00100 ;MOD IIA 








00110 ;SARGON 


II MODIFICATION 






00120 ;SAVE OR LOAD 


BOARD POSITION 


OF 




00130 ; PREVIOUS GAME 


TO CASSETTE TAPE 




00140 
44A0 00150 


ORG 


44A0H 




; PATCH INTO 


SARGON LOAD TAPE 










44A0 21AF45 00160 


LD 


HL, TITLE 




; BLOCK MOVE 


TO CHANGE SARGON TITLE 










44A3 11CF6E 00170 


LD 


DE,6ECFH 






44A6 011200 00180 


LD 


BC.12H 






44A9 EDB0 00190 


LDIR 






; BLOCK MOVE 


44AB 21C145 00200 


LD 


HL,MESS 




; BLOCK MOVE 


TO CHANGE ENDING OF SARGON 


"NEW GAME " MESSAGE 




44AE 110D6F 00210 


LD 


DE,6F0DH 






44B1 010600 00220 


LD 


BC,6 






44B4 EDB0 00230 


LDIR 






; BLOCK MOVE 


44B6 3E24 00240 


LD 


A,24H 




.•CHANGE LENG 


TH OF MESSAGE 










44B8 325A70 00250 


LD 


(705AH) ,A 






44BB 21CF44 00260 


LD 


HL , START 




; PATCH FOR M 


ESS1 AND MESS2 ADDITION 










44BE 225770 00270 


LD 


(7057H),HL 






44C1 3EC3 00280 


LD 


A,0C3H 




; CHANGE TO J 


P INSTRUCTION 










44C3 325670 00290 


LD 


(7056H) ,A 






44C6 21E544 00300 


LD 


HL,COND 




; PATCH TO CO 


NDITIONAL STATEMENTS 
















Program continues 
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44C9 226870 00310 LD 

44CC C30050 00320 SARGON JP 

INNING OF SARGON PROGRAM 

44CF 112D45 00330 START LD 

SAGES 

44D2 062A 00340 LD 

44D4 CDD175 00350 CALL 

T ROUTINE 

44D7 115745 00360 LD 

44DA 061F 00370 LD 

44DC CDD17 5 00380 CALL 

44DF 11EF6E 00390 LD 

GON INSTRUCTION LOST BY PATCH 

44E2 C35970 00400 JP 

SARGON AFTER MESSAGE INSERT 

44E5 FE53 00410 COND CP 

44E7 2822 00420 JR 

GAME POSITION TO CASSETTE 

44E9 FE4C 00430 CP 

44EB 20DF 00440 JR 

GAME POSITION FROM CASSETTE, IF 



44ED CD9645 

AD ROUTINE 

44F0 CD1202 

44F3 CD9602 

44F6 CD3502 

44F9 77 

44FA 23 

44FB ID 

44FC 7B 

44FD 20F7 

44FF CD3502 

4502 323550 

OF MOVES PLAYED 

4505 CDF801 00560 

4508 C37470 00570 

SARGON AFTER LOAD 



00450 LOAD 

00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 



CALL 

CALL 

CALL 

CALL 

LD 

INC 

DEC 



450B CD9645 
VE ROUTINE 
450E CD1202 
4511 CD8702 

4514 7E 

4515 CD6402 

4518 23 

4519 ID 
451A 7B 
451B 20F7 
451D 3A3550 



00580 SAVE 

00590 

00600 

00610 LOOP2 

00620 

00630 

00640 

00650 

00660 

00670 



OF MOVES PLAYED 



4520 CD6402 
4523 3EFF 
4525 CD6402 
4528 CDF801 
452B 189F 
452D 4C 



00680 



00710 MESS1 



007 30 MESS3 DEFM 



FROM CASSETTE, ' 
4557 53 007 20 MESS2 

TTE, ' 
4576 52 
TER: ' 

4595 88 

4596 117645 
TTE MESSAGE 
4599 0620 
459B CDD17 5 
459E CD2B00 
45A1 B7 
45A2 28FA 
45A4 CDC901 
N 



CALL 

CALL 
CALL 
LD 

CALL 

INC 

DEC 

LD 
JR 
LD 

CALL 

LD 

CALL 

CALL 

JR 

DEFM 

DEFM 



(7068H),HL 
5000H 

DE.MESSl 

B,2AH 

75D1H 

DE.MESS2 
B,1FH 
75D1H 
DE,6EEFH 

7059H 

83 

Z , SAVE 

76 

N 2, SARGON 
NOT JUMP TO SARGON 
READY 

0212H 

0296H 

0235H 

(HL) ,A 

HL 

E 

A,E 

NZ.LOOPl 

0235H 

(20533) ,A 

01F8H 
7074H 

READY 

0212H 

0287H 

A, (HL) 

0264H 

HL 

E 

A,E 

NZ,LOOP2 

A, (20533) 



;JUMP TO BEG 
;ADD OUR MES 

; SARGON PRIN 

.•RESTORE SAR 
;JUMP BACK T 



;IF "L" LOAD 
; CASSETTE LO 



;GET NUMBER 

;JUMP BACK T 
; CASSETTE SA 



;SAVE NUMBER 



026 4H 

A,0FFH 

0264H 

01F8H 

SARGON 

'LOAD PREVIOUS GAME POSITION 

'SAVE GAME POSITION TO CASSE 

'READY CASSETTE AND PRESS EN 



00740 

007 50 READY 

00760 
00770 

007 80 BACK 
007 90 



DEFB 
LD 



CALL 

CALL 

OR 

JR 

CALL 

LD 



45A7 3E00 00820 

45A9 211551 00830 LD 

T OF BOARD POSITION BUFFER 
45AC 1E4E 00840 LD 

ARGON BUFFER 

45AE C9 00850 RET 

45AF 20 00860 TITLE DEFM 

45C1 2C 00870 MESS DEFM 

TIONS FOR LOAD OR SAVE ROUTINES 
4415 00880 END 

SS OF SARGON LOAD ROUTINE 
00000 TOTAL ERRORS 



136 
DE,MESS3 

B,20H 

75D1H 

2BH 

A 

Z , BACK 

01C9H 

A,0 
HL.5115H 



■ SARGON-IIA 
' »L,S) : ' 



; READY CASSE 



; CLEAR SCREE 

; SARGON STAR 
; LENGTH OF S 

;ADD INSTRUC 
; START ADDRE 



COMPUTER ROO/*\ 











" I fOUNV THE TROUBLE WITH NUMBER 
THREE COMPUTER. " 



,ur home 
Oi^ the coffee 
gulate your heat 

All with your TRS-80 



Imagine the function of lamps, alarms, heaters, pumps, 
radios and appliances under the control of your TRS-80. 
With the SUPER X10 MOD from CmC, computer control of 
up to 256 low-cost BSR remote-control modules is possible 
over the AC house lines with no special wiring. The 
SUPER X10 MOD contains its own microprocessor with 
clock/calendar functions so that once programmed 
from the TRS-80, a sequence of events can be initiated 
at a specific time of day, even with your computer off. 
In addition, the SUPER X10 MOD can control up to eight 
digital logic functions and respond to a maximum of 
eight logic inputs such as switches mounted at windows 
and doors, fluid level floats, thermostats, and so on. 
Control of remote devices can be in conjunction with the 
AIM16 below, or the controller can be programmed via 
the TRS-80 to initiate a sequence of up to thirteen events 
in response to an external trigger. 

and you can also monitor 

Measure light level, temperature, sound level, pressure, 
pH, humidity, fluid level, acceleration, battery voltage. 
Most physical parameters you can think of can be 
monitored by your TRS-80 and the appropriate sensor 
with the AIM16 analog to digital converter from CmC. 
The AIM16 converts 16 analog inputs (expandable to 256) 
within the range of to 5.12 volts with 8-bit resolution. 



30-day money-back guarantee 

TRS-80 Set 1a— Monitoring; 16 analog inputs 
TRS-80 Set 2— Controlling without Monitor 
with 8 digital inputs/8 digital 
outputs and clock/calendar function. 
TRS-80 Set 3— Controlling Add-on for use with Set 1. 
each set $295.00 

Visa/Master Charge. Mention this magazine tor a 
5% discount. 



Connecticut ^ 
microcomputer, Inc. 

34 Delmar Drive. Brooktield. CT 06804, (203) 775-4595, TWX: 710 456-0052 




^See List of Advertisers on page 306 
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PERSONAL 



If thou doth protest too much, 

use your 80 to generate nasty letters of complaint. 



Computerized 
Complaint 



Dennis J. Gillig 
708 Hingham Lane 
Schaumburg, Illinois 60193 



Evil and injustice are ram- 
pant in the land: nameless, 
faceless people harass us from 
credit card companies, politi- 
cians promise everything at 
election time and forget later, 
and computers send us form let- 
ters instead of service. 



Good news! Here's a power- 
ful new weapon. You can use 
your trusty computer to rattle 
their cages. This weapon works 
especially well against ma- 
chines turned monsters by pro- 
grammers, and operators and 
executives that have forgotten 
that flesh and blood exist out 
here in the real world. 

When you read in the papers 
about your congressman voting 
against your desires you can 
use this program to fire a letter 



Complaint Letter 

From: Dennis J. Gillig 

7822 Berkshire Drive 
Hanover Park, ILL. 60103 

To: Wonderful Drapery and Flange Com., Inc. 

231456 East North West South Street 
Sing Sing, NY 91788278 

Attn: Carter MC Jimmy 

This is contact number 1 with you about this complaint. I have a complaint about 

your low quality drapes, model 4345. 1 don't like the way they fade after 14 years of 

use. 

The facts are: 

1. Velvateen fiberglass rots with age. 

2. The tie backs are only nine inches long and will not fit around the curtain. 
3. 1 paid $2.00 for them at a garage sale and feel the re-sale is not too good. 

This is what I want done: 

Since you have a life time guarantee please replace them. 

I do expect an immediate reply! 

Figure 1. 



to him/her. When a department 
store sends you the ninth erro- 
neous bill with that same over- 
charge (plus interest) on a com- 
puterized form saying they are 
about to repossess your micro- 
wave if you don't pay, you can 
use this program to send that 
blasted computer a piece of 
your mind. 



The Basic of 

Writing a Nasty Letter 

The basic element of a letter 
to get action are in the program. 
As you will see, you'll be able to 
add new forms to it for your spe- 
cific needs. In fact, I'd appre- 
ciate printouts of any super let- 
ters you make up. If we get some 

Continues to 279 



Complaint Letter - 

From: Dennis J. Gillig 

703 Hingham Lane 
Schaumburg, ILL. 60103 

To: Congressman Forest Trees 
Capital Hill 
Washington, DC 00000 

Attn: 

This is contact number 99 with you about this complaint. 

Please sit back and RELAX. 

I need your undivided attention. Prop your feet on your desk, tell your secretary to 
hold all calls, turn off the intercom, take a swig of coffee, a deep breath and con- 
centrate on what I have to say. 

I have a complaint about your vote against April Fool's Day as a national holiday. 
I don't like your assumption that America is not ready for a day to commemorate 
congress. 

The facts are: 

America is ready for congress to take a holiday. 

This is what I want done: 

1. Declare an immediate vacation for congress of 6 months twice a year. 

2. The above will do it all since no man's wealth and rights is in more jeapordy than 
when congress is in session. 

A reply is not required. 

Figure 2. 
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YORK lO 

^ BASF-DPS 

WORLD STANDARD TAPE 




DATA 
TRAC 
C-10 



• PROFESSIONAL 

5 SCREW SHELL 

MONEY BACK GUARANTEE 

• 1 DOZ. BULK PACK, $10 

SENT POSTPAID 

Calif, residents add 6% sales tax 



YORK lOComputeruuore 

24573 Kittridge SI.. Dept M Canoga Park, CA 91307 



IT'S HERE! 

A POWERFUL 

EASY TO USE 

SMALL BUSINESS 

INVENTORY 

PROGRAM 

• Menu Driven • Easy Editing (8 Fields) 

• Scroll Display Forward & Back Items in 
Memory 

• Paper Print Out (With Total Cost) 

• Holds & Dumps up to 150 Items On Disk 
Ver. 250 On Tape Ver. (150 Per Disk 
Filename) 

• Instring Search Description & Supplier -f- 
3 Equality Searchs (Totals All Costs) 

• Sorts Items by Number 

Disk -f Tape Ver. $99 — Tape Ver. $49 
Reg. TRS 80* (48K) Model I 

^ 239 JOSEPH BROTHERS 

7311 Van Nuys Blv. Rm 5, Van Nuys, Ca 91405 

Demo By Appointment (213) 994-2293 
*A Trademark Tandy Corp. 



Dynamic Report Generator 



No Programming Required 



• Maintain different data files, each with its own set 
of internal logical relationships. 

• Permits user to define customized report formats 
and column headings. 

• Specify arithmetic relationships between columns. 

• Automatic sorting and file compression. 

• Keyed index for rapid retrieval of data. 

• Redefine index by exchanging it with other report 
columns. 

• Flexible add, delete, and list modes. 

• Edit mode allows headings and arithmetic relation- 
ships to be altered without re-entering data. 

• List mode allows for selected ranges and optional 
sub-totals. 

FOR USE ON 48K-TRS-80 MOD 1, 
1 DISK AND PRINTER. 

PRICE: $74.95 INCLUDES DISK, 

44 PAGE BOOKLET, SHIPPING AND HANDLING. 



DYNAMIC 

58-04 208th Street 




^242 

SOFTWARE 



Bayside, New York 11364 



Portions copyrighted by Microsoft, 1980. 
TRS-80 is a registered trademark of Tandy Corp. 



TRS-80 MODEL 1 

INTERNAL MEMORY 



Uses 4116s 




Increases RAM to 32K inside the keyboard unit. No 
soldering or other modifications (plugs into RAM 
sockets). Assembled & tested with detailed instruc- 
tions. Shipped postpaid in (Continental) U.S. within 
48 hours. ONE YEAR GUARANTEE; 15 DAY RETURN 
PRIVILEGE. 

$47.50 Less RAM 

$79.50 W/16K RAM 

Send SASE for free brochure. 



HOLMES ENGINEERING 

6246 West 3705 South 
Salt Lake City. UT 84120 

(801) 967-2324 




"TM Tandy 
Corp. 



APARTMENT 

MANAGEMENT 

SYSTEMS... 

(Using the TRS-80 MOD II*) 

. . . for first-time computer users 
& small real estate operators. 

EASILY HANDLES ALL RECORD- 
KEEPING & CORRESPONDENCE 
FOR 200-2,000 RENTAL UNITS 
... IN MINUTES! 

NO EXPERIENCE NECESSARY 



^99 

Dealerships 
Available 



I 



Complete financial recordkeeping 
& printed reports generated lor all 

tenants, such as late charges due and 
paid, reports ol amounts due, linancial 
history by month and category&man- 
agement Information and payment 
history files and much, much more! 

For further information, call or write: 

CORNWALL COMPUTER SYSTEMS 

(201) 238-5757 
4 CORNWALL DR., I. BRUNSWICK. NJ 08816 




^127 

□ YES! Sign me up as a cnarter 

subscriber. Enclosed is my 
$20.00 for 10 issues. ($24 
to Canada. $30 elsewhere.) 

□ Not sure. Enclosed is $2 for 

a sample issue. 



Name 

Addr 

City/St. 



Zip_ 




k MURDER IN THE MANSION And Other Computer 

Adventures In Pocket BASIC for the TRS-80 

10 brand-new exciting tested ready-to-run 

game programs for the pocket computer, or 

any BASIC micro, including Saturn Death, 

Lost Safari, Buried Treasure, Black Pearl 

Scrambled Egg, Barrel of Apples and 

jmore, 64-page book. $5.95 

POCKET COMPUTER PROGRAM WORKSHEETS 

Pocket-BASIC Coding Form for the TRS-80, 
or any BASIC micro, makes writing prog- 
rams easy, space for 
memory labels. 
50-sheet pad $2.95 

Send check or 
money order plus $1 
shipping for each 
item ordered to: 
^49iARCsoft 

Box 132 P 
Woodsboro, MD 
21798 





of not being able to read the digital counter 

T th U Di?T ng VTflc^ 9ltl0nS CVery tlme?_ Then 

Specifically designed to 

position the recorder at 

the proper angle for 

effortless viewing of 

the counter. 



Constructed of durable transluscent acrylic in a 
beautiful smoked gray tint with slip resistant 
padded feet. 

Only 8.95 each 

Add 2.00 for shipping and handling 

California residents add 6% sales tax. 

d2m RDER Send check or money order only to: 

REM TRON 

P.O. Box 2280 ^ 49 q 

Santa Clara, C A 95055 

NO CODS PLEASE 
•Exatron stringy floppy version also available for 
5.95. Ideal as desk calculator stand also. Size 
5va wide x 9" long. 

^Exatron Is a registered trademark of Exatron, Inc. 



flC€ COMPUT€R PRODUCTS 

of Florida Inc. * 

CHIPS AHOY! 



of Florida Inc. ^265 Mtk 




* 



SP€CIAl OFF€R 

Character generator chip 
with lowercase descenders 

$29 

installation instructions included 
* with pencil modification 

Send certified check or money order 1 
Allow two weeks for personal check 1 
Florida residents add 4% sales tax | 

AC€ COMPUT6R PRODUCTS I 

1640 N.W. 3rd STREET 1 

DEERFIELD BEACH, FLA. 33441 M 



y'See List ol Advertisers on page 306 
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Ad 



#13 SOFTWARE 

\S out our new items. 



CP/M users: specify disk systems and formats. Most formats available 




CP/M 

ARTIFICIAL 
INTELLIGENCE 

s Medical 

\S Dental ... 

COMPLETE BUS. SYSTEM 

Creator $269/525 

Reporter $169/$20 

Both 5399/545 

COMPUTER CONTROL 

* Fabs $159/$20 

UltraSort II $159/$25 

COMPUTER PATHWAYS 

Pearl (level 1) $ 99/S25 

Pearl (level 2) $299/540 

Pearl (level 3). $549/565 

DIGITAL RESEARCH 

CP/M 2 2 
NorthStar .. ..S149/$25 

TRS-80 Model II (P&T). $159/535 

Micropolis $169/525 

Cromemco. $189/525 

PL/l-80 '.' $459/$35 

y BT-80 $179/$25 

Mac $ 85/515 

Sid $ 65/515 

Z-Sid .$ 95/515 

Tex 5 70/515 

DeSpool 5 50/510 

DYNAMIC MICRO- 
PROCESSOR ASSOC. 

• Ascom $109/$ 15 

CBS ... 5369/545 

►^DMA-DOS .$179/535 



PEACHTREE 

General Ledger 

Acct Receivable 

Acct Payable 

Payroll 

Inventory. , 

Property Mgt 

CPA Client Write-up.. 
Mailing Address 

SOFTWARE WORKS 

Adapt 

Ratfor 

SOHO GROUP 

MatchMaker 

Worksheet 

STRUCTURED SYSTEMS 



$399/540 
5399/540 
5399/$40 
$399/$40 
$399/540 
5799/540 
5799/540 
5349/540 



$ 97/$20 
$177/520 



GRAHAM-DORIAN 

s General Ledger. . . . 
</• Acct Receivable 

s Acct Payable 

^ Job Costing 

Payroll 

Inventory 

Cash Register 

Apartment Mgt 

KEY BITS 

String/80 

i-« String/80 (source) ... 
WordSearch 

MICRO-AP 

S-Basic 

Selector III 

Selector IV. 

MICRO DATA BASE 
SYSTEMS 

HDBS .... 

MDBS 

^ DRSorQRSor RTL 
y MDBS PKG 

MICROPRO 

WordStar 

s Customization Notes . 

Mail-Merge 

WordStar/ Mail-Merge 
y DataStar 

WordMaster 

SuperSort I 

MICROSOFT 

Basic-80 

>s Basic Compiler 

\S Fortran-80 

Cobol-80 

Macro-80 

Edit-80 

MuSimp/MuMath 

MuLisp-80 

ORGANIC SOFTWARE 



S729/S40 
5729/540 
5729/540 
5729/540 
5493/540 
5493/540 
$493/$40 
$493/$ 40 

S 84/520 
$279/$na 
$179/525 

5269/525 
5269/525 
5469/535 



GLorARorAPorPay . . 5599/540 
Inventory Control .. .5449/540 

^Analyst 5199/525 

^•QSort $ 89/520 

SUPERSOFT 

s Forth (8080 or Z80) $149/525 

S Diagnostic II. . $ 84/$20 

Other less 10% 

TCS 

GLorARorAPorPay. $ 79/$25 
All 4 $269/599 

WHITESMITHS 

"C Compiler 5600/530 

Pascal (mcl "C ") $850/545 

DATA BASE 

FMS-80 S649/S45 

dBASE II 5629/550 

Condor $599/530 

T.I M .... 5329/535 

PASCAL" 

v Pascal/MT+ 5429/530 

^Pascal/Z $349/$30 

Pascal/UCSD 5299/530 

Pascal/M $149/520 

WORD PROCESSING 



■/• SpellGuard 5249/525 

Spell Binder .5349/545 

S Magic Wand 5289/545 

v* VTS/80 5489/565 

OTHER GOODIES 

Tiny C" 5 89/550 

Tiny C Compiler 5229/550 

CBASIC-2 5 89/515 

Nevada Cobol . 5129/525 

MicroStat $224/$15 

Vedit $ 99/515 

s Prof Time Bill (Asyst) . 5549/S40 

• ESQ-1 ... .51349/550 

^ MiniModel $449/550 

►^StatPak 5449/540 

• Micro B + $229/540 

• BSTAM $129/510 

APPLE II 

MICROSOFT 

Softcard $292 

S Fortran 5179 

Cobol $574 

PERSONAL SOFTWARE 

Visicalc 5122 

CCA Data Mgr 5 84 

Desktop/Plan 5 84 

Zork 5 34 

PEACHTREE 

General Ledger 5224/540 

Acct Receivable 5224/540 

Acct Payable 5224/540 

Payroll 5224/540 

Inventory 5224/540 

OTHER GOODIES" 

Super-Text II 5127 

Data Factory $129 

<s DB Master 5159 

Ledger Plus 5549 

s Charles Mann less 15% 

^STC less 15% 

ORDERS ONLY-CALL TOLL FREE VISA • MASTERCHARGE 
1-800-854-2003 ext. 823 • Calif. 1-800-522-1500 ext. 823 
Overseas-add 510 plus additional postage • Add 52.50 postage and handling 
per each item • California residents add 6% sales tax • Allow 2 weeks on checks. 
C O.D. ok • Prices subject to change without notice. All items subject 
to availability • ®— Mfgs. Trademark. 

ix - 440 

THE DISCOUNT SOFTWARE GROUP 

6520 Selma Avenue. »309 • Los Angeles. CA 90028 • (213)666-7677 



$269/$35 
.5795/540 

5269/535 
51295/560 

5324/560 
.5 89/5 na 
5114/525 
5434/585 
.5249/560 
5119/540 
$199/$40 

$294/$ 30 
$329/$30 
$349/$30 
$574/530 
5144/520 
5 84/520 
.5224/525 
.5174/520 



TextWriter III . 
DateBook . . 

OSBORNE 

General Ledger . . 
Acct Rec/Acct Pay 
Payroll w/Cost 

^ All 3 

All 3 + CBASIC-2 



$111/520 
5269/525 

5 59/520 
5 59/520 
5 59/520 
$129/$57 
$199/571 



Complaint Letter 

From the computer of: 

Dennis J. Gillig 
703 Hingham Lane 
Schaumburg, ILL. 60103 

To the computer of: 

VRE Computerized Betting Service 

2312 W. 33rd Street 

Klldare, Ohio 00001 

Dear fellow computer, 

We have a problem. I figured (I do.a lot of that) that I would write you directly since 

humans usually end up blaming us computers for their foul-ups anyway. 

The problem concerns your daily betting bulletins. 

I don't like the accuracy of the billing of the betting to me. 

The facts are: 

1. On September 2 your records show I bet on whether Teddy's mother would let 
him run— my bet was against not for. 

2. On August 5th you recorded my bet as the cubs winning the world series— I 
dream but don't bet. 

3. On October 1 you say I bet Carter would ask Rosalynn if he couldn't run she 
would run instead — no bet. 

This is what I want done: 

1. Get your act together. 

2. Refund my losses of $1.49 

I do expect an immediate reply 



Figure 3. 



lv . . , operators and executives, . . 

have forgotten that flesh and blood 

exist out here in the real world. " 



Program Listing. 

3 CLEAR4000:DEFSTRA-F:DEFINTG-Z:DIMA(33) : D0="COMPUTERI 

ZED CONSUMERISM PROGRAM" :D1=STRING$ (64 , "-") 
40 CLS:PRINTTAB(10)D0CHR$(13)D1:PRINT@192, "CHOOSE THIS: 

"TAB(25)"TO DO THIS: "CHR$ (13) : PP=0 
50 PRINT" <1> "TAB (25) "CREATE NEW LETTER" :PRINT" <2>"TAB( 2 

5) "REVIEW <DISK> FILE" : PRINT" <3> "TAB( 25) "REVIEW <T 
APE> FILE" :PRINT"<4>"TAB(25) "INSTRUCTIONS" : INPUTG 
60 0NG GOTO 70 , 15040 , 15010 , 15130 
70 CLS:PRINTTAB(10)D0CHRS(13)D1:PRINT@192, "CHOOSE THIS: 

"TAB(25)"TO DO THIS: " :PRINT: G=0 
80 PRINT" <1> "TAB (25) "STANDARD LETTER" 
90 PRINT"<2>"TAB(25) "COMPUTER TO COMPUTER" 
100 PRINT"<3>"TAB(25) "SIT BACK AND RELAX" 
110 PRINT"<4>"TAB(25) " (RESERVED) 
120 PRINT"<5>"TAB(25) " (RESERVED) 
130 PRINT"<6>"TAB(25) " (RESERVED) 
140 PRINT"<7>"TAB(25) " (RESERVED) 
15 PRINT" <8> "TAB (25) " (RESERVED) " 

160 PRINT"<9>"TAB(25) " (RESERVED) ": INPUTG: I FO9G0T0 70 
170 CLS:PRINTTAB(10)D0CHR$(13)D1:PRINT@192, "OFFENDING C 

OMPANY 
STREET 
CITY 
STATE 
ZIP 
ATTN : 
DATE" 

180 FORI=lT07 : READP : READL : GOSUB10000 : A ( I ) =B : NEXT 
190 GOSUB20010:PRIMT"MY COMPLAINT IS ABOUT ":P=281:GOSU 

B 15210 :PRINT@768," INSERT SPECIFIC PRODUCT, SERVI 

CE, OR ISSUE":L=255:GOSUB10000:A(8)=B 
200 GOSUB20010:PRINT"I DON'T LIKE " :P=281 :L=255 : :GOSUB 

15210 :PRINT@768, "INSERT SHORT COMMENT ABOUT <WHAT 

> IS WRONG. (MAX. 256 LETTERS AND SPACES .)" :GOSUB 

10000:A'(9)=B 
210 I=10:S=1 

220 GOSUB20010:PRINT"THE FACTS ARE:":PRINT 
230 P=281:GOSUB 15210 :GOSUB 15220 : PRINT@P, S: P=P+3 :GOS 

UB10000 :A(I)=B:I=I+l:S=S+l:IFI=21GOTO 270 
240 A="":PRINT@768,CHR$(31) :INPUT"CHOOSE: <M>ORE FACTS 

Program continues 
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good ones we'll share them with 
the editors and perhaps they will 
print some of the best. 

Program Description 

Please refer to Program List- 
ing 1. It's long but it packs a 
punch. Normally, after writing a 
program I put it through another 
program that packs lines and 
removes all deadwood. How- 
ever, you'll find this version 
easier to read. 

The idea is to standardize pro- 
test or complaint letters with a 
minimum of fuss. If we don't 
want to take the time to go 
through the usual process of 
typing or writing a complaint let- 
ter, this program quickly gets 
the facts printed and on their 
way to the offender. 

You are first asked if this is to 
be a new (create new file) letter 
or input from disk or tape. The 
data on tape or disk contains on- 
ly the minimum facts you previ- 
ously input. Sort of like having a 
carbon copy but no messy car- 
bon. If you elect to start a new 
file you can select from three 
standard forms. The first is in 
bare-bones style and useful for 
just about any occasion. (See 
Fig. 1 .) The second letter is from 
your computer to theirs. (See 
Fig. 3.) The third letter is to the 
big shot; which can be sent to 
the president of the offending 
company or your congressman. 
(See Fig. 2.) 

Your first duty is to input the 
offender. Your name and ad- 
dress should be inserted where 
mine appears in the program 
and will automatically be in- 
serted when printed. (Change 
line 400). 

Note that program lines such 
as 170 are formatted with the 
down arrow. This saves memory 
since it is not necessary to type 
print to cause the display to 
drop a line. It does make the 
listing appear longer. Please 
note that this is formatted for 
my Integral Data IP-125 printer. 
Some of the control codes will 
not make sense to other 
printers. 

Let it All Hang Out 

You get to tell them what you 
don't like, what is wrong, the 
facts, what you want done, and 



whether or not you want to reply. 
You also tell them how many 
previous contacts you have 
made with the company via tele- 
phone, letter, etc. 

When all information has 
been entered you'll be asked to 
ready the printer. Provisions are 
made to make more copies if 
needed. You can set margins by 
answering two questions. (Both 
margins are calculated from the 
left.) Then you can save on tape 
or disk if needed. I added a safe- 
guard for disks: as the data is 
brought in from disk it is also 
displayed on the screen which 
ensures me I have the right file. 

A few friends have some far 
out form letters they are adding 
to the area between lines 4000 
and 9000. If you are severely 
paranoid this could be fantastic 
therapy for you. You could also 
convert this to love letters. It can 
also serve as a practical tool if 
you have a small business. In 
real estate sales we have a few 
standard letters we need to 
send where the basic informa- 
tion is about the same. This will 
help me send those just listed a 
house on your block or just sold 
a house on your block letters 
with ease. 

If you intend to add other 
forms to this program you'll only 
need to add the name in the 
menu and the contents at the 
appropriate line from 4000 to 
9000. If only a first paragraph is 
desired make the computer go 
to line 1010 to pick up the 
balance of the letter. 

By changing the series of 
questions asked, you can use it 
to fill out a bill, invoice, or what- 
ever you choose. 

The first line in all my pro- 
grams uses the same format. 
Put a REM after the CLS if you 
choose. (Ever save the program 
using another program's name 
and thereby wiping out some 
very valuable code? Put the 
name up front and don't save 
unless you list the beginning.) It 
also helps to know the version 
and date since my programs are 
after rewritten. 

If you can tie a shoe and spell 
interface you should be able to 
master this program. If you 
don't like the program you may 
send me a complaint letter. ■ 



ENTERED- <R>EVIEW- <OONTINUE" ; A: IFA="R"GOTO 1534 


250 IF A="M"GOTO 220 
260 IFA="C"GOTO 270 ELSE 240 
270 I=20:S=1 
280 GOSUB20010:PRINT"THIS IS WHAT I WANT DONE :": PRINT :G 

OSUB 15210 :GOSUB 15220 : P=281 : PRINT0P, S: P=P+3 :GOS 

UB10000 :A(I)=B:S=S+l:I=I+l:IFI=31GOTO 320 
290 A="":PRINT@768,CHR$(31) :INPUT"CHOOSE: <M>ORE DEMAN 

DS ENTERED- <R>EVIEW- <C>ONTINUE" ; A: IFA="M"GOTO 28 


300 IF A="R"GOTO 15380 
310 IFA="C"GOTO 320 ELSE 290 
320 GOSUB20010:INPUT"DO YOU WANT A REPLY (Y/N) " ; A{31) : A 

(31)=LEFT$(A(31) ,1) 
33 GOSUB20010: INPUT n HOW MANY TIMES HAVE YOU COMMUNICAT 

ED WITH THEM IN THE PAST";S2 
340 GOSUB20010:INPUT"READY PRINTER AND PRESS <ENTER>";A 

:INPUT"HOW MANY COPIES" ; J: POKE16425 ,0 
350 INPUT"WHAT IS LEFT MARGIN"; ML 

360 INPUT"WHAT IS RIGHT MARGIN" , -MR: PRINT@532 , "** OUTPUT 

TO PRINTER **" 
370 FORXl=lTOJ 
380 LPRINTTAB((MR-ML)/2); "COMPLAINT LETTER" : IFH=2THENLP 

RINTCHR$(13)CHR$(13)TAB(ML)FROM THE COMPUTER OF:": 

GOTO320 
390 LPRINTSTRINGS(5,13) ; TAB (ML) "FROM: " 
400 LPRINTTAB (ML) "DENNIS J. GILLIG" ;CHR$ (13) ;TAB(ML) ; "7 

08 HINGHAM DRIVE" ;CHR$ (13) ;TAB(ML) ; "SCHAUMBURG, IL 

. 60193";CHR$(13)TAB(ML) "PHONE: 312/980-4750"STRIN 

G$(3,13) 
410 IFH=2THENLPRINTTAB(ML) "TO THE COMPUTER OF:":GOTO 43 


420 LPRINTTAB (ML) "TO:" 
430 FORX=lT07:LPRINTTAB(ML)A(X) :NEXT:LPRINTSTRING$ (3,13 

) 
440 ONGGOSUB 1000 , 2000 ,3000,4000,5000,6000,7000,8000 

,9000 
450 NEXT 

460 GOSUB 15230 :RUN 
1000 LPRINTTAB(ML) "THIS IS CONTACT NUMBER ";S2+1; " W 

ITH YOU ABOUT THIS COMPLAINT. " ;CHR$ (13) 
1010 IFA(8)<>""LPRINTTAB(ML) "I HAVE A COMPLAINT ABOUT:" 

: 1=8: LPRINTTAB (ML) ;: GOSUB 18000 :LPRINTCHR$ (13) 
1020 IFA(9)<>""LPRINTTAB(ML) "I DON'T LIKE: ": 1 = 9 .-LPRINTT 

AB ( ML );: GOSUB 18000 :LPRINTCHR$ (13) 
1030 LPRINTTAB (ML) "THE FACTS ARE: " :FORS=1TO10 : I=S+9 : IFA 

(I)=""GOTO 1050 
1040 LPRI NTTAB( ML );: GOSUB 18000 :NEXT:LPRINTCHR$ (13) 
1050 LPRINTCHR$(13)TAB(ML) "THIS IS WHAT I WANT DONE:":F 

ORS=1TO10:I=S+19:IFA(I)=""GOTO 107 
1060 LPRINTTAB (ML) ;: GOSUB 18000 :NEXT:LPRINTCHR$ (13) 
1070 IFA(31)="Y"LPRINTCHR$(13)TAB(ML)"I DO EXPECT AN IM 

MEDIATE REPLY": GOTO 1090 
1080 LPRINTCHR$(13)TAB(ML) "A REPLY IS NOT REQUIRED." 
1090 LPRINTCHR$ (11) : RETURN 
2000 REM COMPUTER TO COMPUTER 

2010 LPRINTTAB (ML) "DEAR FELLOW COMPUTER, " ;CHR$ (13) 
2020 LPRINTTAB (ML) "WE HAVE A PROBLEM. I FIGURED (I DO 

A LOT OF THAT) ": LPRINTTAB (ML) "THAT I WOULD WRITE Y 

OU DIRECTLY SINCE HUMANS USUALLY END UP BLAMING US 

": LPRINTTAB (ML) "COMPUTERS FOR THEIR FOUL-UPS ANYWA 

Y." 
2030 LPRINTTAB (ML) "I HOPE THAT TWO COMPUTERS CAN GET TH 

IS FIGURED OUT. 
2040 GOTO1010 
3000 LPRINTTAB (ML) "PLEASE SIT BACK AND " ;CHR$ (1 ) ; "RELAX 

";CHR$(2) ;"." 

3010 LPRINTTAB (ML) "I NEED YOUR UNDIVDED ATTENTION. PRO 
P YOUR FEET ON YOUR DESK ," :LPRINTTAB (ML) "TELL YOUR 

SECRETARY TO HOLD ALL CALLS, TURN OFF THE INTER 
COM, TAKE A SWIG OF COFFEE," 

3011 LPRINTTAB (ML) "A DEEP BREATH AND CONCENTRATE ON WHA 
T I HAVE TO SAY."CHR$(13) 

3020 GOTO 1010 

4000 GOTO7 0:REM RESERVED FOR LETTER 

5000 GOTO70:REM RESERVED FOR LETTER 

6000 GOTO70:REM RESERVED FOR LETTER 

7000 GOTO7 0:REM RESERVED FOR LETTER 

8000 GOTO70:REM RESERVED FOR LETTER 

9000 GOTO70:REM RESERVED FOR LETTER 

10000 B="":A="" 

10010 PRINT§P, STRINGS (L, 136) ; 

10020 PRINT§P,"*";:FORK=1TO20:NEXT:PRINT@P," ";:FORK=lT 

020: NEXT :A=INKEY$:IFA=""THEN10020 
10030 IFA=CHR$( 13) RETURN 
10040 IFA=CHR$(8)THENIFAO""THEN PRINTA; : IFLEN (B) =0GOTO 

10020ELSEB=LEFT$(B,LEN(B)-1) : P=P-1 : PRINT@P, STRINGS 

(L-LEN(B) ,136) ;:GOTO10020 
10050 PRINT§P, A; : B=B+A: P=P+1 : IFLEN (B) =LGOTO10070 
10060 GOTO10020 

1007 A=INKEY$ : IFA=CHR$ ( 13 ) RETURN 
10080 IFA=CHR$(8)THENGOTO10040ELSE10070 
15000 REM SERIES OF SUBROUTINES 
15010 GOSUB20010:PRINT@468,"** READY TAPE ***":GOSU 

B20000 
15020 GOSUB20010:PRINT@468,"**** READING TAPE **** 
15030 FORI=lT031:INPUT#-l,A(I) :PRINTA(I) :NEXT:GOTO 1507 

:REM FOR PRINT-OUT 



Program continues 
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TheE^OA-TRANSlOOO 



A completely refurbished 
IBM Selectric Terminal with 
built-in ASCII Interface. 

*FOR YOUR TRS-80 WITH OR WITHOUT 
EXPANSION INTERFACE. AVAILABLE WITH 
CENTRONICS TYPE PARALLEL PORT. 



Features: 

• 300 Baud Serial 

• 14.9 characters per second 
printout 

• Reliable heavy duty Selectric 
mechanism 

• RS-232C Interface 

• Documentation included 

• 60 day warranty— parts and 
labor 

• High quality Selectric print- 
ing Off-line use as typewriter 

• Optional tractor feed 
available 

• 15 inch carriage width 



Also works with Exa- 
tron's Stringy floppy, 
for fast loading of pro- 
grams. (Has RS232 
built in stringy) 




t 



HOW TO ORDER 
DATA-TRANS 1000 

1. We accept Visa, Master 
Charge. Make cashiers checks or 
personal check payable to: 

DATA-TRANS 

2. All orders are shipped 
EO.B. San Jose, CA 

3. Deliveries are immediate 



Desk and table top models also available. 
For orders and information 

DATA-TRANS 

45277 Fremont Blvd., #7 ^274 
Fremont CA 94538 

Phone: (408) 263-9246 



LYISTX.© 

makes your 

LYNX is more than a telephone coupler. 
LYNX is a one-piece total telephone linkage 
system for TRS-80 Level I and II 
computers, with or without expansion 
interface. No RS-232 required for true 
originate/answer direct-connect telephone 
operation. DOS-compatible EMTERM 
"smart terminal" software furnished on 
cassette. Already have a favorite TRS-80 
program? Use it with LYNX. 

With LYNX you can tap the Source or the new 
Compu-Serve Information Utility. Control 
university, business and personal computers from 
a remote location. Communicate via electronic 
mail. Learn from library data bases. Profit by 
instant financial market info. 

Auto-Answer Optional. 

All for only $279.95 at your dealer. 

Includes all cables. "EMTERM" terminal program, instruction manual. 
FCC Registration Number: A909KE-69488-DM-N 



ew animal 




. ...;..... 









olyintx,© 



123 LOCUST STREET 
Phone 717/291-1116 



LANCASTER, PENNSYLVANIA 17602 

^-278 



DEALER INQUIRIES INVITED. 




MODEL III 
& APPLE, TOO! 



"TRS-80 is a trademark of 
the Radio Shack Division of 
Tandy Corporation" 
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15040 PP-2:G0T0 15300 

15050 GOSUB20010:PRINT@468,"** READING DISK **" lOPEN" I" 

flrA 
15060 F0RI-1T032:INPUT#1,A(I) :PRINTA(I) :NEXT 
1507 GOSUB20010:INPUT n DO YOU WANT A PRINT-OUT OF THIS 

DATA (Y/N) ";A:IFA= n N"GOTO40 
15080 GOSUB20010:PRINT@468,"** READY PRINTER **":GOSU 

B20000 
15090 FORI=l TO 32:IFA(I)=""THEN 15110 
15100 LPRINTA(I) 
15110 NEXT:GOTO 40 

15120 PRINT"NO SUCH FILE":GOTO 40 
15130 REM INSTRUCTIONS 
15140 CLS:PRINT"WHEN YOU NEED ACTION CALL ON YOUR COMPU 

TER TO ASSIST YOU IN THE BATTLE AGAINST EVIL AND I 

NJUSTICE. 
15150 PRINTSTRING$(6 4,"* n ) ; "YOU GET TO SELECT FROM THRE 

E FORM LETTERS. 



FIRST- PLAIN STATEMENT. 
IAN. 



USEFUL TO A COMPANY OR POLITIC 



SECOND- COMPUTER TO COMPUTER. FOR THOSE CHARGE CARDS A 
ND OTHER IMPERSONAL ORGANIZATIONS 



15160 PRINT"THIRD- TO THE BIG SHOTS. 
GET THEIR ATTENTION. 



HOPEFULLY YOU'LL 



OTHER STYLES CAN BE DEVELOPED AS YOU NEED THEM AND ADDE 
D. 

";STRING$(64,"*") 

15170 GOSUB20000 

15180 CLS: PRINT "YOU CAN SAVE ON TAPE OR DISK BUT KEEP S 
EVERAL HARDCOPIES. SUGGESTION: MAKE FOUR COPIES. 
1) TO OFFENDING PERSON OR COMPANY. 2)TO THIRD PAR 
TY IF NEEDED. 3) FOR YOUR FILES. 4) TO OFFENDIN 
G PERSON OR COMPANY IF THEY FAIL TO COMPLY 

15190 PRINT" 

JUST ANSWER THE QUESTIONS AND ONLY ONE WARNING EACH 

ENTRY IS LIMITED TO 256 LETTERS AND SPACES. 



HAVE FUN AND HERE'S HOPING YOU WIN THE DAY. 

SAVING ON TAPE OR DISK SAVES THE PERTINENT DATA FOR FUT 

URE USE. 
15200 GOSUB20000:GOTO40 
15210 PRINT@704,D1:RETURN:REM SEPARATES INSTRUCTIONS FR 

OM DATA ON SCREEN 

15220 PRINT@768, "ENTER UP TO 10 ITEMS (EACH MAX. 256 L 

ETTERS AND SPACES) ." :RETURN 
15 230 REM SAVE ON TAPE OR DISK 
15240 PRINT@192,CHR${31) :A="": INPUT"DO YOU WANT TO SAV 

E ON 
<T>APE 
<D>ISK 

<Q>UIT";A:IFA="Q"GOTO40 
15250 IFA="D"GOTO 15300 
15260 IFAO"T"GOTO 15240 
15270 GOSUB20010:INPUT"PREPARE RECORDER - TYPE NAME OF 

FILE AND PRESS <ENTER> WHEN READY";A 
15280 GOSUB20010:PRINT@468,"** RECORDING DATA **":PRINT 

#-l,A 
15290 F0RI=1T032:PRINT#-1,A(I) :PRINT"*"; :NEXT:GOTO40 
15300 GOSUB20010:INPUT"READY DISK AND INPUT 

FILE NAME (MAX. 8 LETTERS) ";A 

15310 INPUT"DRIVE NUMBER" ;A1 :A=A+" : "+A1 :REM FILE NAME 

15320 IF PP=2 GOTO 15050 

15330 PRINT@468,"** WRITING DISK **":OPEN "0" , 1 , A:FORI= 

1T032:PRINT#1,CHR$(34) ;A(I) ;CHR$(34) ; : NEXT: CLOSE :G 

OTO40 
15340 FORI2=10TO20:GOSUB20010:PRINT"REVIEW OF FACTS 

15350 PRINTA(I2) : IFA( 12+1) =""GOTO 15370 

15360 GOSUB20000:NEXT 

15370 GOSUB20000:GOTO 240 

15380 FORI2=20TO30:GOSUB20010:PRINT"REVIEW OF DEMANDS 

15390 PRINTA(I2) : IFA( 12+1) =""GOTO 15410 

15400 GOSUB20000:NEXT 

15410 GOTO290 

18000 A="":A=A(I) :L=LEN(A) :K=1 

18010 M1=MR-ML 

18020 IFMK=LGOTO 18050 

18030 IFM1+K>LTHENM1=L-K 

18040 IFM1>LTHENIFMID$(A,M1,1)<>" "THENM1=M1-1 :GOTO 180 

40 
18050 F0RX=1T0M1 

18060 LPRINTTAB(ML)MID$(A,K,1) ; : IFK=LTHEN 18090 
18070 K=K+1:NEXT:LPRINTCHR$(13) 
18080 IFK<LGOTO 18010 
18090 RETURN 

20000 INPUT"PRESS <ENTER> TO CONTINUE" ;C : RETURN 
20010 PRINT@192,CHR$(31) : RETURN 
32000 DATA 217,25,281,25,345,25,409,2,473,5,537,20,601, 




Service 
Technologies 

"Simply the Best" 

^ADD LOWER CASE TO ANY 
CENTRONICS PRINTER! . . . $89.00 

*ADD MOTOR CONTROL TO 
YOUR 779! $95.00 

Our Conversion Kit I gives all Centronics printers the ability to 

print upper and lower case $89.00. 

Optional customer defined character sets available 

Our Conversion Kit II turns your motor on and off automatically. 

Increases the life of your printer: $95.00. 

Both kits require NO soldering, etchcuts, software change, 
interface or program modifications. Installs in minutes with just a 
screw driver 

We are the original Centronics add-on company. 
Don't be fooled by immatations! 

NOW USE YOUR CENTRONICS PARALLEL 
PRINTER ON ANY COMPUTER WITH A 

SERIAL PORT! 
AVAILABLE IN FOUR MODELS, ALL WITH 
SWITCHABLE BAUD RATES 
$ CSP ■ 100 

NO BUFFER $175.00, 

CSP - 200 

256 CHARACTER BUFFER $225.00 

CSP ■ 200X 

X ON/X OFF PROTOCOL $340.00 

CSP ■ 2000 

2048 CHARACTER BUFFER $395.00 

And more 




3SC-488 IEEE PARALLEL "LISTEN ONLY" TO 
CENTRONICS INTERFACE 

• Input IEEE 488 GPIB, Hewlett Packard HPIB, or PET compatible 

• Switchable device address 

• Disable switch for address and parallel commands $125.00 

• PSI PARALLEL SWITCH ALLOWING TWO 
DEVICES TO SHARE ONE LINE PRINTER 

• Two parallel input ports - one parallel output port 

• Manual or remote switching control $125.00 

$ SDP-1 

A USER PROGRAMABLE SERIAL 
DATA PROCESSOR WITH 
THE CAPABILITY OF 
COMBINING MULTIPLE SERIAL 
DATA OPERATIONS 

• Z-80 Microprocessor ■ controlled 

• Buffer allocation, synchronous or asynchronous operation 
including transparent or non transparent mode. 

• Code, word structure and buad rate conversions 
Ex. ASCII to EBCID or ASCII to BAUDOT 

• Handles baud rates of 50-19,200 b.p.s 

• Buffer size expandable from 4K - 64K RAM memory 

• Audio cassette interface 

• Independent and separately controlled input and output ports. 

OUR QUALITY, SERVICE, WARRENTYAND PRICE 
CAN'T BE BEAT 

To order please send check or money order to; 

Service Technologies 





32 Nightingale Rd. 
Nashua, N.H. 03062 
(603) 883-5369 ^297 




VISA 



Visa and Master Card accepted (include signature 
expiration date and phone #) 

phone orders and inquirys always welcome 



sSee List of Advertisers on page 306 
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TRS-80™ Compatible 

"carbonless" 

Continuous Statements 




small 
quantities, 
low prices, 
fast delivery 

Order as few as 500 
statements imprinted with 
your firm name and address. 

Only $0795 

NEBS 9062 Statements are 
software compatible with 
the TRS-80, Model 1, Level 
II, Accounts Receivable 
package #26-1555. 



TRS-80 Is a Trade Mark of the Radio Shack 
Co., Subsidiary of Iha Tandy Corp. 



j_Js4...- 



»OU« FIRM NAME HERE 




SPEED COLLECTIONS 
Product 772 DU-O-VUE® Envelope 
(3%"x 6%") eliminates 
envelope addressing. 



Product 9062 — Size 6"x 8 1 /i" detached. Prices include your firm 
name, address and phone in top section, plus your name only in 
lower section. Printed in black ink. Available in single (white) or 
duplicate (white, canary) continuous sets. 





SINGLE 


DUPLICATE 


Product 772 


QUANTITY 


Product 


Product 


DU-O-VUE® 




9062-1 


9062-2 


Envelopes 


10,000 


$192.00 


$355.00 


$138.00 


6,000 


128.00 


228.00 


92.00 


4,000 


99.00 


169.00 


64.50 


2,000 


59.00 


99.00 


36.25 


1,000 


38.75 


61.00 


20.75 


500 


27.95 


39.95 


12.25 



ORDER TODAY! MONEY-BACK GUARANTEE. 
FAST SERVICE BY MAIL or PHONE TOLL FREE 1+800-225-9550 
(Mass. residents 1+800-922-8560). It is our policy to ship within 
6 working days following our receipt of your order. 



Please ship: 



Date. 



_19_ 



CODE 460 



.9062-1 STATEMENTS (Single) 

.9062-2 STATEMENTS (Duplicate) 

.772 DU-O-VUE® Envelopes 

.Information on continuous checks and other 
computer forms. „__^_ 



HEADING TO BE PRINTED ON FORMS: (Please type or print) 



CITY and STATE 



AUTHORIZED SIGNATURE 



If you wish us to BILL and SHIP differently from above please indicate. 

Nebs. 



1^ NCuS I 

L _ — — — Computer Forms - «J 



^ 194 78 HollisStreet, Groton,Mass. 01450 

A division of New England Business Service. Inc. 



COMPUTER HOBBYIST SPECIALS! 




Daisy Wheel 
Terminals 

RS-232. used, off-lease. Features 
Diablo Hytype 1 printer, up to 30 
CPS, plot & text modes, dual pitch 
and much, much more. Includes 
data, operation manual, schem- 
atics. "As-is" machines may need 
someservice. 



TESTED & FUNCTIONAL 



Add$40forHdlg andPkg 
PayShippingWhon Delivered 



$ 1299 



00 



■AS-IS" ONLY 

•899°,? 



' "SELECTRIC" TYPEWRITER TERMINALS 



15" "Selectric" typewriter terminals arecomplete 
with solenoid drivers and RS-232 Serial I/O cir- 
cuitry BCD or correspondence code Each unit 
includes operational printer, power supply, and 
untested RS-232 I/O board. Features: 

• Full KSR Capability .14 CPS Rale 

•88 Character Set .Standard Typewriter KBO 

lUpper and Lower Casel .117 VAC. 

• 134.5 Baud I/O 60 Hz Operation 

• 132 Col. 



No type elemi 
data included 



nl included. Line cord and sor 



' Reg. Trademark ot IBM Corp. 

•Add $20 For Hdlg. & Pkg. - Pay Shipping When De 
WriteorCallforour Bargain-Packed PERIPHERAL FLYER! 

Prices are SubjecttoChangeon All Items 




80C Code Terminal 

Correspondence Code Terminal tALH 
$569.00 
Printer Maintenance Manual c*ch 
$20. 



Associates, Inc. 



MAIL ORDERS: 

x 144. Newton. N.H. 
03858 



PHONE ORDERS: 

617/372-8536 

' I Sony. No Colled Calls) 

MasterCharge & VISA Welcome 



WAREHOUSE: 

18 Granite Street 
averhill. Mass. 01830 



*£% I /CV\ COMPUTER INTERFACES 

WV OFFICE ^%\ & PERIPHERALS 

-Sugy s J!J!LTrL- 

• POS-100 NRZ1 TAPE DRIVE CONTROLLER/FORMATTER - Now your 
micro can read and write IBM/ANSI compatible NRZ1 format 9-track magnetic 

tapes. The POS-1 00 consists of S-l 00 bus card, 6' ribbon cable, tape drive controller 
card, cable to Pertec-Standard NRZ1 Tape drive, plus documentation and Z-80 or 
8080 software (specifiy). Power is derived from tape drive and S-100 bus. Ship Wt.. 
10 lbs. Suggested Retail Price $995.00 

• POS 103/202 "MIX or MATCH" MODEM - Unique POS control design permits 
use in one housing of both Bell-compatible 103 (0-300 baud) and 202 (0-1200 

baud) modem modules originally made by VADIC Corp. for a telephone company 
subsidiary. FEATURES: RS-232 serial Interface, auto-answer, auto-dial, LED 
display, telephone line interface via acoustic coupler, manual DAA.or auto-answer 
DAA (sold separately). FULLY AD|USTED; no special tools required. 3,000 mile 
range over standard dial-up telephone lines. Ship wt.: 15 lbs. 

PRICES POS 103 Modem - $199.95; POS 202 Modem - $299.95; 

POS 202 Modem w/Auto-Answer - $349.95; POS 103/202 Modem - $499.95; 
FCC-Approved Auto-Answer DAA - $1 25.00; Acoustic Coupler - $29.95. 

• POS DAISY-WHEEL PRINTER INTERFACE for TRS-80 - Will drive Diablo 
HyType I, HyType II, and Qume Q and Sprint 3 printers. Includes IK user- 
available memory for custom print routines (such as graphics, bidirectional print- 
ing, etcj Programmed to respond to print commands from BASIC ELECTRIC 
PENCIL™ and SCRIPSIT™ software. Draws its power from printer. Ship wt.: 

5 lbs. Price $250.00 

Cables, each (Specify HyType I, HyType II, or Qume) $ 25.00 

• POS ASCII INTERFACE for IBM I/O SELECTRIC This Centronics-style 
parallel printer interface will drive an IBM Model 731 or 735 I/O typewriter 

(EBCD and Correspondence codes). No software needed. Features on-board EPROM 
which holds up to 8 ASCII-to-IBM code tables for different type spheres. Closed- 
loop operation runs at maximum printer speed; stops and starts on a single character 
without loss of data. Requires +12VDC and ±5VDC power source. Ship wt.: 

5 lbs. Price $249.95 

Power Supply ('5VDC, +1 2VDC, +24VDC for Solenoids on Printer) . . . .$ 49.95 

• CONVERT OFFICE SELECTRIC TO I/O TYPEWRITER - Kit includes 
assembled solenoids, switches, wire harness, magnet driver PCB plus instructions 

for installation and mCPU interface. Price $150.00 

• "FORMALINER" Variable Width Forms Tractor for IS" Selectrics . . . $95.00 

• GTE Model 560 ASCII SELECTRIC I/O Terminal -With RS-232 Serial Interface 
and digital cassette deck for use as memory typewriter. Ship wt.: 100 lbs. 

Price, tested and adjusted $1,195.00 

• POS ASCII IBM SELECTRIC PRINTER - 15" Selectric from GTE terminal 
cleaned and adjusted with POS Centronics-style ASCII printer interface. UC/LC, 

carbon and fabric ribbons. Compatible with TRS-80, Apple, SOL and other CPU 
parallel printer ports. Ship wt.: 75 lbs. Price $895.00 

PACIFIC OFFICE SYSTEMS ^-153 
2265 Old Middlef ield Way Mountain View, Calif. 94043 (415) 493- 7455 
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UTILITY 



What 's 64 characters 
long and disappears? 



Line Loss 



Hubert C. Borrmann 
2840 S. Circle Drive 
Colorado Springs, CO 80906 



Occasionally in our daily 
lives we notice that some- 
thing has suddenly disap- 
peared. However much we look 
for it, it's gone. 

Well, this is a fact of life, and 
we have to reconcile ourselves 
to the fact that this is the way it 
is, the way it was and the way it 
may always be. 

I want to talk about some- 
thing which is 64 characters 
long and suddenly disappears: 



A line from our TRS-80 screen. 

This happens when we have 
to respond to a PROMPT to en- 
ter something. Whenever we 
type in the desired response and 
press ENTER, the line following 
the one where the cursor was, is 
suddenly gone. 

This is a fact and we are prob- 
ably willing to live with it. There 
is, however, something we can 
do about it. If we work with 
games or graphics, for instance, 
we can save the line in a string- 
variable. We can replace it on 
the screen when the program re- 
gains control after ENTER. Type 
in the seven-line program shown 
in the Program Listing. Run it 
and you will see the second line 
disappear. Now go into edit- 
mode and remove the quote ( ' ) 
from lines 40 and 60. Run it 
again. 

Now we've solved the case of 
the wiped-out line. ■ 



10 CLS:CLEAR 200 

20 FOR N =0 TO 255:PRINT@N, "#";:NEXT N 

30 PRINT@5,"ENTER ANY CHARACTER"; 

40 'B$ = " ":FOR N =64 TO 127:B$ = B$ + CHR$(PEEK(15360 + N)):NEXT N 

50 INPUT A$ 

60 'PRINT@64,B$; 

70 IF A$ = "END" THEN END ELSE 30 

Program Listing 



FIXED ASSET ACCOUNTING 

Stop paying high professional fees for clerical work. This extremely 
flexible system will maintain all records which are related to fixed assets 
and depreciation. 

* Any method: straight line, declining balance, ADR, sum of the 
years digits 

* Projects depreciation for current & future years 

* Complete audit trail with detailed fixed asset ledger, acquisi- 
tion and disposal reports 

* Computes investment tax credit and additional first-year 
depreciation 

* Provides reports summarized by general ledger account, asset 
group, department, and more 

System requirements are 32K and two or more disk drives for Model I, 
64K with one or more disc drives for the Model II, and 32K with at least 
one disk drive for the Model III. All versions require Disk Basic and will 
run under either TRSDOS or NEWDOS. 

FAAS-1 For Model I $ 149 

FAAS-2 For Model II $ 189 

FAAS-3 For Model III $ 149 

CASH FLOW PROJECTION 

Get control over your personal finances. This easy-to-use system main- 
tains a detailed analysis of your future cash requirements and estimated 
income, tracking the information you need to schedule payments, avoid 
minimum balance fees and forecast the amount of your uncommitted 
funds at any point in time for at least a year into the future. The tape 
versions require 1 6K & either Level II or Model III Basic. Disc versions re- 
quire 32K, Disc Basic, at least one drive and will run under TRSDOS or 
NEWDOS. 

Tape Versions Disk Versions 

TCASH-1 For Model I ... $ 1 9.95 DCASH-1 For Model I ... $ 24.95 
TCASH-3 For Model III . . $ 1 9.95 DCASH-3 For Model III . . $ 24.95 

C.O.D. $2.50 ADDITIONAL CONN. RESIDENTS PLEASE ADD SALES TAX 

THE SYSTEMWORKS ^473 
P.O. Box 359 Flood Road Marlborough, Conn. 06447 



Attention TRS-80 Mod II owners: 
P&T CP/M® 2 has more to offer! 

More Disk Storage 596K bytes with double density on stan- 
dard single sided disk drives. It that's not enough, versions are 
available for double sided expansion drives (1 .2 M bytes per disk) 
and the Cameo Hard disk system (10M bytes.) 
More CRT Functions P&T CP/M 2 has the most advanced 
screen driver available for the Mod II including: erase to end of 
line/screen, insert/delete line, cursor addressing, non-scrolling 
area on screen, and much more. 

More Serial I/O Capabilities The serial drivers in P&T CP/M 2 
support ETX/ACK, XON/XOFF, and request to send handshaking. 
Direct control of serial ports is also available for special applica- 
tions. 

More Documentation We provide the standard CP/M manuals 
and our own 1 50 page manual written specifically for P&T CP/M 2. 
More Utilities We have added 1 4 of our own utility programs for 
the Mod II to the standard CP/M utilities. 
More Useful System Functions P&T CP/M 2 has all sorts of 
useful features you won't find elsewhere: type-ahead buffer for 
keyboard input, system time of day clock, automatic program 
execution and lots more. 



Prices 

Standard P&T CP/M 2 

P&T CP/M 2 for Shugart 850 2 sided drives 

P&T CP/M 2 for Cameo Hard Disk system 



$185 
$220 
$250 



We also carry other software packages, single & double sided 
expansion drives and the Cameo Hard Disk System. Write for 
details. 




Prepaid COD Mastercharge O' Visa orders ac.c 
Shipping extra California residents add 6°" sales 



^273 



Sta^ PICKLES & TROUT 

1 RUU 1 PO BOX 1206. GOLETA. CA 93017. (805) 967-9563 



CP/M is a trademark of Digital Research Inc 



TRS-80 is a trademark of Tandy Corp 



►-See List of Advertisers on page 306 
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UTILITY 



A few enhancements to your favorite Shack utility. 



Take T-Bug Higher 



W. R. Stanley N4TF 

City Route 13, 204 Avery Lane 

La Grange, GA 30240 



This article is written for 
those who have moved 
T-BUG to the high RAM range, 
possibly with the help of the arti- 
cle written by Irwin Rappaport 
(Get T-BUG High, p. 118) in the 
first issue of this magazine. 

Rappaport indicated that a 
wholesale move of T-BUG from 
the vicinity of 4380h to locations 
starting at 7380h greatly simpli- 
fies the logistics involved. 

The smallest number of in- 
structional address bytes are to 
be changed only when the high- 
order half of the address is to be 
dealt with. 

My TRS-80 was originally a 4K 
Level I machine. After getting re- 
motely acquainted with BASIC 
usage, I purchased T-BUG and 
entered the exciting, fascinating 
world of machine language pro- 
gramming. 

After my excitement died 
down, I realized that T-BUG 
lacked some operating features. 
Thus, this monitor program was 
cumbersome to use. 

The two shortcomings that 
seemed to detract most from 
overall satisfaction with T-BUG 
were its video display approach 
and inability to move by choice 
through consecutive memory lo- 
cations. 

Rappaport voiced my 
thoughts about the address 
block location in the original 
T-BUG. I didn't devise any pro- 



grammed means to move T-BUG 
to the high end of my then ade- 
quate memory, however. I did it 
the hard way, instead, by keying 
every byte into high memory us- 
ing the T-BUG itself. Level I 
doesn't PEEK and POKE. 

A few months afterwards the 
situation changed. Then came 
Level II and 16K! Now I can get 
something done! 

Wait a minute. T-BUG is still in 
the way. So, I laboriously moved 
it again, this time to the memory 
block starting at 7380h. 

Changes Needed 

If you have used T-BUG much, 
you've probably wished it could 
do more, or at least do some 
things differently. One thing 
that bothered me was the video 
display format - not the memory 
address and byte display. The 
garbage on the rest of the 
screen bothered me. 

Another thing I wanted T-BUG 
to do was complete erasure of 
the screen, on command. Anoth- 
er capability I wished the origi- 
nal monitor had was that of dis- 
playing bytes at the same time 
another machine language pro- 
gram was being loaded under 
command. 

One more change I sorely 
needed was to backstep 
through memory one byte at a 
time. Those readers who have 
typing skill approaching mine 
can appreciate the value of that 
last change to T-BUG. 

It is aggravating to make a 
mistake when entering data in 
the M mode. It is frustrating to 



have to exit the memory exam 
mode and re-enter it, at or pre- 
ceding the address where the 
wrong data byte was entered - 
just to correct that one, last en- 
try. 

Wouldn't it be nice just to hit 
the space bar and back up to 
that last address, correct the 
data, and then proceed? A sim- 
ple program change can allow 
just that. 

Original Program 

The original T-BUG program 
provided for erasure and scroll- 
ing of the 16 columns on the left 
side of the video display screen. 
Anything to the right displayed 
when T-BUG was brought up, re- 
mained on screen, unless a ded- 
idicated effort was made to load 
20h (ASCII space) into the ap- 
propriate video RAM locations. 
This erased the extraneous ma- 
terial. 

I solved the video display gar- 
bage problem in two ways. My 
modified T-BUG High not only 
scrolls an entire horizontal line 
at a time, but, on command, it 
erases the entire screen and dis- 
plays the prompt symbol at the 
upper left corner. Using the 
scrolling technique, then, the 
garbage was quickly shoved off 
the screen. 

The capability to display 
bytes on the screen, as a system 
tape is being loaded by T-BUG, 
is not of prime importance; how- 
ever, it is entertaining and use- 
ful to know. It allows you to read 
the file name of the tape, and 
with a little practice, you can 
identify the memory address 



where the first program byte is 
loaded. You can also see on 
display the execution address 
of that program. 

Caution 

A word of caution is in order. 
The program changes to be un- 
dertaken will, of necessity, mod- 
ify the flow of events through 
the original T-BUG program 
which has been moved to the 
high memory area. Modifica- 
tions to T-BUG High, using itself 
to modify its own program loca- 
tions, could also result in an im- 
mediate crash. 

I urge you to follow this se- 
quence: (1) Load T-BUG High in 
the normal manner. Do not key 
/ENTER when it is loaded; in- 
stead, push RESET and return to 
BASIC. (2) Enter SYSTEM again 
and load T-BUG Low. Bring up 
this program in the normal man- 
ner. (3) Enter all pertinent 
changes to T-BUG High, includ- 
ing program segments above 
and below the original program 
locations. (4) Use T-BUG Low to 
jump to 73AOh, the starting ad- 
dress of T-BUG High. (5) After a 
thorough check of the modified 
T-BUG High, use it to punch a 
tape of itself. 

Now a word to those who 
have relocated T-BUG to some 
range of addresses other than 
those starting at 7380h. The 
modifications detailed here will 
still produce the desired result, 
but only if you make the neces- 
sary address changes to suit 
your case. 

It will be up to you to locate 
the bytes in your version of 
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MAKE 
MONEY 



Selling 80 Microcomputing, the only 
major journal for the users of the 
TRS-SO*, is a sure bet for getting the 
computer enthusiast into your store. 
Once through the door you can sell him 
anything. 




We know "80" will make money . . . it's 
the only magazine for the TRS-80* 
users and you know how many of those 
there are. So call today and join the 
dealers who make money with "80". 

$$$$$$ 

For information on selling 80 Micro- 
computing, call 603-924.7296 and speak 
with Ginnie Boudrieau, our Bulk Sales 
Manager. Or write to her at 8© Micro- 
computing, Pine Street, Peterborough, 
NH 03458. 

"TRS-80 is a trademark of the Tandy Corp. 



niRRK SQRIDDn 

COMPUTERS 



DIVISION OF MARK GORDON ASSOCIATES, INC. ^-270 
P.O. Box 77, Charlestown, MA 02129 (617) 491-7505 



COMPUTERS 

Atari 800 W 16K 799.00 

4K Model III 599.00 

Model II 64K System 3499.00 

16K Model III 879.00 

DISK DRIVES 

40 Track 5Vi inch drive 31 4.00 

80 Track 5% 544.00 

4 Disk Drive Cable 39.00 

PRINTERS 

Centronics 730 599 00 

Epson MX80 Call tor price 

Epson MX70 Call for price 

Centronics 737 849.00 

Okidata Microline 83 999.00 

Okidata Microline 82 729.00 

Integral Data 440G 999XI0 

NEC 5510 w-tractor 2679.00 

Okidata Microline 80 499.00 

Diablo 630 2495.00 

M ISC HARDWARE 

Expansion int TRS-80(Ok) 269.00 

Novation D-Cat Modem 1 66.00 

1 6K Memory Kit 41 .99 

Leedex Monitor 11 9.00 

Leedex 1 00G 1 39.00 

Leedex Color Monitor 399.00 

Printer Cable for above 49.00 

ISO-2 Isolator 54.00 

AC LINE FILTER 24.00 

STORAGE MEDIA 

Scotch-box 1 0-5'/4 27.00 

Memorex-box 1 0-5'/« 22.00 

Plastic Storage Box 5.00 

OPERATING SYSTEMS 

NEWDOSbyAPPARATINC 49 00 

NEWDOS+ by APPARAT INC 99 00 

MMS FORTH DISKETTE-PRIMER 79 95 

NEWDOS 80 1 49.00 

BUSINESS SOFTWARE FOR TRS-80 BY SBSG 

Free enhancements and upgrades to registered owners for the cost of 
media and mailing. 30 day free telephone support. User reference on 
request. 

Fully Interactive Accounting Package. General Ledger, Accounts Payable, 
Accounts Receivable and Payroll Report Generating 

Complete Package (requires 3 or 4 drives) $475.00 

Individual Modules (requires 2 or 3 drives) $1 25.00 

Inventory II (requires 2 or 3 drives) 1 $99.00 

Mailing List Name & Address II (requires 2 drives) $1 29.00 

Intelligent Terminal System ST-80 III $1 50.00 

The Electric Pencil from Michael Shrayer $1 50.00 

File Management System $ 49.00 



FINE PRINT 

TRS-80 is a Tandy Corporation trademark. Use of above operating systems 
may require the use of Radio Shack TRS-DOS. Radio Shack equipment 
subject to the will and whim of Radio Shack. 



ORDERING INFORMATION 

We accept Visa and Mastercharge. We will ship C.O.D., certified check, or 
money order only. There will be a 40 percent deposit required on all C.O.D. 
orders over $300.00. Massachusetts residents add 5 percent sales tax. 

To order, call toll-free 1-800-343-5206 

For information call 61 7-491 -7505 




The Company cannot be liable for pictorial or typographic inaccuracies. 
The above prices do not include shipping. 




vSee List of Advertisers on page 306 
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Change 






From 


To 


73 E5 


FE 


C3 


73E6 


46 


80 


73E7 


CA 


78 


73E8 


OD 


00 


73E9 


78 


00 


742C 


FE 


C3 


742D 


OD 


AA 


742E 


28 


78 


742F 


OE 


00 


7554 


11 


00 


7555 


30 


00 


755B 


10 


40 


7566 


DD 


00 


7567 


19 


00 


7573 


10 


40 


Table 1. 


Starting 


with 73E5; 


changes to be 


made to 


T-BUG High. 





T-BUG High to be changed, and 
decide the proper address loca- 
tions to be used. 

Modifications 

Table 1 shows the location at 
which changes to T-BUG High 
are to be made. Table 2 includes 
the bytes to be added at the ad- 
dresses at the end of the main 
T-BUG High program. Shown in 



7880 


FE 


78A2 


01 




46 




FF 


7882 


CA 




03 




0D 


78A5 


ED 




78 




B0 


7885 


FE 


78A7 


C3 




20 




80 


7887 


CA 




73 




97 


78AA 


FE 




78 




0D 


788A 


FE 


78AC 


CA 




44 




3E 


788C 


CC 




74 




47 


78AF 


FE 




73 




20 


788F 


FE 


78B1 


28 




45 




03 


7891 


CC 


78B3 


C3 




5D 




30 




73 




74 


7894 


C3 


78B6 


DD 




EA 




2A 




73 




3F 


7897 


3E 




78 




20 


78BA 


DD 


7899 


32 




2B 




00 


78BC 


DD 




3C 




2B 


789C 


21 


78BE 


DD 




00 




22 




3C 




3F 


789F 


11 




78 




01 


78C2 


C3 




3C 




3E 
74 


Table 2. Starting with 


7880; 


bytes added at end of T-BUG 


High. 









Table 3 are the bytes to be 
entered in the block of ad- 
dresses preceding the start of 
T-BUG High. The following is a 
description of the changes, and 
the logic behind them. 

Since commands are being 
added to T-BUG, it is necessary 
to make room in the command 
table for additional function 
calls. Instead of inserting the 
additions to the table and shift- 
ing the entire remainder of the 
program upward in memory to 
make room for changes, I in- 
serted a JUMP instruction at the 
head of the table. 

I had to eliminate a compari- 
son and a conditional JUMP in- 
struction in the original table in 
order to make room for the in- 
serted instruction. Dislocated 
table segments appear then, in 
the command table extension 
starting at 7880h. 

I ran into the relocation prob- 
lem again when I inserted bytes 
into other locations in T-BUG 
High to modify its performance. 
I thus took a logical (easy) way 
out. You will note that other 
changes detailed in Table 1 
result from the need for addi- 
tional program space: jumps 
are made to new subroutines 
outside the original program, 
and those subroutines normally 
return to the next logical loca- 
tion in the unmodified program. 

The program change starting 
at 742Ch provides a means of in- 
cluding the subroutine starting 
at 78AAh in the routine that nor- 
mally increments memory ad- 
dresses when in the M mode. If 
the space bar is pressed, the 
memory address is decrement- 
ed to the previous location. If 
data at the indicated memory lo- 
cation is changed, or the enter 
key is pressed, the memory ad- 
dress is incremented as usual. 

The change at 755Bh provides 
for 64 column scrolling, instead 
of the 16 column scrolling in the 
original program. 

The changes at 7566h and 
7567h are necessary to permit 
proper operation of the memory 
backstep subroutine. 

Additions 

Following are comments on 
Tables 2 and 3. Note that data 
bytes are added in two blocks, 



one on either end of T-BUG 
High. One block of data is added 
following the last instruction 
byte at 7824h. The other data 
block to be added starts at 
7300h and stops a few bytes 
short of 7380h, the first byte 
in the unmodified relocated 
T-BUG. 

Readers who are curious 
about the discrepancy between 
the normal ending address of 
T-BUG High (7824h) and the last 
address reserved for T-BUG use 
(7980h) need not wonder any 
more. Portions of this memory 
area are used for a stack. Other 
segments and specific loca- 
tions are used by T-BUG for tem- 
porary storage of data in house- 
keeping operations. 

Do not relocate the data in the 
block starting at 7300h to any 
area nearer the end of T-BUG 
unless you have disassembled 
T-BUG and located all pertinent 
reserved memory areas. 

A command table extension 
starting at 7880h is called indi- 
rectly whenever the prompt (#) 
symbol appears on the screen. 



(T-BUG is awaiting a command.) 

Note the F command (46h = 
ASCII F) in this table. Remember 
that it was dislocated to provide 
room in the main program for a 
jump instruction. Also in this ex- 
tension are hex representations 
for space, D and E. More on D 
and E later. 

If the space bar is hit when in 
the command mode, the subrou- 
tine at 7897h-78A6h is invoked, 
completely erasing the screen. 
A jump is then made to the 
main program where the prompt 
is again displayed. T-BUG is 
once again in the command 
mode. 

The subroutine at 78AAh- 
78C1h is called during the M 
mode, and allows the user to 
step forward or backward in 
memory. 

If the D key is pressed in the 
command mode, the main pro- 
gram is modified. Incoming 
bytes from a machine language 
tape can then be displayed and 
loaded into memory. The E key 
restores this aspect of T-BUG 
High to its original configura- 



7300 


C5 


7327 


23 


734D 


01 


7301 


06 


7328 


23 




0A 




08 


7329 


7C 




00 


7303 


CD 


732A 


FE 


7350 


ED 




62 




40 




B0 




77 


732C 


20 


7352 


C9 


7306 


10 




03 


7353 


CD 




FB 


732E 


21 




00 


7308 


CD 




CO 




73 




10 




3F 


7356 


C9 




73 


7331 


22 


7357 


00 


730B 


C1 




3D 


7358 


00 


730C 


C9 




78 


7359 


00 


730D 


00 


7334 


D1 


735A 


00 


730E 


00 


7335 


C1 


735B 


00 


730F 


00 


7336 


F1 


735C 


00 


7310 


E5 


7337 


E1 


735D 


11 


7311 


F5 


7338 


C9 




82 


7312 


C5 


7339 


E6 




77 


7313 


D5 




OF 


7360 


21 


7314 


2A 


733B 


C6 




69 




3D 




30 




73 




78 


733D 


FE 


7363 


01 


7317 


4F 




3A 




0A 


7318 


CB 


733 F 


FA 




00 




OF 




44 


7366 


ED 


731 A 


CB 




73 




B0 




OF 


7342 


C6 


7368 


C9 


731 C 


CB 




07 


7369 


C5 




OF 


7344 


77 


736A 


06 


731 E 


CB 


7345 


23 




08 




OF 


7346 


C9 


736C 


CD 


7320 


CD 


7347 


11 




62 




39 




82 




77 




73 




77 


736F 


10 


7323 


79 


734A 


21 




FB 


7324 


CD 




53 


7371 


C1 




39 




73 


7372 


C9 




73 










Table 3. Starting with 


7300; bytes added in front of T-BUG 


High. 
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tion— then there is no byte dis- 
play while loading. Naturally, 
the monitor must be in com- 
mand mode for the E key to 
function. 

As shown by inspecting the 
extension, depression of the D 
key causes a jump to a subrou- 
tine starting at 7347h. This sub- 
routine, from 7347h to 7352h, 
loads the data bytes from 7353h 
to 735Ch into the main program 
starting at 7782h. The result is 
the rewriting of a segment of the 
main program. 

Now when a system tape is 
loaded by T-BUG High, the sub- 
routine from 7300h to 730Ch is 
called periodically. This in turn 
invokes another subroutine, 
starting at 7310h, that displays 
the tape data bytes being load- 
ed. 

Depression of the E key calls 
the subroutine from 735Dh to 
7368h. This rewrites into the 
main program the data bytes 
residing between 7369h and 
7372h. Transfer of this block of 
bytes back to the main program 
will restore that segment of 



T-BUG High to its original con- 
figuration. 

Operation 

Little needs to be said about 
using the added functions and 
capabilities, since I'm sure that 
most of you will explore them as 
soon as the program has been 
modified. The following is there- 
fore for the more patient users. 

In the command mode, the 
space bar clears the entire 
screen. In the M mode, the bar 
backspaces the current memory 
address. It has no function in 
any other mode of operation. 

In the command mode, the D 
key enables the tape data byte 
display during load operations. 
Incidentally, depression of the D 
(for DISPLAY) key results in no 
visible indication of a program 
change. It becomes visible dur- 
ing L, of course. 

Again, in the command mode, 
depression of the E(ERASE) key 
results in no overt indication un- 
til the L mode is entered. Of 
course, no tape byte display will 
be generated. 



You'll note that during a load 
operation where tape bytes are 
displayed, the display is not 
scrolled when the screen is 
filled. I couldn't get satisfactory 
scrolling and correct tape load- 
ing using my crude program- 
ming techniques. I simply used 
too much time for scrolling and, 
as a result, the tape loading suf- 
fered. So, the scrolling had to 
go. All is not lost, though. 

Data bytes displayed on the 
bottom line are still useful, even 
though they appear to be all 
overwritten. The last bytes 
loaded from the tape are still on 
that last line. Look closely for 
group 78. This is a special ter- 
mination code that tells the 
LOAD subroutine that the end of 
the program material is at hand. 
Now look at the two bytes to the 
right of the 78 code. These two 
denote the execution address 
(in hex) of the program just 
loaded. 

Now look at the first line on 
the screen. You will see 55 as 
the left byte. This is a code 
group designating a system 



tape. The next six bytes are the 
file name in ASCII. If the name is 
less than six characters, the re- 
maining six will be spaces (20h). 
The next byte will be 3C, indicat- 
ing to the loading program that 
the file is to start. The second 
and third bytes to the right of the 
3c byte will denote the starting 
hex memory location where the 
file loading begins. 

Use modified T-BUG High to 
load T-BUG Low and decipher 
some of the mysterious tape for- 
mat information you've heard 
about. Note the execution ad- 
dress of T-BUG Low— 43A0h. 
The execution address of T-BUG 
High should therefore be 73A0h. 

This article was written to 
share my thoughts with you, in 
hopes that you'll be inspired to 
develop and refine program 
techniques and share them, in 
turn, with us. 

These modifications make 
T-BUG easier to work with, and 
help remove the last obstacle 
preventing some prolific minds 
from developing new software. 
We could all benefit. ■ 



SAVE! SAVE! SAVE! 

ON COMPUTER ACCESSORIES FROM NATIONAL TRICOR, INC. 



• Call toll-free (800) 253-4358 
In Michigan, (616) 375-7519 

• We ship within 24 hours 

• Name brand, 1 st quality products— 25% to 50% off 

• Guaranteed refund or credit within 30 days 

• Open and account with us, Visa/Mastercard, check 

QUALITY SCOTCH " DISKETTES BY 3M 

Top brand, top quality. Packed 100 per box. 
CALL FOR TODAYS DISCOUNT PRICE 

8" Sigl-Side/Sgl-Density 

8" Sgl-Side/Dbl-Density 

8" Dbl-Side/Dbl-Density 

5%" Sgl-Side/Sgl-Density 

SCOTCH 

8" & 5%" head cleaning kits $19.95 

REDIFORM CARBONLESS COMPUTER PAPERS 
Standard green bar line tint forms in 8J4X1 " or 14-7/8X 
11", alternating white/green V 2 " bars. One part 8X11 
(1000 sets per box), list $17.16-YOU PAY $12.87 or two 
part (500 per box), list S22.14-YOU PAY $16.60. 
Call for quote on your size & quantity. 

Heavyweight Special Report Form 30# bond paper with 
alternating green and white >£" bars, ruled lines, and 
blank header area. 14-7/8X11 " (1000 one-part sets per 
box), list $33.90 
-YOU PAY $25.42. 







Scoul> 






O 

@ 






Plain white Word Processing paper 

tractor feed margins, it's 8)4X11"), 
forms, list $23.80-YOU PAY $17.85. 

SAVE ON AVERY LABELS 



9/ 2 xi 1" (Remove 
1000 single part 



Self adhesive in two convenient sizes, wide choice of 
quantity and format. Call for special prices, like our 
3/2X15/16", one across- 1000 labels, list $6.95-YOU 
PAY $5.21 or 5000, list $20.85-YOU PAY $15.64. 
Piggyback labels, with "Peel here" instructions ideal for 
mailings with send-back feature. 3 1 / 2 X15/16" list $60.90 
for 3000-YOU PAY $45.07. 

Large shipping labels 5X2-15/16" for all required or 
special address information. 3000 per box, list $64.08— 
YOU PAY $48.60. 



Save 25% to 50% every day at National Tricor! Want 
proof? Send for your catalog and SAVE! SAVE! 
SAVE! on computer accessories— paper, diskettes, 
labels, diskette mailers/filers/storage binders, file 
bars, index tabs, etc . . . plus regular Telephone 
Specials with super-super prices! 



A 



National Tricor, Inc. 

3335 Greenleaf Blvd., 

Kalamazoo, Ml 49008 

Toll free (800) 253-4358 

In Michigan, (616)375-7519 ^142 



sSee List of Advertisers on page 306 
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UTILITY 



Run this utility 

and it will tell you more about your programs than even you know. 



Know-It-All 



Alan Sehmer 

150 A Lorretta Drive NW 

Corrales, NM 87048 



While going through my Sep- 
tember issue of 80 Micro- 
computing I came upon William 
Noel's VARDOC program ("Do- 
cument those Variables," page 
88). 

I entered the program, but af- 
ter a few runs I became uphap- 
py, knowing the first occur- 
rence, last occurrence and num- 
ber of times a variable is used 
wasn't enough. 

I started out by modifying his 
program, but by the time I fin- 
ished the only part of the pro- 
gram that resembled the origi- 
nal was the name. 

List Variables and Lines 

This program will list all vari- 
ables, and ail lines on which a 
variable is used. It will also indi- 
cate if a variable is an array or 
not. The program will go on to 
list all lines pointed to by IF 
THENs, GOTOs and GOSUBs. It 
will also list the lines that con- 



tain them. 

If the program bombs, it will 
give a rough indication why. And 
finally, while the program is run- 
ning, it will show the BASIC line 
number worked on, the memory 
address accessed and the num- 
ber of variables found thus far. 
The display is mainly for us nail 
biters who dislike to press enter 
and watch nothing happen but 
the cursor disappear. 

Now for the other side of the 
coin, the program is slow. To 
analyze itself the program took 
12 minutes. (The program is 



2633 bytes long.) 

Worst of all, you must have a 
32K machine, and this program 
loves memory — 13072 bytes of 
it. There are things that can be 
done, however. The program as 
listed contains about 540 imbed- 
ded blanks that can be deleted. 
Because the arrays are integer, 
the line numbers in the program 
analyzed must not exceed 
32766. However, the arrays are 
probably larger than they need 
to be. As listed, the program can 
handle 75 variables, each used 
in 60 lines, and 100 IF THENs, 



>PRINT PEEK(16548);PEEK(16549) 

233 66 
READY 
>CLOAD 
READY 
>PRINT PEEK(16633);PEEK(16634) 

166 69 
READY 

>POKE 16548,164 : POKE 16549,69 
READY 
>CLOAD 
READY 

>POKE 16548,233 : POKE 16549,66 
READY 
> 



<ENTER> 

;Save these numbers 

; Load target program 

<ENTER> 

;End pointer plus 2 

<ENTER> (166-2 = 164) 

; Load VARDOC 

;Numbers from first PEEK 



In this example 166-2=164 is easy enough, but if that 166 had been a 1, 
then what? Then I must borrow from the 69, this would give me a 257 68. Re- 
member, borrowing 1 from the right number adds 256 to the left. And to clean 
things up 257-2 = 255, the first poke would be POKE 16548,255:POKE 
16549,68. Nothing to it. 

Example 1. 



GOTOs or GOSUBs. 

There are four arrays used in 
pairs of two: A$,A and L,M. The 
A$,A pair is used to hold the vari- 
ables and where they are used; 
the L,M arrays hold the line num- 
bers of GOTOs, etc. and where 
they point. Since these array di- 
mensions, from time to time, will 
need to be changed, I have made 
that easy. At the tail end of line 
65020, there are three variables: 
A2, A3 and A4 followed by a list 
of which variable affects which 
array. If during a run of the pro- 
gram, one of the arrays is filled, 
a SORRY ARRAYS ARE FULL 
message will be given along 
with the name of the array filled. 
Line 65020 can then be edited to 
change the size of the arrays 
and, of course, the arrays can all 
be made smaller to get more 
free memory. 

The program looks into mem- 
ory to find the start of user mem- 
ory so that it may be used with 
BASIC, BASICR and BASIC2. It 
also adjusts the PEEKs if it must 
peek into memory over 32767. 

To use this program on a disk 
system, enter and save it with 
the A option (SAVE "VAR- 
DOC2",A). Load the target pro- 
gram, merge VARDOC2 and run 

65000. 
On a disk system there is a 

semi-painless way to pick up 
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RUN BIG 
CPM* 
PROGRAMS 

ON YOUR 
MODEL 1 TRS-80* 

WITH 39 or 54K of use space.Can use Mixed 
Drivers 5'A or 8" (Variable Tracks) 
Compatable with all TRS*80 Operating 
Systems and all TRS*80 Programs.(usable 
on 48K disk systems only) Boards fit into 
keyboard inclosure. 

FREEDOM OPTION $245 

MEMORY EXPANSION OPTION. . . . $295 
Send Check or Money Order to: 

(MASS RESIDENTS, PLEASE INCLUDE 5* TAX) 

■ »Civ* ltd. ^ui 

P.O.Box 2308 • Woburn, MA. 01888 
(817)944-5329 MftSwsH 



BLACKJACK PLAYERS 

A YEARS INCOME IN 4 MONTHS. 

Bade Strategy Tutors, for th« novic« S •xp»rt alike. 
Us* our Tutor* S quickly loom how to b*com* A WINNER. 
Earn 140 hour. L«arn th* ••crsts of our tuccm. Our Tutor* 
will t*och you how to: 

** in YOU* MONEY *« 

** PlAY IACH HAND ** 

** NOT GET tARRf D ** 

"lit BUSINESS ** 

•*«* IEWAIIE **** 

Our Tutor* are not garnet 1 1 1 Th*y or* *«riou» tool* to 
mak* winner* out of you. The author* hove spent 7 years 
playing 8 being winner*. Now to can you, with the aid 
of our Tutor*. Our Tutor* are bated on the strategies 
developed by Lawrence Revere. More advanced strategies 
are ovailable call for info. Consultation is available 
for you by mall or phone). From 12pm - 12am M.S.t. 

PKG. I contains 10 Basic Tutors for Atlantic City, or Neveda 
Rush S25 for 16K Mod I or Mod III, cass. $30 for 32K disk 
Please add $2.00 for shipping. 

.205 
MICRO BLAJAK SYSTEMS INC. 
2800 NORTH ELLEN STREET 
FLAGSTAFF. ARIZONA 86001 
(602) 774-5723 or (602) 774-7561 



— Professional — 

Real Estate Software 

For Apple or TRS-80 

Property Management System 

(32K. 1 Disk Systems) 



Features:" 

• Tinint Inlormillon 

• Lit* Rant Reports 

• YTD a Monthly Income 

• Handles - 

Partial Payments 
Returned Checks 
Advance Payments 

• Prints Receipts 



5 Digit Ejpense Accounts 
Building Expense Report 
Vendor Expense Report 
Income Tax Report 
All Reports Can Be Printed 
Complete Documentation 
Easy Data Entry a Edit 
200 Units per File 



Price $225.00 

Real Estate Analysis Modules: 

(Cassette or Disk) 

1) Home Purchase Analysis 

2) Tax Deterred Exchange 

3) Construction Cost/Prolit 

4 1 Incoma Properly Cashllow 

5| APR Loan Analysis 

6) Property Sales Analysis 

7) Loan Amortization 



ft" 



$35 Per Module 



|w£35 

I ^^6W Al Computer Storvt Evarywtor* 

R ^ Or Ordir COD Dlrtct 

I of twar© IC " R " ia,n " Add e% s "** Ta " 



TM 



1213)3729419 



ealty llompany 



Dept. M 1116 "F" 8th St., Manhattan Beach CA 90266 



DISASSEMBLED HANDBOOK 
FOR TRS-80 

VOLUME 3— $18. POSTPAID 

Chapter 1 : Writing Disassembler Programs 
Chapter 2: High Speed Disassemblers 
Chapter 3: Spooling Theory & Practice 
Chapter 4: Port Encoders & Decoders 
Chapter 5: Writing Interrupt Programs 
Chapter 6: D/A Converters & Construction 
Chapter 7: A/D Converters & Construction 
Chapter 8: High Speed Morse Code Program 
Chapter 9: Comra. Bulletin Board Systems 
Chapter 10: Radio Teletype From A to Z 
Chapter 1 1 ; Self-Programmed Learning Q/A 
Appendix A: Volumes 1-2-3 combined index 
Appendix B: Vols. 1-2-3 Pgms. on Disk $30 

VOLUME I— $10. POSTPAID 

6th printing 

VOLUME 2— $15. POSTPAID 

4th printing 
—GERMAN & FRENCH LANGUAGE EDITIONS— 

RICHCRAFT ENGINEERING LTD. 

Drawer 1065, Wahmeda Industrial Park 
Chautauqua, New York 14722 
phone (716) 753-2654 for COD orders 

(US funds: add $4. 50 overseas airmail) i* 276 



= STOCKMARKET= 

INVESTMENTS MADE 

EASIER 

Fulfill your dream to invest in the stockmarket. 

Invest as little as $1000, or as little as $100 per month. 

The potential is there to double that investment within 

12. 24. or 36 months. The stock selection and the buy/sell 

decisions are the key. 

We have the financial management computer programs 

for you. 

Through the use of your TRS-80" Level II home computer 

and the COMPUVEST programs, you can determine the 

stocks in which to invest and when to buy and sell. 

The Graham/Rea stock selection criteria program- 10 

criteria for a stock buy decision $10.00 

COMPUVEST Lump Sum Investment Program — Lump 
sum investment approach for the small stock investor 

$12.50 

COMPUVEST Monthly Investment Program — Monthly 
investment approach for the small stock investor— $12.50 

All Three Programs $30.00 

For information or to order cassette tape programs write: 

COMPUVEST, INC. 
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6725 Fishburg Road 

Dayton, Ohio 45424 

'A Registered Trademark of Radio Shack. 



LEARNING TOOLS 

■ Spelling Primer 

■ Vocabulary Builder 

■ Crossword Generator 

EACH PROGRAM FEATURES: 

• HUNDREDS OF WORDS 

• GRAPHIC SCORING MONITOR 

• PROGRAMMABLE SPEED CONTROL 

Each Program Available in 4 Levels: 

Grades 1-2; 3-4; 5-6; 7-8. 
(Specify Grade) 

16K - LEVEL II 

$ 6.95 ©ach — any two for $ 9.95 

DYNATEK INFO. SYSTEMS 

586 CONCORD AVE. 
WILLISTON PARK, N.Y. 11596 

• 253 -'Quality Software at Affordable Prices" 



Distributor o/ Compute 



Check or 
Money Order 




Box 1000 sheets ol /i"x 1 1" (sheet size S'/Vxll") tractor 
leed #15 lb. economy computer paper.. $1 1 .95 + $2 shipping 

Box 750 sheets 9'/j "x 11 " (sheet size 8'/j "x 1 1 ") tractor feed 
#20 lb. economy #2 Bond computer paper . . .$11.95 

+ S 2 shipping 

Box 750 sheets 9'/i "x 1 1 " (sheet size 8'/? "x 1 1 ") troctor leed 
#20 lb. High Quality #1 Bond with Watermark computer 
pape r. . .$14.95 + $2 shipping 

Box 1000 1S/16"x3'/j" 2 across tractor leed 8"comer 
address labels. . $8.95 + $1.50 shipping (One across 
ovailoble, specify which) 

Box 700 6"x4" continuous postcard stock tractor teed 
Blon k white, yellow, green (spealy).. $ 13.95 + $2 shipping 

Box 300 sets (900 sheets) 9Vi "x 1 1 " (sheet size 8VJ "x 1 1 ") 
3 port carbon copy style tractor leed paper . . . .$13.95 
+ $2 shipping (2 part also available . . .400 sets 

. . .$13.95 + $2 shipping) 

Catalog available check) s) reader service number 



"240 Computer Forms* (616)429-7922 
5588 Caribou, Stevensville, Ml 49127 



STEPWISE 

MULTIPLE LINEAR REGRESSION 

Fast Compiled Machine Language 
Comprehensive Data Base Manager 

* Transformations 

* Lags 

Designate Any Variable As Dependent 

At Run Time 
Descriptive Statistics 
Correlation Matrix 
ANOVA Table 

Partial Correlation Coefficients Each Step 
Future Releases Are Upward Compatible 
And Include: Factor Analysis, Time Series, 
Linear Programming 

For 2 Disk, 48K TRS-80®, With Line Printer 
Write For Information On Other System 

Configurations 
Price $89.00 - Documentation Only $10.00 
Visa And Master Charge Accepted 



Barstrann Corporation — Dept. A 
P.O. Box 265 Mid City Station 
Dayton, Ohio 45402 
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LISP 



Interpreter for the TRS-80* 

See the August, '79 issue of 
byte to find how easy it is to 

USE LISP. 

■ Includes more than 30 
functions 8e predicates. 

■ Coded for high-speed 
operation. 

■ Full arithmetic capability. 

■ User's Manual. 

■ Supplied on cassette for 1 6K- 

64K LEVEL II. 

Send $50 in check or money order 
TO: .259 

Cyber Innovations 

World Trade Center 

P. O. Box 58657 
Dallas, Texas 75258 

•Trademark of Tandy Corporation 



.See List of Advertisers on page 306 
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STEREO HI-FI OWNERS 

MUSIC COLLECTORS 

RADIO PROGRAM MANAGERS 



Alst A,,,:l,,i,l, tor MODEL l/lll 
l-PAKOF BEST KITS 






IIORHYTNM CHARTS 



THE BIG BOARD ■ a stock market (ante 







CZAPK MOUNTAIN ^308 

SOFTWARE 



FULL SCREEN TEXT EDITORS 
* FOR THE TRS-80* 



N n there are products that will allow you to program 
I *e the professionals do. If you enjoy the sophistica- 
tion of writing your own programs then you are in for a 
real ;reat when you use our editors. Features include: 
full screen display; complete control over scrolling 
and cursor movement; character change, insert, de- 
lete; insert, delete, copy, move lines or blocks of lines; 
renumber; global find and change. 
BASIC editor runs from tape or disk. Once loaded, a 
single command invokes our extended edit mode, with 
powers and abilities far beyond those of conventional 
editing! Advanced features include user definable 
macro keys ana the powerful program restructuring 
tool SELECTIVE RENUMBER. 

EDTASM e itors are compatible with EDTASM source 
tape files. Disk version includes patch to run Radio 
Shack" EDTASM from disk! All products are shipped 
on tape for level 2 machines and include a comprehen- 
sive ovner's manual. 

The Text Editor for BASIC Order #1010-20 24.95 

The Text Editors for EDTASM Source Files: 

Tape Version Order #1010-30 24.95 

Disk Version (Req. 32K and up) Order #1010-31 . 34.95 

New: XBUG self-relocating debugging tool with 
multi-speed single step facility. 

Order #1020-10 $19.95 

Send cneck or money order (no CODs) to: r"""* - ! 
If ordering by credit card, please include all L_*_J 
information on credit card. a^amm 

TO 

HI I COMPUTER 
I1LI APPLICATIONS 
C(/ TM UNLIMITED tm „io7 

Post Ollice Box 214, Depl. 181 Rye, New York 10580 



N. Y. State residents please add applicable sales tax. 
Please allow 4-6 weeks delivery. Dealer inquiries invited. 
'Radio Shack and TRS-80 are registered trademarks of 
^_ The Tandy Corp. 



fi* 



Welcome to 



THE RACES 




THEY'RE OFF 



I 



Eight horses surge down the track, straining for 
the lead, with your horse struggling in the pack. 

They round the turn and head into the stretch. 
Your horse shoots from behind, catching the lead 
horse. They cross the finish line. 

The Win, Place, and Show horse results are 
printed on the screen, along with each bettor's 
race winnings and total daily winnings. 

You collect your winnings and decide if you want 
just to watch, or bet on the next race. You study 
the odds, place your bets, and select the track 
speed — fast (dry), average, or slow (wet). 

The horses are at the starting gate, jumping and 
snorting. You raise the gate, and the next race is 
underway. 

Each horse gallops forward randomly. Spectators 
squirm and shout as they urge their horses to win. 

You have all the track action and thrills. Plenty of 
winners — and losers! Now you can use your com- 
puter to find out what it takes to win at the track. 
Good Luck! 



Requires 16K 
Tape— $9.95 
Disk— $14.95 



< 



Send check, or charge it to Visa 
or MC. (Frint charge number and 
expiration date— Phone 313-627- 
2877 for charge if you wish) 

WE GIVE IMMEDIATE SERVICE! 

ECHO PRODUCTS INC., 335 MILL, ORTONVILLE, 

MICH. 48462 

Dealer Inquires Invited 
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TRS-80™ 
OWNERS! 

Prepare Tax Returns for 
friends and relatives! 

New easy to use Tax Program 
developed by J. D. Gramm 



This 1040 Program 
(Individual Income Tax Return) 

has the following features 
Adds and enters all information 
on W-2 forms 

Computes and enters excess FICA 
Computes tax 
Automatically prepares 
information for TC 

5 Automatically computes and 
enters Earned Income Credit 

6 Prepares Itemized Deductions 

7 Prepares Income Averaging 

8 Prints Form 1040 

9 Tax information and back up 
from J. D. Gramm 

10 Tractor feed forms and schedules 
included in price 
Equipment Needed Model 1, 2 or 
3, 48K 1 disc Printer optional 

Price 159 95 „«i 



J.D. GRAMM 

Phone: (305) 822-7341 
6846 NW 169 St., Miami, Fla. 33015 



BUSINESS USERS! 

SAVE TIME & MONEY BY 

CONTROLLING YOUR LONG 

DISTANCE TELEPHONE COSTS 



LONG DISTANCE ANALYZER will 

• Sort your billed calls 

• Identify each party called (from your known 
list) or print locations of unrecognized 
numbers 

• Total the cost of calls to each number, to all 
numbers, and to all unrecognized numbers 

• Analyze calls and tolls by area code, state, 
and WATS zone 

• Print an alphabetical directory of recognized 
numbers 

• Save verification time 

• Create cost-consciousness 

• Facilitate cost accounting and client billing 

• Isolate personal calls and billing errors 

• Reveal inefficient use patterns 

• Help you perform WATS feasibility studies 

Requires Model I, II, or III TRS-80*, Level II, 16K, 
and 1 disk. Printer is optional. No connection to 
phone system. 



Model 


Cassette 


TRSDOS* disk 


1 


$95 


$135 


II 


N/A 


$155 


III 


$95 


$135 



Brochure on. request. 

Send model number and check or money order to: 

Golden Braid Software . TDO or , ^L, 

P n Rnv 9Q-M „mi TRS-80 and TRSDOS 

R O. BOX 2934 .-281 are trademarks 

Sarasota, Florida 33578 of Tandy corporation. 



QUALITY SOFTWARE 
for the 



TRS-80™ MICROCOMPUTER 



KEYWORD Indexing System 

A series of programs that will create a data file on disc, build 
an index of all occurrences of "Keywords" in the text of the 
data file and allow inquiries or searches into the file using the 
indexed keywords. The system features: 

• flexible record lengths with location printers 

• deletion of non keywords from index by system 

• "and" "or" "not" logic for inquries 

• interface for user written inquiries 

KEYWORD INDEX— 2 disk 32K system $49.95 

1 disk 32K system $39.95 

SORTS for HOME and BUSINESS 

No computer user should be without a versatile, easy to use sort 
program. The Northeast Microware in memory sort programs 
are written in Level II BASIC and have the following features: 

• Sort ALPHA or NUMERIC data 

• Sort on up to 5 fields simultaneously 

• In ascending or descending sequence 

• Supports kb. video or tape I/O 

• Supports seq. disk and printer I/O (SORT I ID) 

• Supports user I/O routines 

• User exits (SORT III) only) 

SORT II— 16K Level in memory sort $19.95 

SORT IID— 32K DOS in memory sort $29.95 

FOR the SERIOUS GAMBLER 
BLACKJACK SIMULATOR. Allows you to simulate the 
playing of thousands of hands of BJ and analyze the results 
on tape in Level II BASIC. $19.95 

Manual for all programs available for $3.00 ea. 
(price deductible on purchase of program) 
"TRS-80 is a registered trademark of TANDY CORP " 

(gl^rtheastcTVlICROWARg) 

BOX 2133, ,W4 
BOSTON, MA. 02106 
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10K bytes more memory, run 
under BASIC*! instead of Disk 
BASIC. Load and merge the pro- 
grams as shown, then give a 
CMD'T and CSAVE to tape. Go 
back to DOS and boot up under 



BASIC2, CLOAD, then run 
65000. 

But what if I don't have a 
disk? Follow these instructions: 

Type in VARDOC2 and 

CSAVE it to tape. 



Program Listing 1. Variable Documentation Program 

05 • VARIABLE DOCUMENTATION PROGRAM 



65010 ' LOAD TARGET PROGRAM, MERGE THIS PROGRAM THEN RU 

N 65000 
65015 CLEAR 200 : DEFINT A,L,M : CLS : INPUT"DO YOU WIS 

H HARD COPY (Y/N)";A$ : IF A$="Y" THEN P=l ELSE P= 


65020 INPUT-NAME OF TARGET PROGRAM" ;A$ : CLS : PRINT "V 

ARIABLES AND REFERENCES FOR , ";A$;"'" : A2=75 : A3 

=60 : A4=100 'A$ -A2 A-A3 M6.L-A4 
65025 IF P=l LPRINT-VARIABLES AND REFERENCES FOR '";A$; 

"'" : LPRINT CHR$(138) 
65030 DIM A(A2+2,A3) ,A$(A2+2) ,L(A4+2) ,M(A4+2) : A1=0 : 

A$(l)="l" : M(l)=32767 : M1=0 : SW=1 : U=PEEK(1654 

8)+PEEK(16549)*256 : GOTO 65045 
65035 IF U>32767 THEN F=-l* (U-65535) ELSE F=U 
65040 T=PEEK(F) : U=U+1 : PRINT@ 128, "MEMORY ADDRESS =" 

;U;" "; : RETURN 
65045 GOSUB 65035 : D=T : GOSUB 65035 : D=T*256+D : GOS 

UB 65035 : E=T : GOSUB 65035 : E=T*256+E : IF E>32 

766 THEN 65155 ELSE PRINT@ 64, "WORKING ON LINE #"; 

E; 
65050 GOSUB 65035 : IF T=32 THEN 65050 

65055 IF T=0 OR T=147 OR T=251 THEN U=D : GOTO 65045 
65060 IF T=34 THEN SW=-SW 
65065 IF SW<0 GOSUB 65035 : GOTO 65060 
65070 IF T=141 OR T=145 OR T=202 THEN C$="" : GOTO 6513 


65075 IF T<65 OR T>90 THEN 65050 ELSE C$="" 
65080 IF (T>47 AND T<58) OR (T>64 AND T<91) OR T=33 OR 

T=35 OR T=36 OR T=37 THEN C$=C$+CHR$ (T) : GOSUB 65 

035 : GOTO 65080 
65085 IF T=40 THEN CS=C$+"(*) n 
65090 U=U-1 : A1=A1+1 : IF A1>A2 THEN A$="A$" : GOTO 65 

210 
65095 FOR J=l TO Al : IF C$=A$(J) THEN 65115 ELSE IF C$ 

>A$(J) THEN 65125 
65100 PRINT@ 256, "SORTING ARRAYS"; : FOR R=A1+1 TO J ST 

EP-1 : A$(R+1)=A$(R) : NEXT : A$(J)=C$ 
65105 FOR R=A1+1 TO J STEP-1 : FOR S=0 TO A3 : A(R+1,S) 

=A(R,S) : NEXT 
65110 NEXT : A(J,0)=E : FOR R=l TO A3 : A(J,R)=0 : NEXT 
: PRINT@ 256," "; : J=100 : GOTO 651 

25 
65115 FOR R=0 TO A3 : IF A(J,R)=0 OR A(J,R)=E THEN A(J, 

R)=E : R=A3+10 : J=A2+2 
65120 NEXT : Al=Al-l : IF ROA3+11 THEN A$="A" : GOTO 6 

5210 
65125 NEXT : PRINT@ 192, "NUMBER OF VARIABLES SO FAR ="; 

Al? : GOTO 65050 
65130 GOSUB 65035 : IF T=32 THEN 65130 ELSE IF T<48 OR 

T>57 THEN RE=VAL(C$) : U=U-1 : GOTO 65140 
65135 C$=C$+CHR$(T) : GOTO 65130 
65140 M1=M1+1 : IF M1>A4 THEN A$="L&M" : GOTO 65210 ELS 

E IF C$="" THEN M1=M1-1 : GOTO 65050 
65145 FOR J=l TO Ml : IF RE<=M(J) AND RE>M(J-1) THEN FO 

R Q=M1+1 TO J STEP-1 : M(Q+1)=M(Q) : L(Q+1)=L(Q) : 
NEXT : M(J)=RE : L(J)=E : J=A4 
65150 NEXT : GOTO 65050 
65155 CLS : PRINT"VAR" , "USED IN LINES" : IF P=l LPRINT" 

VAR","USED IN LINES" 
65160 FOR R=l TO Al : LE=0 : PRINT" ";A$(R) r : IF P=l L 

PRINT " ";A$(R) , 
65165 FOR S=0 TO A3 : IF A(R,S)=0 THEN S=A3 : PRINT : I 

F POl THEN 65175 ELSE LPRINT CHR$(13) : GOTO 6517 

65170 GOSUB 65215 : PRINT A(R,S); : IF P=l GOSUB 65220 

: LPRINT A(R,S) ; 
6517 5 NEXT : NEXT : PRINT : IF P=l LPRINT CHR$(138) 
65180 PRINTLINE #", "REFERENCED BY"; : IF P=l LPRINT"LI 

NE #", "REFERENCED BY" 
65185 FOR R=l TO Ml : LE=0 : IF M(R)OM(R-l) PRINT : IF 

P=l LPRINT CHR$(13) 
65190 IF M(R)=32767 PRINT "NONE" : END 
65195 IF M(R)OM(R-l) PRINT M(R), : IF P=l LPRINT M(R), 

65200 IF L(R)OL(R-l) OR M(R)OM(R-l) GOSUB 65215 : PRI 
NT L(R); : IF P=l THEN LE=LE+LEN (STR$ (L(R) ) ) : IF 
LE>45 THEN LE=0 : LPRINT CHR$ (13) ; "", : LPRINT L(R 
) ; ELSE LPRINT L(R) ; 

65205 NEXT : END 

65210 PRINTS 384, "SORRY ARRAY '";A$;"' IS FULL" : END 

65215 PP=PEEK(16416)+PEEK(16417)*256 : IF PP-15359-INT ( 
(PP-15359)/64)*64>57 THEN PRINT : PRINT, : RETURN 
ELSE RETURN 

65220 LE=LE+LEN(STR$(A(R,S))) : IF LE>45 THEN LE=0 : LP 
RINT CHR$(13);"", : RETURN ELSE RETURN 



CLOAD the target program. 
PEEK locations 16548, 16549 
and write them down. 
PEEK locations 16633 and 
16634. This is the end of pro- 
gram pointer, plus two. Two 
must be subtracted from the 
left hand number, if the num- 
ber is one or zero. 256 can be 
borrowed from the right hand 
number. Example 1 should 
make all this clear. 
POKE the calculated number 
into locations 16548 and 
16549. BASIC will now load 
the next program behind the 
first program. 



CLOAD VARDOC2. If a listing 
is made now, the target pro- 
gram will seem to be lost. This 
is a good time to make sure 
the VARDOC2 program got 
loaded correctly. If not, 
CLOAD it again. 
POKE locations 16548 and 
16549 with the numbers from 
the first PEEK. Now list the 
program to make sure both 
programs made it through all 
this. 

If all goes well, a listing 
should show the target program 
followed by the VARDOC2 pro- 
gram. ■ 



65000-65030 


Housekeeping 


65035-65040 


Peek subroutine 


65045-65050 


Get BASIC line number and memory address of start of next 




BASIC line. 


65055-65065 


Do I have an end of line, remark or quotes? 


65070 


Do I have a IF THEN, GOTO or GOSUB? 


65075 


Do I have a letter? 


65080-65090 


If letter build variable string AS. 


65095-65125 


Insert string AS and line number into array sort if necessary. 


65130-65135 


Assemble line number after GOTOs etc. 


65140-65150 


Insert line numbers into arrays L&M. 


65155-65175 


Print variables and line numbers. 


65180-65205 


Print references for GOTOs etc. 


65210-65220 


Subroutine to get neat display. 




Program Breakdown 



!!NOW AVAILABLE!! 

I NDEX 

Sequential 

Access 

Method 

• Get and Put Records to Disk File by "KEY" 

• Read File in Key Sequence Without Sorting 

• Delete Records Without Recopying File 

• Add Records to Disk Files in Any Sequence 

• Variable Key Length From 1 to 50 Characters 

• Machine Language or Basic Subroutines. 

BUSINESS APPLICATION ADVANTAGES 

- Improved Disk Utilization 

- Easier Program Development 

- Improved Operating Characteristics 

- Reduce or Eliminate Sorting 

- Improved Performance 

ISAM SUBROUTINES Documentation 

ISAM UTILITIES On Diskette $90.00 

- PLUS - Free Mailing List Sample Application 

Add 6% Sales Tax for California Orders 



SOFTWARE FROM: 
- or - Telephone Order Line 



TRS-60 MODEL I, II, & III 

Johnson Associates 

P.O. Box1402M ^85 For Bank Card Sales 

Redding, C A 96001 (91 6) 221 -0740 

WRITE FOR FREE CATALOG 



sSee List of Advertisers on page 306 



80 Microcomputing, May 1981 • 291 



TUTORIAL 



A mean program. 



On the Average 



Len Gorney 
Box 91 RD 5 
Clarks Summit, PA 18411 



What does the word average 
mean? The arithmetic 
mean is not the only way by 
which average values can be ex- 
pressed. The following tutorial 
concerns different ways an aver- 
age value may be expressed, and 
includes a Program Listing, 
which will calculate these 
values with a TRS-80 Level II. 
Throw away your calculator, 
load the program, and enter the 
average world. 

The Mean 

The arithmetic mean is the 
method most often used to cal- 
culate the average value of a list 
of numbers. The following 
numbers represent temperature 
readings taken over one week: 
54.0, 38.0, 36.5, 39.5, 31.5, 31.5, 
10.5. Add these values to obtain 
the sum 241.5 and divide by 7, 
the number of readings. The 
quotient, 34.5, becomes the ar- 
ithmetic mean. This is the me- 
thod of determining the average 
most often meant when we see 
the word average in print. What 
it tells us is that, given our list of 
numbers, the value 34.5 would 
act as the balance point of the 
list. 

The Median 

Another value which can de- 
scribe the average of our list of 
numbers is called the median, 
which gives us the middle value. 



If we sort the list into ascending 
order, we can easily pick out the 
number in the center of the list. 
In our example, 36.5 is the value 
at the center of sorted numbers! 
10.5, 31.5, 31.5, 36.5, 38.0, 39.5, 
54.0. The median is the number 
which has 50 percent of the 
numbers above it and 50 percent 
below it. 

Since our list contained an 
odd amount of numbers, it was 
easy to pick out the middle val- 
ue. However, when an even 
amount of numbers are in the 
list, there is no middle value to 
choose by counting: there are 
two middle values. It is neces- 
sary to take these middle values 
and calculate their arithmetic 
mean. Let us take the following 
list: 10.5, 31.5, 31.5, 36.5, 38.0, 
39.5, 54.0, and 55.0. The middle 
values, 36.5 and 38.0, are added 
and the sum, 74.5, is divided by 
two, in order to arrive at the 
arithmetic mean of these two 
values: 37.25. 

The Midrange 

The midrange value is an- 
other measure of the average 
value of a number list. Take the 
arithmetic mean of the largest 
and the smallest values in the 
list. In our example, the largest 
number is 54.0 and the smallest 
is 10.5, which, when added, 
gives us the sum of 64.5. Divid- 
ing by two gives us a quotient of 
32.25, the midrange of our list. 
Similar averages can be calcu- 
lated for the midrange by disre- 
garding the largest and the 
smallest values in the original 



list, and taking the arithmetic used to score athletic events to 
mean of the next largest and the smooth out biases introduced 
next smallest. This method is by the judges. If the amount of 



1000 REM AVERAGES 

LEN GORNEY; BOX 91 R.D. 5, CLARKS SSUMMIT PA 
1010 DEFINT B, J, L, N, T: 
DEFSNG H, V: 
DIM V(1000), VM(1000) 
1020 CLS: 

INPUT"ENTER NUMBER OF ITEMS IN SAMPLE ";N 
1030 CLS: 

PRINT, "ENTER ITEMS" 
1040 FOR J = 1 TO N: 

PRINT" ITEM ";J;: 
INPUT V(J) : 
NEXT J 
1050 CLS: 

PR I NT "SORTING ITEMS NOW ..." 
1060 REM BUBBLE SORT 
107 FOR J = 1 TO N-l 
1080 B = N 
1090 IF V(B) < V(B-l) THEN H = V(B) : 

V(B) = V(B-l) : 
V(B-l) = H 
1100 B = B - 1: 

IF B > J THEN 1090 
1110 NEXT J 
1120 CLS: 

PRINT" MEAN = "; : 
M = 
1130 FOR J = 1 TO N: 
M = M + V(J) : 
NEXT J: 
M = M / N 
1140 PRINT, M 
1150 PRINT" MEDIAN = " ; : 

IF (INT(N/2)*2) = N THEN M = (V(N/2) +V( (N/2) +1) )/2 
ELSE M = V((N/2)+l) 
1160 PRINT, M 
117 PRINT"MIDRANGE = ";: 

M = (V(N)+V(l))/2 
1180 PRINT, M 

1190 PRINT" MODE = ";: 
FOR J = 1 TO N: 

VM(J) = 1: 
NEXT J 
1200 JJ = 1 
1210 FOR J = 1 TO N-l: 

IF V(J) = V(J+1) THEN VM(JJ) = VM(JJ) + 1 
ELSE JJ = J + 1 
1220 NEXT J 
1230 M = 1 
1240 FOR J = 1 TO N 
1250 IF VM(J) = 1 THEN 1260 

ELSE IF M > VM(J) THEN 1260 

ELSE M = VM(J) 
1260 NEXT J 

1270 IF M = 1 THEN PRINT"VALUE DOES NOT OCCUR": GOTO 1310 
1280 FOR J i 1 TON 

1290 IF VM(J) = M THEN PRINT, V(J) 
1300 NEXT J 
1310 END 

Program Listing 1 
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items in a list is large enough, 
the values should not fluctuate 
as widely as in a list which has 
few values. 

The Mode 

Our last average value is 
called the mode. This value tells 
us what value occurs most often 
in the list. 

Although this average value is 
not as useful as the mean and 
median values, the mode does il- 
lustrate any bunching about an 
individual value in a list of 
numbers. To discover the mode 
of a list of numbers, find the 
value which appears most often. 
For example, the modal value of 
our list of numbers is 31 .5, which 
appears twice in our list. When 
more than one modal value ap- 
pears in a list, it is said to be 
bimodal or trimodal or n-modal, 
depending on how many modal 
values appear. 

In addition to the usual de- 
scription of an average, we have 
the median, midrange, and 
mode. Each value represents a 
different method of calculating 



a value. The value you choose 
depends on what message you 
want to convey about the list of 
numbers. 

The Average Program 

The program listed in this arti- 
cle can be used by a TRS-80 
Level II system user who wants 
to find values for the different 
types of averages. In addition to 
values for mean, median, mid- 
range and mode, the program 
will sort the input list of num- 
bers into ascending order. This 
is necessary to save program- 
ming steps when the midrange 
and median values are calcu- 
lated. 

Input is simply the number of 
items in your list and the values 
in it. The program quickly calcu- 
lates the mean value, then sorts 
the list into ascending order. 
Depending on how many items 
you input, the program may take 
awhile to output the median 
value. Midrange and mode will 
be output to the screen. To input 
another list, simply type RUN 
after the READY is displayed.B 



AUTHORIZED TRS 80® DEALER #R491 



$670,00 MOn^ v e 



*A(rf ^-..i Keypad 
^ *o-1056 



MODEL II 

MODEL II, 64K 
26 - 4002 



$3500.00 



$855.00 

MODEL III 

MODEL III 16K RAM, 

MODEL III BASIC 

26-1062 



WE ACCEPT CHECK, MONEY ORDER, OR 
PHONE ORDERS WITH VISA OR MASTER 
CHARGE. SHIPPING COSTS WILL BE ADDED 
TO CHARGE ORDERS. DISK DRIVES, PRINT- 
ERS, PERIPHERALS, AND SOFTWARE - 
YOU NAME, WE'VE GOT IT. 
WRITE OR CALL FOR OUR COMPLETE 
PRICE LIST. 

C& S ELECTRONICS, LTD. 32 EAST MAIN ST. MILAN, MICH. 48160 
^145 (313)439-1508 (313)439-1400 




FULL FACTORY WARRANTY 
ON ALL ITEMS SOLD. 



C 4 S ELECTRONICS MART IS AN AUTHORIZED TRS 80" SALES CENTER STORE # R491 



EDflS 



EDAS is a sophisticated Editor 
and Assembler for the '80 Model 
I or Model III. All commands 
and SOURCE text can be enter- 
ed in upper or lower case. Direct 
assembly for memory or mul- 
tiple disk files by means of *GET 
assembler directives provides 
the capability of assembling 
huge source files with 30,000 
bytes of symbol table. Direct 
assembly to disk or memory for 
faster debugging operations. 
DOS functions DIR, KILL, and 
LIST are available from within 
EDAS. The Editor provides 
block move & global change 
withBASICsyntax editing. EDAS 
provides power with ease of 
use. $79 + $S&H. 



Diim 



DUTIL is a utility to examine, 
clear, initialize, move, and modify 
data in memory. Load, punch, 
verify SYSTEMtapes. Disk sector 
I/O. More! $20. 



CMDFIlE 



Nowyou can append two or more 
CMDfilesand/orSYSTEMtapes. 
Perform transfer to & from disk/ 
tape of SYSTEM/CMD modules 
with offset capabilities. $20. 




LDOS is the latest generation of sophisti- 
cated operating systems for the TRS-80 
computers. LDOS is completely docu- 
mented in a 252-page reference manual. 
Total support is provided from some of 
the most knowledgeable people in the 
industry. You owe it to yourself to inves- 
tigate this system. Call or write for details. 
LDOS is priced at $149 plus $4 S&H. 



LDL1S 5.0 



DSMBLR 



Complement your assembly language tools with this 
Z-80 disassembler which produces screen, printer, 
cassette, or disk file output- A 4W0 pass process 
provides SYMBOLS for 1 6-bit address a*d 8-bit rel- 
iQUates & ORG are generated, 
is &.t 
,rpge. $20 (DSMBLR 'I for non-disk u«e is §15} 

EDAS, CMDFILE, DSMBLR Specify 
$1 S&H + $.50 per program. 





add 4%. 



MISOSYS'fDept. MU2 ^221 

5904 Edglhill Drive 

Alexandria, Virginia 22303 

703-960-2998 MicroNET 70140,310 

Dealers Inquiry Invited 



DJSKML10 

Turn your Editor Assembler into 
a disk package. This 32K patch 
modifies EDTASM for DOS op- 
eration. Features? Add full disk 
I/O, block move, global change, 
printer pagination, sorted sym- 
bol table, print memory utiliza- 
tion, enhance DEFM expansion, 
protect memory, and recover 
after BOOT. From within the 
EDTASM you will have DIR, 
KILL, & FREE. Upgrade your 
EDTASM! $20. 

THE B00K 

THE BOOKs must be a part of 
your tools. Volume I gives you 
access to all math operations in 
your Level II ROM. A symbol 
table of the entire machine not- 
ing over 500 addresses is includ- 
ed. Volume II tells you every- 
thing you wanted to know about 
the Level II I/O — printer, key- 
board, video, and cassette rou- 
tines are fully explained. Each 
volume has a fully commented 
listing of all the routines dis- 
cussed. THE BOOKs will save 
you hours of assembler pro- 
gramming. Each volume is priced 
at $14.95 or buy both for $24.95. 
Add $1.50 S&H per book. 



sSee List ol Advertisers on page 306 
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GAME 



A game of serpentine strategy in offense and defense. 



BOA 



Jeff Myers 
210 Park Ave. 
Hillsboro, OH 45133 



Boa, a graphics game, evolved from my early experiments with 
simulated motion by sequentially setting and resetting pixels 
(the smallest graphics character). 

I combined this with what I'd learned about the keyboard's memo- 
ry to check inputs. 

Boa is a game for two and its goal is simple: to survive longer than 
your opponent. The two of you manipulate sets of four keys each (2, 
Q, W, A or I, J, K, M) in order to control your Boa "snakes" which grow 
and grow. 



The first player to run into a wall or either snake, loses. The winner 
is indicated by an asterisk on the scoreboard. 

Although it's simple, Boa offers the constant interplay of offense 
and defense that is characteristic of many good games, along with a 
chance to use a variety of game strategies. 

You can also play Boa alone. For this solitaire version I added an 
indicator to show the percent fullness of the screen at the game's 
end. The challenge is to operate both snakes at once, striving for the 
highest percentage score. 

In earlier versions I used single pixels rather than two pixel 
squares as fundamental units. In those, the horizontal movement is 
slower than the vertical movement, which adds an interesting facet 
to the game. Boa can easily be converted by altering the lines con- 
taining SET and RESET pairs. ■ 



******* 



******* 



BOA 
1 ' BY JEFF MYERS 210 PARK AVE HILLSBORO OH 451 

33 
5 CLEAR1000:DEFINTA-Z:PO=26:CZ=0:CP=1:CN=-1:KT=15010:KN 

=15009 : KF=15 004 :K0=15360:GOSUB90 
10 GOSUB90 0:GOSUB8000:GOSUB950:P=2*P0+6:Q=3*Q0+4:SET(P, 

Q) :SET(P+CP,Q) :R=2*R0-CP :S=3*S0+4 : SET (R, S) :SET(R-C 

P,S) :C=2 
12 P1=CP:Q1=CZ:R1=CN:S1=CZ 
100 "A INPUT 

120 IFPEEK(KF)AND4THENQ1=CN:P1=CZ:GOTO200 
130 IFPEEK(KF)AND2THENP1=CN:Q1=CZ:GOTO200 
140 IFPEEK(KF)AND128THENP1=CP:Q1=CZ:GOTO200 
150 IFPEEK (KN) AND2THENQ1=CP : P1=CZ 

200 P=P+P1+P1 : Q=Q+Q1 : IFPOINT (P,Q) ORPOINT (P+CP ,Q) THEN300 
210 SET(P,Q) :SET(P+CP,Q) :C=C+CP :GOTO500 
300 'B WINS 

310 BS=BS+CP:W$="B":GOTO 730 
500 'B INPUT 

520 IFPEEK(KT)AND2THEN R1=CZ : S1=CN:GOTO600 
530 IFPEEK (KT)AND4THENR1=CN:S1=CZ:GOTO600 
540 IFPEEK (KT) AND8THENRl=CP : S1=CZ :GOTO600 
550 IFPEEK (KT)AND32THENS1=CP:R1=CZ 
600 R=R+R1+R1:S=S+S1: IFPOINT (R,S) OR POINT (R-CP, S) THEN 7 

00 
610 SET(R,S) :SET(R-CP,S) : C=C+CP:GOTO100 
700 'A WINS 
710 AS=AS+CP:W$='*A" 
7 20 'END ROUTINE 



730 IFW$="A"THENP5=577 ELSE P5=641 

732 PRINT@P5,"*"; 

740 GOSUB950 

745 PRINT@769, "SCREEN"; 

7 50 PRINT@8 33, n ";:PRINTUSING"###";INT(100*C/253 0+.5) ;:P 

RINT"%"; 
752 PRINT@898,"FULL"; 
760 H$=INKEY$:IFH$="" THEN 760 ELSE IF ASC(H$)<>13 THEN 

760 
77 RESTORE :GOTO10 
900 'BOXES 
902 Z$=CHR$(179) 
905 A$(1)=CHR$(159)+Z$+CHR$(175) : A$ (2) =CHR$ (149) +Z$+CHR 

$(170) 
910 A$(3)=CHR$(181)+CHR$(191)+CHR$(186) : B$ (1) =CHR$ (151) 

+Z$+CHR$(175) 
915 B$(2)=CHR$(149)+Z$+CHR$(174) :B$ (3) =CHR$ (181) +ZS+CHR 

$(190) 
920 P0=11+RND(21) :Q0=1+RND(3) :R0=38+RND( 21) :S0=8+RND(3) 
925 U0=P0+64*Q0:L0=R0+64*S0 
930 CLS:FOR 1= TO 2: PRINT@U0+64*I, A$ (1+1) ; : PRINT@L0+6 

4*I,B$(I+1) ;: NEXT: RETURN 
950 'SCORE 

952 PRINT@513, "SCORE:"; 

954 PRINT@578,"A" ;AS; : PRINT@642, "B" ;BS; 
956 RETURN 
8000 'EDGE 
8010 FOR X0=K0 TO 15423:POKEX0,131:NEXT 

Program continues 



294 • 80 Microcomputing, May 1981 



8012 
8020 

8030 
8040 
8042 
8044 
8050 
8888 
8900 

8910 

8920 

8930 
9000 
9003 
9010 



9100 
9130 
9140 
9160 
9170 
9200 
9210 
9220 
9230 



9250 
9260 
9400 
9500 

9510 

9520 

9532 
9540 



FOR X0=16320TO16383:POKEX0, 176. -NEXT 

FORR=0TO15 : POKEK0+64*R, 191 : POKEK0+64*R+7 , 191 : POKEK 

0+64*R+63,191:NEXT 

FOR C=1T06:P0KE K0+C, 191 : POKEK0+960+C,191 :NEXT 

Z=K0+64:C9=0 

FOR N=1T06:Z=Z+1:READ Y:POKEZ, Y:NEXT 

C9=C9+1:IFC9<7 THEN Z=Z+58 :GOTO8042 

FOR Z=705 TO 710:PRINT@Z,CHR$(143) ;:NEXT 

RETURN 

DATA 14 9,136,140,140,140,162,181,17 8,17 9,17 9,17 9,1 

84 

DATA 151, 168, 188, 188, If 

84 

,188,188,1 



1,130,189,17 8,17 9,17 9,17 9,1 



DATA 15 9,161,188,188,180,13 9,14 9,16 8,1? 
28 

DATA 143,143,143,143,143,143 

' INSTR 
CLS:GOSUB9400:PRINT 

PRINT" TWO PLAYERS USE THE KEYS BELOW TO MANEUVER 
THEIR SNAKES AROUND THE SCREEN. THE FIRST PLAYER 

WHO RUNS INTO SOMETHING LOSES." 
PRINT: PRINTTAB( 8) "PLAYER A" ;TAB(46) "PLAYER b" 
U$=CHR$(91) :D$=CHR$(92) :L$=CHR$(93) :R$=CHR$(94) 
F$=L$+" Q KEY W "+R$:SS=L$+" J KEY K "+R$ 
PRINTTAB(12)U$;TAB(50)U$ 
PRINTTAB(12) "2" ;TAB(50 ) "I" 
PRINTTAB(6)F$;TAB(44)S$ 
PRINTTAB(12) "A" , -TAB (50) "M" 
PRINTTAB(12)D$;TAB(50)D$ 

PRINT" A SOLITAIRE VERSION CAN BE PLAYED BY OPERAT 
ING BOTH SNAKES (!) AND TRYING TO MAXIMIZE THE %A 
GE SCORE SHOWN AT THE LOWER LEFT. " 
PRINTTAB(19) "* HIT ANY KEY TO BEGIN *"; 
H$=INKEY$:IFH$=""THEN9260 ELSE RETURN 
W$=CHR$(191) :V$=CHR$(189) 

X$=W$+CHR$(143)+V$+" "+CHR$(190)+CHRS(143)+V$+" "+ 
CHR$(190)+CHR$(143)+V$ 
Y$=W$+CHR?(142)+V$+" "+W$+" "+W$+" "+W$+CHR$(176)+ 

Z$=W$+CHR$(188)+CHR$(159)+" n +CHR$ (175)+CHR$ (188) + 

CHR$(159)+" "+W$+" "+W$ 

PRINT@PO, X$ ; : PRINT0PO+64 , Y$ ; : PRINT@PO+128 , Z $ 

RETURN 
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THE BIGGEST NAME IN LITTLE COMPUTERS" 

TRS-80 Model H— Your Best Buy 
In a Business Microcomputer 




on 

TRS-80 computers, 
software and peripherals 

Similar values on all JJcWll© /tOCk merchandise 
CALL COLLECT: 

915-283-2920 

Van Horn Office Supply *™ 

701 W. Broadway -- P O Box 1060 
Van Horn, Texas 79855 

■ Radio /hack S 

DEALER 
THE NA TIONWIDE SUPERMARKET OF SOUND" 



3 ALTERNATIVE INTERFACES 
FOR THE TRS-80 



COMM-80 




Featured in May/June '80 BYTE 
< RS-232-C port (50-1 9.2K baud) 
software/hardware selectable 
•Centronics printer port 8-bit 
•connects to keyboard or E. I. 
• chain up to 16 units 
•use with E. I. for 2nd printer 
•includes terminal software 

$139.95 Special 

•only $17^5 complete 



ALL INTERFACES ARE RADIO SHACK 
HARDWARE AND SOFTWARE COM- 
PATIBLE AND CARRY A 60 DAY 
WARRANTEE INCLUDING PARTS AND 
LABOR. ALL UNITS INCLUDE USERS 
MANUAL, POWER SUPPLY & AUXILIARY 
TRS-BUS CONNECTOR FOR FUTURE 
EXPANSION. 



DISK-80 




Featured in March '81 BYTE 

• disk controller (4 drives) 

• hardware data separator 

• includes 16Kof RAM 
provision for additional 16K 

• buffered TRS-bus connector 

• real-time clock 

• printer port (optional) 

ASSEMBLED & TESTED 

with 16K of RAM $329.95 

Centronics Printer 

Port add $ 50.00 

with 32K RAM add. . . $ 50.00 

DISK-80 pc board $ 48.00 

Printer/Power Supply 
pc board $ 16.00 

Complete Kit with 16K 

RAM and Printer Port . $275.00 

Dealer inquiries invited. 

IRS-80 is trademark ol Tandy Corp 



CHATTERBOX 




Featured in Aug. '80 BYTE 

• 300 baud originate modem 

• Centronics printer port 8-bit 

• RS-232-C port (50-19.2K baud) 

• connects to keyboard or E. I. 

• received data automatically 
routed to printer ports 

• includes terminal software 
•only $279.95 complete 

Call 1-800-645-3479, in N.Y. 1-516-374-6793 
or write: The MicroMint Inc. 

917 Midway 
-■310 Woodmere, NY 11598 




vSee List ol Advertisers on page 306 
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REVIEW 



A look at the Shack's new peripheral 



Talk to Your TRS-80 



Art Welcher 

360 S. Wetherly Drive 

Beverly Hills, C A 90211 



The Radio Shack Speech Rec- 
ognition unit is now avail- 
able and, judging from the de- 
mand, will prove to be very popu- 
lar. It is called an Isolated Word- 
Speaker Trained system. 

You read into the micro- 
phone, which is provided with 
the Voxbox, the words you want 
to install into memory. The box 
has a limited vocabulary of 32 
words at one time. After reading 
these into memory, go into a 
"listen" mode via software pro- 
gramming. The computer then 
returns an index number for 
each word in its memory when- 
ever it hears it. It also returns an 
error code when it hears a word 
it doesn't have in its vocabulary 
or when it doesn't understand 
the word. 

From the return code index 
you may program the TRS-80 to 
do remarkable things! 

These numbers can control 
software just as if you entered 
data via keyboard. And almost 
any program that asks for key- 
board input may be changed to 
accept a vocal input through the 
microphone. 

Additions 

With the unit is a machine lan- 



guage driver program that must 
be read into high memory before 
the hardware functions. The 
SYSTEM command does this. 
Radio Shack has included three 
cassette tapes depending on 
whether you have 16K, 32K or 
48K (Voxbox needs a minimum 
of 16K). 

Also included are three dem- 
onstration programs. One is 
called VOXPLOT, and herein lies 
the key to the Speech Recogni- 
tion unit. By running VOXPLOT 
we see a graph of the four pa- 
rameters making up the identifi- 
cation pattern of each vocabu- 
lary word or phrase. 

The first graph is the energy 
(dBs) of the 900 to 2200 hertz 
range. The second is the energy 
of the 1 00 to 900 hertz range. The 
third graph is the dominant fre- 
quency in the 900 to 5000 hertz 
band, and the fourth curve is the 
dominant frequency in the 200 
to 900 hertz band. 

The graphs are generated by 
reading these four parameters 
at 10 millisecond intervals for 
the duration of the spoken word 
or phrase up to a length of 1.5 
seconds. If there is more than .1 
second of silence, the computer 
assumes that is the end of that 
word/phrase. 

These data are stored in a re- 
served position of the driver pro- 
gram which we played in with 
SYSTEM when we started. It 
now resides in high memory as 



part of the driver program. This 
operation is called the "train- 
ing" of the computer. 

When you enter a user pro- 
gram or one of the demo pro- 
grams, you first train the com- 
puter by storing in the driver pro- 
gram the vocabulary that must 
accompany the user program. 

It is not clear in the instruc- 
tions that this must be done 
each time after powerup. Also, if 
you run two different programs 
requiring different vocabulary, 
you must "re-train" the comput- 
er each time. This obviously just 
won't do! 

While the Driver Program is 
written for BASIC II, the instruc- 
tion book furnishes information 
for converting programs to Disk 
BASIC, but there are errors. Re- 
" member, in Disk BASIC all POKE 
addresses higher than 32767 be- 
come negative numbers. It be- 
comes much more convenient 
to use HEX numbers in the 
POKE,PEEK and DEFUSR(n) 
statements. Don't forget to use 
&H followed by the HEX number 
if you have more than a 16K ma- 
chine. 

The manual also includes a 
paragraph explaining in detail 
how to save the Driver Program 
on DISK using the TAPEDISK 
utility program. This works well. 
If you have NEWDOS plus, you 
may also save it on disk using 
LMOFFSET/CMD program and 
entering the correct addresses 



for your machine as shown un- 
der the TAPEDISK instruction in 
the manual. 

The program included will cre- 
ate and save on disk a driver pro- 
gram complete with a set vocab- 
ulary file. Each user program 
may now have its own Vocab 
file/driver program, which will 
automatically load with the user 
program if you have NEWDOS. 
This means that you may enter a 
pre-trained vocabulary and not 
be required to train each time 
you use a program. 

If you are using TRSDOS, you 
must make several changes in 
the routine for making and load- 
ing pre-trained vocabulary files. 

line 70 delete "3. ENTER VOCAB 4. SAVE 

VOCAB" 
line 80 delete 19000,19100 
line 19010 add a REM to the first of the line 
line 19110 add a REM to the first of the line 
line 20005 delete "CMD"LOAD VDR"" and 
add 
PRINT " VOXBOX SOFTWARE NOT 
LOADED. 

RETURN TO DOS BY CMD'S' 
LOAD VDR 
BASIC* " 

This is exactly what you must do 
each time. You must load the 
proper Vocab file/driver program 
before you load the Basic User 
program. If you have NEWDOS 
plus, the program will execute 
as shown, with nothing addi- 
tional. 

Vocab File 

To make and SAVE a Vocab 
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Storm Coming? 

How many times have your plans revolved around the weather? 
Now you can turn your TRS-80 into a weather forecaster, and stop 
getting caught in the rain!! 

CLIMATE-COMP was created by National Weather Service 
Meterologist, author and editor David Carman. 

THE WEATHER FORECASTER program will give you a short 
range forecast for your area. Enter a few simple measurements, 
easily obtained from newspapers or the U.S. Weather Service, to 
receive a short range forecast for the next six hours. 

THE WEATHER PLOT program is the result of years of carefully 
collected data. At your command are records, charts, graphs, facts 
and figures on local weather for every major city in the United 
States. Choose your area of the country and the data files will 
release a flood of information. Each city is listed with its monthly 
rainfall, monthly and yearly average temperature, average wind 
speed, snowfall, heating and cooling degree days, annual average 
sunshine, humidity and record-breaking temperatures. 

CLIMATE COMP for all the information you need 
to know what the weather has in store for you. 

Cassette based: system requires 16K, level II, 
Pkg. no. 0102R $19.95. Disk based: 
system requires 32K one disk drive, 
Pkg. no. 031 6RD $24.95. 




TO ORDER: Contact 

your local Instant Software 
dealer. If these programs 
are unavailable, call toll-free 
1-800-258-5473 



* A trademark of Tandy Corporation 



Instant Software 

PETERBOROUGH, N.H. 03458 




OMNITERM - Th« UltlmateTRS-80" Terminal Package is now available after nearly 2 
years inlths making. Createdasi a result of dissatisfaction with existing terminal 
programs, OMNITERM iis the Most Powerful and Flexible microcomputer intelligent 
terminalprpgram at any price - Bar None. Now the TR8-80™can communicate with 
and transfer files to almost any computer system Without writing special software. 
OMNITERM solves the problem of computer systems that send 32, 40, or 80 column 
lines to your 64 column TRS-80'" by Reformatting your screen for easy reading. 
OMNITERM can compensate for incompatibilities with 7 different franslatlontables, 
one to and from each device. This capability even allows OMNITERM to use codes 
suetvas EBCDIC, and translate them to the TBB-BO-a ASCII. With OMNITERM you can 
even Review text that has Scrolled Off the Screenl At any time you can examine and 
change any of OMNITERM's settings, because OMNITERM gives you a Full Status 
Display of all functions. It works with all ROM's and DOS s snce u uses o-: iy ^*ic ally 
documented calls" ■,., 

• Spooled Printer . . . ; >• True Break Key ? • Repeat Key 

• Smqle Key Auto Slonon • X/Y Cursor Control : • Lower Case Support 

• Prompted r le Output • Xon/XoH File Control • Can Echo characters 

• Sends Special Characters not on the TRS-80 key'jyarj 

• Ccn'<ol G causes 'Beep" sound and Graphic Bell lo tash on the sc-een 

• Accents all standard VIDEOTEX'" control codes 

• Can conttgure the UART for baud rates fron 50 19 ?00 haud 

• Ca^ send text Slowly for computers that wcr« at typist' sseed 

• Keeps continubfis count bf Parity, Framing, aid Overrun e-rors. 

• ..Saves a special file with proper settings for each different use . 
; • includes; 60 page manual, Text Editor, Hex Conversion Utilities 

Everyone whoseesOMNITERM is Amazed by its Power ana Ease of Use! Requires TRS-80 
With 32K memory, 1 disk. $95 (plus shiping if C.O.D.). Cai: tor shiprre.-.t within 24 ho-rs. 
Manual alone $15. refunded with purchase. Order by Visa. M/C or COD. Personal 
checks delay 2-3 weeks. Mass. residents add 5% sales tax. Dealer Inquiries Invited. 

[jindbergh Systems 

49B 8eechmont Street. Worcester. MA 01609 (617) 799-2217 ^ 391 



Combine accurate flight characteristics with the best in animation graphics 
and you'll have SubLOGIC's 

T80-FS1 Right Simulator 

forthe TRS-80 



SubLOGICsT80-FS1 is the smooth, realistic 
simulator that gives you a real-time, 3-D, 
out-of-the-cockpit view of flight. 

Thanks to fast animation and accurate repre- 
sentation of flight, the non-pilot can now learn 
basic flight control, including take-offs and 
landings! And experienced pilots will recog- 
nize how thoroughly they can explore the 
aircraft's characteristics. 

Once you've acquired flight proficiency, 
you can engage in the exciting British Ace 
3-D Aerial Battle Game included in the 
package. Destroy the enemy's fuel depot 
while evading enemy fighters. 

Computer and aviation experts call the 
T80-FS1 a marvel of modern technology. 
You'll simply call it fantastic! 



Special Features: 

• 3 frame-per-second flicker free 
animation 

• Maximum transfer keyboard input 

• Constant feedback cassette loader 

Hardware Requirements'. 

• Radio Shack TRS-80, Level 1 or 2 

• 16K memory 

• Nothing else! 



my m*%0 




Only 



See your dealer or order direct. For 
direct order, include $1.25 and specify 
UPS or first class mail. Illinois residents 
add 5% sales tax. Visa and Mastercard 
accepted. 




LOGIC 

Communications Corp. 
Box V, Savoy, I L 61874 
(217)359-8482 
Telex: 206995 ^150 



^See List of Advertisers on page 306 
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file, you must first load the Driv- 
er Program in DOS. Next, load 
and RUN VOCTRAIN after you 
are in Basic; then return to DOS 
by using CMD"S" and execute a 
DUMP as outlined in the TRS- 
DOS manual where the format is 
identical to the instuction of line 
19110 following CMD". That's 
why we REMed it instead of de- 
leting. It is always there to see 
when you go to DOS. 

By placing your own vocabu- 
lary in the DATA lines 20100 to 
201 40 you are ready to make and 
save a Vocab file. The line num- 
bers in VOCTRAIN are purpose- 
ly spaced out into complete sub 
sections so that it may be 
MERGEd more easily with your 



existing programs without ex- 
tensive line renumbering. 

The manual includes a small 
discussion on the driver pro- 
gram parameters, the most im- 
portant being the rejection pa- 
rameter. By POKEing a different 
number into the proper location 
you may loosen or tighten the fit 
of a spoken word to your Vocab 
file. By loosening the fit, you 
may have more mistakes of con- 
fusing two words, but less 
"WORD UNKNOWN". By tight- 
ening the fit you will have less 
errors of confusing one word 
with another in the file, but more 
"PLEASE REPEAT". 

It is a simple experiment, and 
when you find the proper num- 



ber for you, it should be POKEd 
before saving the Vocab file. It 
will then become a permanent 
part of the driver portion of that 
Vocab file. 

If you have ever been in need 
of a good answer to the ques- 
tion, "What will that computer 
do?" the VOXBOX may well pro- 
vide it. Besides the obvious 
demonstration programs (they 
work well and are guaranteed to 
boggle minds), it is not difficult 
to write a simple calculator pro- 
gram. Speak in a number, say 
the word "plus", then another 
number, say "equals" and see 
that the answer printed on the 
screen will cause the non-believ- 
er to start searching the floor for 



hidden buttons. 

Automatic Bartender 

I've also thought about an au- 
tomatic bartender. Say the word 
"Martini" and a solenoid valve is 
opened permitting a shot of 
booze to fall into a plastic tube 
at the bottom of which is a glass 
of ice. The word "dry" opens the 
Vermouth solenoid valve (fo: a 
short- time) into the same tube 
... not too difficult to attempt. 

Light control, television con- 
trol, door locks, drapery motors, 
movie screens, all are now in the 
realm of voice control, it may 
even be possible to do bookkeep- 
ing and write checks by voice! 
The applications are limitless.! 



Exact Replacement 

BCCOMPCO PRINTER RIBBONS 
or CARTRIDGE RELOADS 

(HEAVY INKING - LONGER LIFE) 
•TRS-80W CENTRONICS* PRI CE/PACK 

11 00/3 PACK 
11 00/3 PACK 
I 00/RELOAD 



LP I (26-1413) 0779700-704 
LP II (26-14131 »730 

LP III or V (26-14141 

Ill IYOU INSERT IN CARTRIDGE i 21 00/3 PACK 

LP IV (26-1413) *?37 11.00/3 PACK 

LPVI (26-1418) 900/RELOAD 

VI (YOU INSERT IN CARTRIDGE) 21.00/3 PACK 



NEW (or the DAISY WHEEL II 
Multi-Strike Carbon Film (26-1419) 21.00/3 PACK 
Multi-Str Carbon Film Reload 15 00/3 RELOADS 
New Long-Lite Fabric Reload 9 00/RELOAD 



SEND PRINTER NUMBERand/or 
OLD CARTRIDGES (for Reloads) 



MODEL II 8" GAME DISCS 

VOLUME I VOLUME 2 



Biorhythms. Trap Ugly. Bingo 

Concentration Towers. Blackjack 

Rip Cord, Yachi Sea Farkle. Chomp 

* 4 More $24.95 per volume +5 More 



SEND CHECK or MONEY ORDER TO 

BCCOMPCO -237 

800 South 17 • Box 246 • 417-932-4196 

Summersville, Mo. 65571 

'TRS-80 is a trademark of Radio Shack, a Tandy Corp 



RanDoh 

IT TAKES A THIEF $10 

This adventure program takes you through a 

house. Take all you want, but don't wake anyone 

up! 

RASPION ADVENTURE $10 

Visit this deserted city and find Syl and its 
treasures. 

PROPIX $10 

NFL prediction program. Picks upsets and 
points. Picked over 60% of winners in 1980! 

ETCH $9 

Create pictures on your video screen and save 

them to tape or disk. 

KEYSOUND $4 

Makes sound with every printed character. User 
can specify variable or fixed pitch and duration. 

All programs for 4k L2 except 
adventures, for 16k L2 or 32k 
Disk. Florida residents add 4% 
sales tax. Send check or money 
order to: RanDob, P.O. Box 1662, 
Boca Raton, FL 33432. ^283 



Condominium Hotel Reservation /Accounting System 
(MOD II) 

50-100 units and reservations lor 14 months on 2 drives, lull 
reservation display, automatic unit selection, accounting on 
a unit basis, monthly accounting reports for owners 

(Dealers wanted) $1500. U.S. 

Application Development Code tor MOD (TRSDOS) 

Set of gosubs lor lull screen I/O, file record field definition, 
record read/write, unpack/pack, change, delete, update, 
add, file/ record, print, date conversion, error handling. 
Reduces any application to gosub call and logic. 

$45.95 U.S. 

Disk Cleaner And Air Filter Kit MOD I & II 

Includes program, cleaner disk and filters for drive fans 
Cleans both heads and pressure pads (Disks should be 
cleaned every 50 hours to minimize wear.) 

$29.95 U.S. 

Cheque or Money order to: 

DIAXIS Computer Group Ltd ^234 

74 Cotton Dr , 

Port Credit. Ont Canada 

L5G 1Z9 

(416)274-6732 



$31.95 



16KRAM 
PLUS 

Kit includes 8 tested dynamic RAMs for memory expansion, 
instructions that make it very easy for anyone that's not experi- 
enced at handling, installing and testing RAMs to do the |0b. a 
RAM test program on cassette tape, etc Completely guaranteed 
for 90 days. Add $2 95 for DIP shunts needed to upgrade 4K 
mem only. 

32K RAM 
PLUS 

You get the 16K kit described above plus 8 additional RAMs. 



$57.95 



C-10 TAPES 



$.59 



You get computer quality, low noise C-10 blank cassettes with 
labels. Add 13 ea for plastic storage cassette box 



SOFTWARE: 



RAM MEMORY TEST 1.1 The best test to find "flakey" or 
defective RAM $2.95 

NEWBOOT 1.2 Press a single key to load and run your direc- 
tory choice. BASIC or CMD programs Assorted display lists all 
programs. Gran size, free disk space, etc Has printout com- 
mand, etc. for 1 or more drives $19.95 

MEDICAL FORMS 1.2 The text editor with prepared office 
forms as patient history, surgery, etc Saves the M0 much 
time. A much used program by the surgeon $49.95 

MasterCharge and Visa Cardholders 

Telephone (817) 246-3778 
or send check or money order to: 
Digital Data Supply 
P.O. Box 5061, Fort Worth. Texas 76108 --31 3 

(Order now. prices may change next month) 




if— n^ir^-jr-— if«ji-.^r»=n": 



Organize your slides, negatives or 
albums by code, location, category 
or title. A MUST FOR PHOTOGRAPHERS. 

L2 16K Tape $1995 Disk $2995 

Also available: 

DAILY APPOINTMENT CALENDAR 

HOME BARTENDER GUIDE 

LEARN GERMAN & others 

Write for free brochure 

TAPE-TRONICS ^ 

346 N. Western Ave. 
Los Angeles, Ca. 90004 



8PEED UP YOUR PR08RAH8 



can get 



(if priwnt) . 
- What htrdxtri 



: t i ons/documentat i on 
id software is aval 1 - 



The methods we use include assembler 
language, compile* basic and file op- 

The cost of conversion can range from 
•50 and up depending on program size 
and complexity. 



VALLEY FORGE, 
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I HOBBYWORLD 



F ELECTRONICS, INC 



^23 




19511 Business Center Dr. 
Northridge, CA 91324 

Dept. V5 
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M* 



Call Toll Free: 

(Outside Calif) 

(800) 423-5387 

California & 

Outside USA: 

(213) 886-9200 



c»* 






t** 



,80 



TAo 



A* 



V* 



*6* 



t>i* V 



$3* 



.9* 
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ASYLUM 



You are on a cot in a small room when sud- 
denly a handgrenade flies thru the window of 
your locked room. What you do next will save 
your life. 3-D perspective graphics. Wt. 4 oz 

Cat No. 3022 TRS-80 Mod 1 & 3. 16K, Disk $18.95 
Cat No. 3201 TRS-80 Mod 1 & 3, 16K, Cass $14.95 



LNW RESEARCH 

SYSTEM 
EXPANSION 

for the TRS-80 

Build this expansion board and Save! 
Build what you need to use now, then 
add the rest later. Wt. 12 oz 



Cat No. 2969 Bareboard & Manual 



$69.95 



HOW TO ORDER 

Order by phone or by mail. Pay by check, Visa, Mastercard or C.O.D. (add $1.40 
add'l for C.O.D.) We pay shipping when you mention this ad. 



Send for your FREE HOBBYWORLD Catalogue. We carry a wide variety of 
hardware and software for your TRS-80 Computer. 

Watch for our new name HW ELECTRONICS, appearing in our ads start- 
ing next month. We've changed our name because we believe computers 
are more than just a hobby. 



Just like the real McCoy... 

...except for the price and label 



Super Savings on Printers for the TRS-80 



w&$ 



u price 



Faster than any 
Radio Shack Printer 

CENTRONICS 704-11 

(same as 703-9) 

CENTRONICS PARALLEL 
INTERFACE 

Ideal f or TRS-80 

180 Characters Per Second, 

Bi-Directional, Logic Seeking, 

with Tractor 

Adjustable to 16" 

FORMER LIST PRICE $2975 

NOW 
ONLY 



$1695 




Disc Drive 
Values 

for TRS-80 

Your Choice 

5V4" Disk Drives 

Shugart, 
MPI-51,orTandon 

w/case & Power Supply 

$499 VALUE 
MMM PRICE ONLY 

$329 

Zfor$638 



CENTRONICS 730 
Same as R.S. Line Printer II 

LIST PRICE $795 (hrAA 

(add $7.50 for shipping) NQW QN LY C|>0^/b/ 



CENTRONICS 779-2 

same as R.S- Line Printer I w/tractor 

LIST PRICE $1350 

(Ship freight collect) 




CENTRONICS 737 

Same as R.S. Line Printer IV 

Featuring Correspondence Quality and Proportional Spacing 

LIST PRICE $995 

NOW ONLY 



$799 




Mi ni Micro Mart t Inc. 

1618 James Street, Syracuse NY 13203 (315)422-4467 TWX 710-541-0431 
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• 50 BASIC EXERCISES— BK1192— by J. P. Lamoitier. 
This book is structured around the idea that the best 
way to learn a language is through actual practice. It 
contains 50 completely explained exercises: state- 
ment and analysis of the problem, flowcharts, pro- 
grams and actual runs. Program subjects include 
mathematics, business, games, and operations re- 
search, and are presented in varying levels of diffi- 
culty. This format enables anyone to learn BASIC rap- 
idly, checking their progress at each step. $12.95* 

• THE BASIC HANDBOOK— BK1174— by David Lien. 
This book is unique. It is a virtual ENCYCLOPEDIA of 
BASIC. While not favoring one computer over another, 
it explains over 250 BASIC words, how to use them and 
alternate strategies. If a computer does not possess 
the capabilities of a needed or specified word, there 
are often ways to accomplish the same function by us- 
ing another word or combination of words. That's 
where the HANDBOOK comes in. It helps you get the 
most from your computer, be it a "bottom-of-the-line" 
micro or an oversized monster. $14.95.* 

• LEARNING LEVEL II— BK1 175— by David Lien. Writ- 
ten especially for the TRS-80, this book concentrates 
on Level II BASIC, exploring every important BASIC 
language capability. Updates are included for those 
who have studied the Level I User's Manual. Sections 
include: how to use the Editor, dual cassette opera- 
tion, printers and peripheral devices, and the conver- 
sion of Level I programs to Level II. $15.95.* 

• BASIC BASIC (2ND EDITION)— BK1026— by James 
S. Coan. This is a textbook which incorporates the 
learning of computer programming using the BASIC 
language with the teaching of mathematics. Over 100 
sample programs illustrate the techniques of the BA- 
SIC language and every section is followed by practi- 
cal problems. This second edition covers character 
string handling and the use of data files. $10.50.* 

• ADVANCED BASIC— BK1000— Applications, includ- 
ing strings and files, coordinate geometry, area, se- 
quences and series, simulation, graphing and games. 
$10.75" 

• SIXTY CHALLENGING PROBLEMS WITH BASIC 
SOLUTIONS (2nd Edition)— BK1073— by Donald 
Spencer, provides the serious student of BASIC pro- 
gramming with interesting problems and solutions. No 
knowledge of math above algebra required. Includes a 
number of game programs, as well as programs for 
financial interest, conversions and numeric manipula- 
tions. $6.95." 

• PROGRAMMING IN PASCAL-BK1140-by Peter 
Grogono. The computer programming language 
PASCAL was the first language to embody in a coher- 
ent way the concepts of structured programming, 
which has been defined by Edsger Dijkstra and C.A.R. 
Hoare. As such, it is a landmark in the development of 
programming languages. PASCAL was developed by 
Nikfaus Wirth in Zurich; it is derived from the language 
ALGOL 60 but is more powerful and easier to use. 
PASCAL is now widely accepted as a useful language 
that can be efficiently Implemented, and as an ex- 
cellent teaching tool. It does not assume knowledge of 
any other programming language; it is therefore suit- 
able for an introductory course. $12.95." 



• PASCAL— BK1188— by Paul M. Chirlian. Professor 
Chirlian's textbook combines a simple approach to the 
PASCAL language with comprehensive coverage on 
how a computer works, how to use a flowchart, work- 
ing from a terminal as well as batch operation and 
debugging. Special attention is paid to idiosyncrasies 
of the language and syntax flowcharts abound for the 
convenience of the experienced programmer. Well in- 
dexed. $12.95* 

• INTRODUCTION TO PASCAL— BK1 189— by Rodnay 
Zaks. A step-by-step introduction for anyone wanting 
to learn the language quickly and completely. Each 
concept is explained simply and in a logical order. All 
features of the language are presented in a clear, easy- 
to-understand format with exercises to test the reader 
at the end of each chapter. It describes both standard 
PASCAL and UCSD PASCAL, the most widely used 
dialect for small computers. No computer or program- 
ming experience is necessary. $14.95." 

—GAMES— 




• PAYROLL WITH COST ACCOUNTING-IN BASIC- 

BK1001— by L. Poole & M. Borchers, includes program 
listings with remarks, descriptions, discussions of the 
principle behind each program, file layouts, and a com- 
plete user's manual with step-by-step instructions, 
flowcharts, and simple reports and CRT displays. Pay- 
roll and cost accounting features include separate 
payrolls for up to 10 companies, time-tested interac- 
tive data entry, easy correction of data entry errors, job 
costing (labor of distribution), check printing with full 
deduction and pay detail, and 16 different printed re- 
ports, including W-2 and 941 (in CBASIC). $20.00." 

• SOME COMMON BASIC PROGRAMS— BK1053— 

published by Adam Osborne & Associates, Inc. Perfect 
for non-technical computerists requiring ready-to-use 
programs. Business programs, plus miscellaneous 
programs. Invaluable for the user who is not an ex- 
perienced programmer. All will operate in the stand- 
alone mode. $14.99 paperback. 

• PIMS: PERSONAL INFORMATION MANAGEMENT 

SYSTEM— BK1009— Learn how to unleash the power 
of a personal computer for your own benefit in this 
ready-to-use data-base management proqram. 
$11 95 * 

-MONEYMAKING— 



..eP^Wg* 
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• 40 COMPUTER GAMES— BK7381— Forty games in all 
in nine different categories. Games for large and small 
systems, and even a section on calculator games. Many 
versions of BASIC used and a wide variety of systems 
represented. A must for the serious computer games- 
man. $7.95* 

• BASIC COMPUTER GAMES-BK1074-Okay, so 
once you get your computer and are running in BASIC, 
then what? Then you need some programs in BASIC, 
that's what. This book has 101 games for you from very 
simple to real buggers. You get the games, a descrip- 
tion of the games, the listing to put in your computer 
and a sample run to show you how they work. Fun. Any 
one game will be worth more than the price of the book 
for the fun you and your family will have with it. $7.50.* 

• MORE BASIC COMPUTER GAMES-BK1182- 
edited by David H. Ahl. More fun in BASIC! 84 new 
games from the people who brought you BASIC Com- 
puter Games. Includes such favorites as Minotaur (bat- 
tle the mythical beast) and Eliza (unload your troubles 
on the doctor at bargain rates). Complete with game 
description, listing and sample run. $7.50." 
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• HOW TO MAKE MONEY WITH COMPUTERS- 

BK1003 — In 10 information-packed chapters, Jerry 
Felsen describes more than 30 computer-related, 
money-making, high profit, low capital investment op- 
portunities. $15.00." 

• HOW TO SELL ANYTHING TO ANYBODY- BK7306- 
According to The Guinness Book ol World Records, the 
author, Joe Girard, is "the world's greatest salesman." 
This book reveals how he made a fortune — and how you 
can, too. $2.25." 

• THE INCREDIBLE SECRET MONEY MACHINE- 

BK1178— by Don Lancaster. A different kind of "cook- 
book" from Don Lancaster. Want to slash taxes? Get 
free vacations? Win at investments? Make money from 
something that you like to do? You'll find this book 
essential to give you the key insider details of what Is 
really involved in starting up your own money machine. 
$5.95." 
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• INSIDE LEVEL II— BK1183— For machine language 
programmers! This is a comprehensive reference 
guide to the Level II ROMs, allowing easy utilization of 
the sophisticated routines they contain. It concisely 
explains set-ups, calling sequences, variable passage 
and I/O routines. Part II presents an entirely new com- 
posite program structure which unloads under the 
SYSTEM command and executes in both BASIC and 
machine code with the speed and efficiency of a com- 
piler. Special consideration is given to disk systems. 
$15.95.' 

• PROGRAMMING THE Z-80-BK1122-by Rodnay 
Zaks. Here is assembly language programming for the 
Z-80 presented as a progressive, step-by-step course. 
This book is both an educational text and a self- 
contained reference book, useful to both the beginning 
and the experienced programmer who wish to learn 
about the Z-80. Exercises to test the reader are includ- 
ed. $14.95.* 

• Z-80 SOFTWARE GOURMET GUIDE AND COOK- 
BOOK— BK1045— by Nat Wadsworth. Scelbi's newest 
cookbook! This book contains a complete description 
of the powerful Z-80 instruction set and a wide variety 
of programming information. Use the author's ingre- 
dients including routines, subroutines and short pro- 
grams, choose a time-tested recipe and start cooking! 
$16.99.* 

• Z-80 ASSEMBLY LANGUAGE PROGRAMMING — 

BK1 177— by Lance A. Leventhal. This book thoroughly 
covers the Z-80 instruction set, abounding in simple 
programming examples which illustrate software de- 
velopment concepts and actual assembly language 
usage. Features include Z-80 I/O devices and interfac- 
ing methods, assembler conventions, and compari- 
sons with 8080A/8085 instruction sets and interrupt 
structure. $16.99.* 

TEST 

EQUIPMENT 

— LIBRARY— 

• VOL I COMPONENT TESTERS— LB7359-. . .how 
to build transistor testers (8), diode testers (3), IC test- 
ers (3), voltmeters and VTVMs (9), ohmmeters (8 differ- 
ent kinds), inductance (3), capacity (9), Q measure- 
ment, crystal checking (6), temperature (2), aural 
meters for the blind (3) and all sorts of miscellaneous 
data on meters ... using them, making them more ver- 
satile, making standards. Invaluable book. $4.95.* 

• VOL II AUDIO FREQUENCY TESTERS— LB7360— 

. . .jam packed with all kinds of audio frequency test 
equipment. If you're into SSB, RTTY, SSTV, etc., this 
book is a must for you. . .a good book for hi-fi addicts 
and experimenters, too! $4.95.* 

• VOL III RADIO FREQUENCY TESTERS- LB7361- 
Radio frequency waves, the common denominator of 
Amateur Radio. Such items as SWR, antenna im- 
pedance, line impedance, rf output and field strength; 
detailed instructions on testing these items includes 
sections on signal generators, crystal calibrators, grid 
dip oscillators, noise generators, dummy loads and 
much more. $4.95.* 

• VOL. IV IC TEST EQUIPMENT- LB7362- Become a 
troubleshooting wizard! In this fourth volume of the 73 
TEST EQUIPMENT LIBRARY are 42 home construction 
projects for building test equipment to work with your 
ham station and in servicing digital equipment. Plus a 
cumulative index for all four volumes for the 73 TE&i 
EQUIPMENT LIBRARY. $4.95.* 



ANEW 

PROGRAMMING 

— SERIES — 

The Microprocessor Software Engineering Series by 

John Zarrella provides common sense descriptions of 
advanced computer system topics for engineers, pro- 
grammers and development managers. Each volume is 
a self-contained review of a software engineering 
topic, explaining fundamental concepts in easy-to-un- 
derstand language and describing sophisticated soft- 
ware tools and techniques. Detailed glossary of tech- 
nical jargon is included in each volume. This series will 
help you find the solutions to your software problems. 

• OPERATING SYSTEMS: CONCEPTS AND PRINCI- 
PLES— BK1 193— Presents an overview of the basic op- 
erating system types, their components and capabil- 
ities. $7.95.* 

• WORD PROCESSING AND TEXT EDITING-BK1 194 

— Provides a firm basis for understanding word pro- 
cessing terminology and for comparing systems. 
$7.95.* 

• SYSTEM ARCHITECTURE— BK1195 —Presents a 
detailed overview of advanced computer system 
design including object architecture and capability- 
based addressing. $9.95." 



—6502 



• PROGRAMMING THE 6502 (Third Edition)-BK1005 
— Rodnay Zaks has designed a self-contained text to 
learn programming, using the 6502. It can be used by a 
person who has never programmed before, and should 
be of value to anyone using the 6502. The many exer- 
cises will allow you to test yourself and practice the 
concepts presented. $12.95." 

• 6502 APPLICATIONS BOOK— BK1006— Rodnay Zaks 
presents practical-application techniques for the 6502 
microprocessor, assuming an elementary knowledge of 
microprocessor programming. You will build and design 
your own domestic-use systems and peripherals. Self- 
test exercises included. $12.95.* 

• 6502 ASSEMBLY LANGUAGE PROGRAMMING — 

BK1176— by Lance A. Leventhal. This book provides 
comprehensive coverage of the 6502 microprocessor 
assembly language. Leventhal covers over80 program- 
ming examples from simple memory load loops to 
complete design projects. Features include 6502 as- 
sembler conventions, input/output devices and inter- 
facing methods, and programming the 6502 interrupt 
system. $16.99.* 

• 6502 SOFTWARE GOURMET GUIDE AND COOK- 
BOOK— BK1055— by Robert Findley. This book intro- 
duces the BASIC language programmer into the realm 
of machine-language programming. The description of 
the 6502 structure and instruction set, various 
routines, subroutines and programs are the ingredi- 
ents in this cookbook. "Recipes" are included to help 
you put together exactly the programs to suit your 
taste. $12.95.* 



9 MICROCOMPUTING CODING SHEETS Microcom- 
puting's dozen or so programmers wouldn't try to work 
without these handy scratch pads, which help prevent 
the little errors that can cost hours and hours of pro- 
gramming time. Available for programming is Assem- 
bly/Machine Language (PD1001), which has columns 
for address, instruction (3 bytes), source code (label, 
op code, operand) and comments; and for BASIC 
(PD1002) which is 72 columns wide. 50 sheets to a pad. 
$2.39.* 

-8080/8080A-6800- 

• 8080A/8085 ASSEMBLY LANGUAGE PROGRAM- 
MING— by Lance Leventhal— BK1004— Assembly lan- 
guage programming for the 8080A/8085 is explained 
with a description of the functions of assemblers and 
assembly instructions, and a discussion of basic soft- 
ware development concepts. Many fully debugged, 
practical programs are included as is a special section 
on structured programming. $15.99." 

• 8080 PROGRAMMING FOR LOGIC DESIGN — 

BK1078— Ideal reference for an in-depth understand- 
ing of the 8080 processor. Application-oriented and the 
8080 is discussed in light of replacing conventional, 
hard-wired logic. Practical design considerations are 
provided for the implementation of an 8080-based con- 
trol system. $9.50.* 

• 8080 SOFTWARE GOURMET GUIDE AND COOK- 
BOOK— BK1 102— If you have been spending too much 
time developing simple routines for your 8080, try this 
new book by Scelbi Computing and Robert Findley. De- 
scribes sorting, searching, and many other routines for 
the 8080 user. $12.95.* 

• 6800 PROGRAMMING FOR LOGIC DESIGN — 

BK1077— Oriented toward the industrial user, this 
book describes the process by which conventional 
logic can be replaced by a 6800 microprocessor. Pro- 
vides practical information that allows an experi- 
menter to design a complete micro control system 
from the "ground up." $9.50.* 

• 6800 SOFTWARE GOURMET GUIDE AND COOK- 
BOOK— BK1075— Like its culinary cousin, The 8080 
Gourmet Guide, this book by Scelbi Computing and 
Robert Findley describes sorting, searching and other 
routines— this time for the 6800 user. $12.95.* 

—COOKBOOKS— 

• CMOS COOKBOOK— BK1011— by Don Lancaster. 
Details the application of CMOS, the low power logic 
family suitable for most applications presently 
dominated by TTL. Required reading for every serious 
digital experimenter! $10.50.* 

• TVT COOKBOOK— BK1064— by Don Lancaster. De- 
scribes the use of a standard television receiver as a 
microprocessor CRT terminal. Explains and describes 
character generation, cursor control and interface in- 
formation in typical, easy-to-understand Lancaster 
style. $9.95.* 

• TTL COOKBOOK— BK1063— by Don Lancaster. Ex- 
plains what TTL is, how it works, and how to use it. Dis- 
cusses practical applications, such as a digital coun- 
ter and display system, events counter, electronic 
stonwatch, digital voltmeter and a digital tachometer. 
$9.50." 



* Use the order card in the back of this magazine or itemize your order on a separate 
piece of paper and mail to 80 Microcomputing Bookshelf • Peterborough NH 03458. 
V 3e sure to include check or detailed credit card information. 



No C.O.D. orders accepted. All above add $1 .00 handling. Please allow 4-6 weeks for 
delivery. Questions regarding your order? Please write Customer Service at the above 
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f — INTRODUCTORY— 




• YOUR FIRST COMPUTER-BK1191-by Rodnay 
Zaks. Whether you are using a computer, thinking 
about using one or considering purchasing one, this 
book is indispensable. It explains what a computer 
system is, what it can do, how it works and how to 
select various components and peripheral units. It is 
written in everyday language and contains invaluable 
information for the novice and the experienced pro- 
grammer. (The first edition of this book was published 
under the title "An Introduction to Personal and 
Business Computing".) $7.95* 

• SOME OF THE BEST FROM KILOBAUD MICROCOM- 
PUTING— BK731 1 —A collection of the best articles that 
have appeared in Kilobaud MICROCOMPUTING. Includ- 
ed is material on the TRS-80 and PET systems, CP/M, the 
808078085/Z-80 chips, the ASR-33 terminal. Data base 
management, word processing, text editors and file 
structures are covered too. Programming techniques 
and hard-core hardware construction projects for 
modems, high speed cassette interfaces and TVTs are 
also included in this large format, 200 plus page edition. 
$10.95." 



• HOBBY COMPUTERS ARE HERE! — BK7322— If you 

want to come up to speed on how computers work. . . 
hardware and software. . .this is an excellent book. It 
starts with fundamentals and explains the circuits, and 
the basics of programming, along with a couple of TVT 
construction projects, ASCII-Baudot, etc. This book has 
the highest recommendations as a teaching aid. $4.95." 

• UNDERSTANDING AND PROGRAMMING MICRO- 
COMPUTERS— BK7382— A valuable addition to your 
computing library. This two-part text includes the best 
articles that have appeared in 73 and Kilobaud 
Microcomputing magazines on the hardware and soft- 
ware aspects of microcomputing. Well-known authors 
and well-structured text helps the reader get involved. 
$10.95" 

• THE NEW HOBBY COMPUTERS— BK7340— This 

book takes it from where "HOBBY COMPUTERS ARE 
HERE!" leaves off, with chapters on Large Scale Integra- 
tion, how to choose a microprocessor chip, an introduc- 
tion to programming, low cost I/O for a computer, com- 
puter arithmetic, checking memory boards... and 
much, much more! Don't miss this tremendous value! 
Only $4.95." 



—SPECIAL INTERESTS— 
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• MICROSOFT BASIC DECODED AND OTHER 

MYSTERIES— BK1 186— by James Farvour. From the 
company that brought you TRS-80 DISK AND OTHER 
MYSTERIES'. Contains more than 6500 lines of com- 
ments for the disassembled Level II ROMs, six addi- 
tional chapters describing every BASIC subroutine, 
with assembly language routines showing how to use 
them. Flowcharts for all major routines give the reader 
a real insight into how the interpreter works. $29.50. 



THE CP/M HANDBOOK (with MP/M)— BK1187— by 
Rodnay Zaks. A complete guide and reference hand- 
book for CP/M— the industry standard in operating 
systems. Step-by-step instruction for everything from 
turning on the system and inserting the diskette to cor- 
rect user discipline and remedial action for problem 
situations. This also includes a complete discussion 
of all versions of CP/M up to and including 2.2, MP/M 
and CDOS. $14.95". 

• INTRODUCTION TO TRS-80 GRAPHICS-BK1 180- 

by Don Inman. Dissatisfied with your Level I or Level II 
manual's coverage of graphics capabilities? This well- 
structured book (suitable for classroom use) is ideal 
for those who want to use al I the graphics capabilities 
built into the TRS-80. A tutorial method is used with 
many demonstrations. It is based on the Level I, but all 
material is suitable for Level II use. $8.95." 

• TRS-80 DISK AND OTHER MYSTERIES-BK1181- 

by Harvard C. Pennington. This is the definitive work 
on the TRS-80 disk system. It is full of detailed "How 
to" information with examples, samples and in-depth 
explanations suitable for beginners and professionals 
alike. The recovery of one lost file is worth the price 
alone. $22.50." 

• MICROPROCESSOR INTERFACING TECHNIQUES 

— BK1037— by Austin Lesea & Rodnay Zaks— will 
teach you how to interconnect a complete system and 
interface it to all the usual peripherals. It covers hard- 
ware and software skills and techniques, including the 
use and design of model buses such as the IEEE 488 or 
S-100. $15.95." 



— INTRODUCTION — 

TO 
f MICROCOMPUTERS 
(VOL. O— III) 

• AN INTRODUCTION TO MICROCOMPUTERS, VOL.0 

— BK1 130— The Beginner's Book— Written for readers 
who know nothing about computers— for those who 
have an interest in how to use computers— and for 
everyone else who must live with computers and 
should know a little about them. The first in a series of 
4 volumes, this book will explain how computers work 
and what they can do. Computers have become an in- 
tegral part of life and society. During any given day you 
are affected by computers, so start learning more 
about them with Volume 0. $7.95." 

• VOL. I— BK1030— 2nd Edition completely revised. 

Dedicated to the basic concepts of microcomputers 
and hardware theory. The purpose of Volume I is to 
give you a thorough understanding of what microcom- 
puters are. From basic concepts (which are covered in 
detail), Volume I builds the necessary components of a 
microcomputer system. This book highlights the dif- 
ference between minicomputers and microcomputers. 
$12.99." 

• VOL. II— BK1040 (with binder)— Contains descrip- 
tions of individual microprocessors and support 
devices used only with the parent microprocessor. 
Volume II describes all available chips. $31.99* 

• VOL. Ill— BK1133 (with binder)— Contains descrip- 
tions of all support devices that can be used with any 
microprocessor. $21.99" 

FOR THE 

ELECTRONICS 
— HOBBYIST — 
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• TOOLS & TECHNIQUES FOR ELECTRONICS- 

BK7348 — by A. A. Wicks-is an easy-to-understand book 
written for the beginning kit builder as well as the ex- 
perienced hobbyist. It has numerous pictures and 
descriptions of the safe and correct ways to use basic 
and specialized tools for electronic projects as well as 
specialized metal working tools and the chemical aids 
which are used in repair shops. $4.95." 

• HOW TO BUILD A MICROCOMPUTER— AND REALLY 
UNDERSTAND IT-BK7325-by Sam Creason. The elec- 
tronics hobbyist who wants to build his own microcom- 
puter system now has a practical "How-To" guidebook. 
This book is a combination technical manual and pro- 
gramming guide that takes the hobbyist step-by-step 
through the design, construction, testing and debugging 
of a complete microcomputer system. Must reading for 
anyone desiring a true understanding of small computer 
systems. $9.95." 



"Use the order card in the back of this magazine or itemize your order on a separate 
piece of paper and mail to 80 Microcomputing Bookshelf • Peterborough NH 03458. 
Be sure to include check or detailed credit card information. 



No C.O.D. orders accepted. All above add $1.00 handling. Please allow 4-6 weeks for 
delivery. Questions regarding your order? Please write Customer Service at the above 
address. 



FOR TOLL FREE ORDERING CALL 1-800-258-5473 
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INVENTORY CLEARANCE SALE 
PRICES SLASHED!! 
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COMPUTER SYSTEMS 




ALTOS MODEL ACS-8000-2 64k, 2 drive, single user 


$3769 


MODEL ACS-8000-5MU2 1 1 2k, 2 drive, two user 


$5809 


APF IMAGINATION MACHINE Complete System 


$1015 


APPLE II plus 16k 


$1096 


ATARI 400 


$492 


ATARI 800 


$877 


COMPUCOLOR 3 8k complete package 


$1478 


RADIO SHACK MODEL III 16k 


$899 


EXPANSION INTERFACE OK 


$274 


MODEL II 64k w/ one drive 


$3499 


We carry the complete RADIO SHACK line at a discount 




SD SALES SDS-100 


'6299 


SDS-200 


'$6699 


ZENITH Z-89 (48k) 
V 


$2447 



WE NOW TAKE 

AMERICAN EXPRESS 





m 



n 



PRINTERS 

ANACOM 150 150 cps, bi-directional, 9x9 matrix $1319 

ANADEX DP-9500 $1529 

CENTRONICS MODEL 779 TRACTOR PRINTER $999 

737 "Letter Quality" w/ cable $815 

We Carry the complete CENTRONICS line! 

DIABLO MODEL 630 RO w/Tractors '$2579 

EPSON MX-70 $399 

MX-80 Tractor feed, bi-directional, 80 cps $550 

INTEGRAL DATA IDS445Gw/2K Buffer & Graphics w/Cable $752 

IDS-460 w/Cable $1209 

MPI MT-88 TRACTOR PRINTER w/cable $659 

MT-88G Graphics printer w/ cable $699 

OKIDATA82 Bi-directional w/ tractor cable $862 

83 15" Carrage/Bi-directional $1099 

NEC SPINWRITER 5510 RO Serial '$2579 

5520 KSR Serial '$2879 

5530 RO Parallel '$2579 

OKIDATA MICROLINE 80 PRINTER 80 cps, 9x7 matrix $554 

w/Tractors and cable $679 

TEXAS INSTRUMENTS 810 Basic *$1499 

TRS-232 PRINTER INTERFACE $59 

Allows you to use any serial printer with the TRS-80. 
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TERMINALS 




HAZELTINE MODEL 1510 


'$1099 


1520 


•$1360 


PERKIN-ELMER BANTAM 


*$799 


SOROC IQ 120 


*$759 


IQ140 


'$1199 


TELEVIDEO 912C 


'$799' 


920C 


'$859 


ZENITH Z-19 


•$899 


v_ 





CALIFORNIA COMPUTER SYSTEMS 



MODEL 201 6C 1 6k Static RAM board, A & T $242 

2200 MAINFRAME A & T $352 

MOTHERBOARD 12 slots, A&T $101 



APPLE PRODUCTS 

Model 7440 PROGRAMMABLE TIMER BOARD A&T $99 

7470 3 Va DIGIT BCD A to D Converter A&T $102 

7490 GPIB (IEEE 488-1978) INTERFACE A&T $202 

7710 ASYNCHRONOUS SERIAL INTERFACE A&T $132 

771 2 SYNCH RONOUS SERIAL INTERFACE A&T $1 42 

7720 PARALLEL INTERFACE A&T $99 

7811 ARITHMETIC PROCESSOR A&T $356 

71 1 4 1 2k ROM/PROM Module A&T $69 

We carry the complete line of CCS products 
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SD SALES S-100 BOARDS 




MODEL Expandoram (NO RAM) 


KIT 


$192 


VDP-8024 


KIT 


$302 


VDB-8024 


A&T 


$402 


VDB-8024 


A&T 


$402 


Z-80 STARTER KIT 




$302 


Z-80 STARTER SYSTEM 


A&T 


$382 


SBC- 100 


KIT 


$252 


SBC- 100 


A&T 


$305 


SBC-200 


KIT 


$274 


Versafloppy 


Kit 


$223 


Versafloppy 


A&T 


$295 


Versafloppy II Double Density 


KIT 


$305 


Versafloppy II Double Density 


A&T 


$376 


V 
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idwest Llomputer Peripherals 
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WE PAY UPS CHARGES ON MOST ORDERS 
IN THE CONTINENTAL U.S. 



1467 S. Michigan Ave. 
Chicago, I L 60605 
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FLOPPY DISK STORAGE 




CORVUS 11T 10 MEGABYTE HARD DISK 

Fully compatible with TRS-80. APPLE II. and S-100 


*$4029 


MPI MODEL B51 

TRS-80 plug-in compatible 5.25" single headed 40 track drive 
complete with case and power supply. 90 DAY WARRANTY. 


$321 
Comes 


BARE DRIVES 

(No Case or Power Supply) 




5" MODELS 




MPI MODEL 51 40 tracks, 5 ms. 

MPI MODEL 52 Double headed, 80 tracks 

MPI MODEL 91 80 tracks 

MPI MODEL 92 160 Tracks, Double headed 


$254 
$299 
$299 
$399 


5.25" POWER SUPPLIES WITH CASE 


STANDARD MINI DISK POWER SUPPLY WITH CASE 
DELUXE MINI DISK POWER SUPPLY w/CASE & extender card 
DUAL MINI DISK POWER SUPPLY w/CASE 


$80 . 
$131 
$121 


DISK DRIVE EXTENDER CABLE 


$16 


DRIVE CABLES 




1 DRIVE TRS-80 CABLE 

2 DRIVE TRS-80 CABLE 

3 DRIVE TRS-80 CABLE 

4 DRIVE TRS-80 CABLE 


$24 

$29 
$35 
$40 


We'll make any cable! Call us with specs. 




THE DOUBLER by PERCOM DATA $203 
Double density controller for TRS-80 Model I. With data separator. (Use 
your PERCOM DISCOUNT coupon) 
DATA SEPARATOR by Percom Data $29 

Stops read errors on inner tracks. 
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SOFTWARE 






NEWDOS (40 Track) 
NEWDOS + (40 Track) 
NEWDOS 80 
MICROSOFT FORTRAN 






$49 

$99 

$139 

$85 


Z80 Softcard 






$305 


Super Utility 
Make 80 






$49 


Electric Pencil (disk) 

10% off all RADIO SHACK software 




$130 


We carry SBSG, Microsoft 
brands. All at a discount. 


personal software, 


Apparatt and 


many other 



030181 



DISKETTES 



5 1/4" Single sided, single density 
Single sided, double density 
Double sided, single density 
Double sided, double density 

8" Single sided, single density 

Single sided, double density 
Double sided, single density 
Double sided, double density 

When ordering diskettes, please give us your make and model number of 
computer or disk drive, or give us the brand and part number of the diskettes 
you are currently using. 



x of 10) 
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VERBATIM 


SYNCOM 


MEMOREX 


$31 


$35 


$28 


$40 


$39 


$32 


$48 


N/A 


N/A 


$48 


$52 


$40 


$41 


$31 


$33 


$51 


$40 


$41 


$61 


$49 


$55 


$61 


$49 


$50 



5 1/4" LIBRARY CASE holds 10 disks 
BINDER HOLDER holds 2 disks 

8" LIBRARY CASE holds 10 disks 

BINDER HOLDER holds 2 disks 

FLOPPY SAVER 



$3.95 

10 for $7.95 

$4.95 

10 for $19.95 

5 1/4" $14.95 

8" $16.95 

Refills also available! 

16k MEMORY KITS 200 ns $39.00 

NEC UPD41 6C-2 prime dynamic RAM. Compatible with TRS-80, APPLE, 

or any computer specifying 41 1 6 dynamic RAM. 



HOW TO ORDER: 

PHONE ORDERS: HOURS 10AM - 5PM CST MON - FRI 

BY CHECK: Call in your order then send us a cashiers check or money order. This way we 

can have your order waiting foryou when your check arrives. Personal checks require 10- 

14 days to clear. 

BY CREDIT CARD: Just have your MASTER CHARGE or VISA or AMERICAN EXPRESS 

handy, we'll do the rest. 

MAIL ORDERS: NEW ADDRESS 1467 South Michigan Ave., Chicago, IL 60605. 

ALL MAIL ORDERS: Send your NAME and STREET ADDRESS (we ship UPS). CITY, 

STATE, ZIP CODE AND TELEPHONE NUMBER along with your order. 

BY CHECK: Include a cashiers check or money order with your order. Personal checks 

require 10-14 days to clear. For your safety, mail your order via insured mail. BETTER 

SAFE THAN SORRY. 

BY CREDIT CARD: Neatly type or print your MASTER CHARGE or VISA account 

number along with the expiration date and 4 digit interbank number (MC only). 

IL. RES. ADD 6% SALES TAX 



SHIPPING INFORMATION: We pay all UPS ground service charges 
LABEL EXTRA) on all items except those denoted with an asterisk (*). 
airfreight or truck and can be sent freight collect. 
FOREIGN ORDERS WELCOME, CALL OR WRITE. 
ALL orders F.O.B. Chicago, II. 



(USA only. BLUE 
*) items must go 



WARRANTY INFORMATION: All Equipment carries a 90 day parts and labor warranty, 
unless otherwise noted. Warranty repair or replacement will be provided at no charge, 
excluding shipping costs. 10 DAY MONEY BACK GUARANTEE: If within ten days you 
return merchandise in new and re-saleable condition we will refund your original pur- 
chase price. All refunds, exchanges or repairs Include original cartons, packaging, and 
manuals and be In new and re-saleable condition and accompanied by your original In- 
voice. A 10% re-stocking fee may be charged on returns at our discretion. 
Not responsible for typographical errors 
Prices subject to change without notice 
Dealer Inquiries welcome 
TRS-80" TANDYCORP. 
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1467 South Michigan Av. 
Chicago, IL 60605 

We pay UPS charges on most 
orders in continental U.S. 



SAVE TIME. . .ORDER BY PHONE 
TOLL FREE: 800-621-3229 
IN ILLINOIS: 312-987-1024 



►-■See List of Advertisers on page 306 
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358 Syracuse R&D Center 261 
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This card valid until July 31, 1981 

Please help us to bring you a 
better magazine — by answering 
these questions. 



I. What Is your age? 

D A. under 18 
D.B. 18-22 
D C. 23-40 
D D. 41-60 
G E. over 60 

II. What is your occupation? 

D 1. Professional 
G 2. Engineer 
D 3. Data processing 
D 4. Business 
D 5. Education 
Q 6. Technician 
D 7. Student 
D 8. Other 

III. What are your primary applica- 
tions of your TRS-80 (check only 
two)? 

O A. Business 
D B. Games 
D C. Home 
D D. Education 
. O E. Scientific 
D F, Control 
□ G. Music 

IV. Your TRS-80, is it a 

D 1. Level I 

D 2. Level II 

D 3. Model II 

D 4. Don't own one yet 



V. What peripherals do you have 
(check all that apply)? 

D A. Expansion interface 

□ B. Disk 
G C. Printer 

VI. How much have you spent on 
hardware? 

□ 1. less than $500 
a 2. $500-1,000 

D 3. $1,000-2,000 
G 4. $2,000-4,000 
G 5. $4,000-6,000 

□ 6. more than $6,000 

VII. How much have you spent on 
software? 

D A. less than $100 

D B. $100-250 

H C. $250-500 

D D, $500-1,000 

D E. more than $1,000 

VIII. What is your level of educa- 
tion? 

Q 1. Post-graduate 

□ 2. College 

D 3. High school 

IX. How many people read your 
copy of 80 Microcomputing? 

D A. 1 
G B. 2 

□ C. 3 

G D. 4 or more 

X. If you are not a subscriber 
please circle number 500. 
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80 Microcomputing • MAY 1981 



Reader Service: To receive more information from any of the advertisers in this 
issue of 80 Microcomputing, circle the number on the postage-paid Reader Service 
Card that corresponds with the Reader Service number on the ad in which you are 
interested. You will find numbers., preceded by a ^*, near the logo of each adver- 
tiser. Complete the entire card, drop into a mailbox and in 4-6 weeks you will hear 
from the advertiser directly. 
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Address. 
City 



State. 



Zip. 




80 Microcomputing 
Peterborough NH 03458 



Please send me the following 80 
Microcomputing products: 



Qty. 


Catalog U 


Title 


Unit Price 


Total 









































































Add SI 
shipping/handling 



Total 



Enclosed $ 

Bill: □ AE 

Card# 



: MC 



Check 
VISA 



M.O. 



Exp date. 



Interbank # 



Signature 
Name 



Address 
City 



State 



Zip 



oo 



Please allow 4—6 weeks for delivery 



No CO.D. orders accepted. 



UBSCRIPTIO 



80 Microcomputing POB 981 
Farmingdale NY 11737 





5*3L« 




L_ New Subscription D Renewal 

1 year— $18 Li 2 years— $30 Li 3 years— $45 

_ Enclosed $ D Check □ M.O. 

Bill: G MC D VISA DAE D Me 



Card n 



Signature 
Name 



Exp. date 



Interbank # 



Address 
City 



State 



Canada: S20 1 year only. US funds 

Other foreign: S28 one year only, US funds 



Zip 



315B9 



NO POSTAGE 

NECESSARY 

IF MAILED 

IN THE 

UNITED STATES 



BUSINESS REPLY CARD 

FIRST CLASS PERMIT NO. 217 CLINTON IA 52735 



POSTAGE WILL BE PAID BY ADDRESSEE 




microcomputing 



POB 2743 
Clinton I A 52735 











CO 


CU 


> 






UJ 


<•) 


n 




1- 


< 




in 






V) 


01 
Cfl 


_i 


X 


co 




UJ 
O 


5 


z 


o 

UJ 


n 


UJ 


u. 






z 


z 






Z 

3 








































Q 


N. 


CL 


h- 


< 


> 


O 


UJ 






>- 


a 


-J 




CL 


a. 
< 


UJ 




cl 






o 


CO 




CO 


5 


UJ 


UJ 

a. 


z 


M 

CO 




< 


CO 


O 


3 


a: 


DO 


u. 








h* 






co 






h* 


. 




t— 


-t-» 




y— 


Q. 






a) 




> 


Q 




z 


c 




<D 


o 




05 


*—• 

Q. 


CO 




O 


o> 




CO 
Q 


CO 


b 


D 


(J 


05 


CO Ql LL 











to 


UJ 








UJ 


O 




o 




t- 


< 




UJ 






l— 
CO 


CO 


-J 


X 


co 


U 

Q- 


UJ 


z 


z: 


Q 

UJ 


O 


UJ 


U. 




>- 


2 








Z 
3 







Q 


Ln 


DC 


S 


< 


I 


O 


X 






> 


o 


_l 


o 


Q_ 


cr 

U) 


LU 


UJ 


DC 


o 

CO 


CO 


O 

z 


CO 




LLJ 


a: 


Z 


a. 

CO 




CO 


CO 


o 


3 


co 


ca 


U- 




CO 




if) 




*"tf 




CO 




O 




X 




z 




.c 




D) 




D 




O 








O 




.Q 




V 




<D 




-f— > 




CD 




Q. 










0) 




X3 








O 




— 




to 




2 



. 



your TRS-80* 





With The LOBO LX-80 Expansion Interface 



Now you can realize all the power and 
potential of your TRS-80*, Model 1. If it's 
add-on memory you need, your LX-80 can 
accommodate up to four 5 1 /4-inch, single- 
or double-density 35, 40 or 80 track mini- 
floppies, four 8-inch floppies (single or 
double sided), and up to eight Winchester 
fixed disk-drives (514". 8", 14"). 

LOBO's powerful new LDOS™ operating 
system, provided with your LX-80, allows 
for the use of any eight drives, in any 
combination, single or double density. 

And there's more ... lots more. There are 
two parallel ports (standard), two serial 



ports (optional), a keyboard ROM override 
switch, and a 32K memory expansion 
(optional). Send for a free LX-80/TRS-80 
cost performance comparison chart. 

For the full story on how the LX-80 can 
expand your TRS-80, see your nearest 
LOBO dealer, or write or call: 

"TRS-80 is a registered trademark of Radio Shack, a Tandy Company. 



drii/es F 



i 



INTERNATIONAL 



LOBO DRIVES INT'L 

354 South Fairview Ave. 
Goleta, CA 93117 
(805)683-1576 



^15 



See us at the N.C.C., booth #421 1 



Toaddthe 

speed, capacity and 

reliability of a disk 

for only $249.50... 



VisiCalc isGreat! 
But you need a disk. 

ES/F 
Electric Spreadsheet 

$49.95. 

For Level II and 16K. 



CALL OUR HOTLINE 

(800)538-8559 

In California Call (408) 737-7U1 




exatron 



181 Commercial Street, Sunnyvale, Calif. 94086 



CALLOUR HOTLINE 

(800)538-8559 

in California Call(408)737-7M 




exatron 



181 Commercial Street, Sunnyvale, Calif. 94086 

TM VisiCalc is a registered trademark of Personal Software, Inc. an<; Software Arts. Inc. 



Exclusive! 



All Exatron products come with 
a 30 day money back guarantee 
and one full year warranty. 

Complete information package — $3.00. 
Includes Manual, Software Catalogue 
and list of local Users Groups. 

Complete Starter Kit includes ES/F 
System and Exatron's Software Package. 
$349.50 

CALLOUR HOTLINE 

(800)538-8559 

In California Call (408) 7S7-71U 




exatron 



NEW machine language 

ES/F 
Word Processor System 

withUC/LC~$24.95. 
No hardware modification, 



CALLOUR HOTLINE 

(800)538-8559 

In California Call (408) 737-7U1 




exatron 



181 Commercial Street, Sunnyvale, Calif. 94086 



181 Commercial Street, Sunnyvale, Calif. 94086 



